Traspasos
Hola Alex y perdona que te moleste.
Mira, yo no se nada de visual basic, pero tengo que hacer una aplicación en este lenguaje y te quiero comentar un problema, a ver si me puedes ayudar.
Tengo dos aplicaciones llamemoslas AAA y BBB.
En las dos tengo dos apartados, uno de DOSSIER y otro de FICHERO.(Immaginatelo como tabla).
El AAA tiene DOSSIER 10 y FICHERO 22 y el BBB tiene DOSSIER 10 y FICHERO 5.
La pregunta es como puedo hacer que de AAA teniendo el mismo dossier 10 ambas, me busque el fichero 5 de BBB, ¿me lo encuentre y me lo ponga en una nueva columna digamosla (nueva) de AAA?
Muchas gracias.
Mira, yo no se nada de visual basic, pero tengo que hacer una aplicación en este lenguaje y te quiero comentar un problema, a ver si me puedes ayudar.
Tengo dos aplicaciones llamemoslas AAA y BBB.
En las dos tengo dos apartados, uno de DOSSIER y otro de FICHERO.(Immaginatelo como tabla).
El AAA tiene DOSSIER 10 y FICHERO 22 y el BBB tiene DOSSIER 10 y FICHERO 5.
La pregunta es como puedo hacer que de AAA teniendo el mismo dossier 10 ambas, me busque el fichero 5 de BBB, ¿me lo encuentre y me lo ponga en una nueva columna digamosla (nueva) de AAA?
Muchas gracias.
1 respuesta
Respuesta
1
Vamos a imaginar que tu tienes los datos de las 2 aplicacionnes en una sola base de datos con la siguiente estructura.
Tabla:
AAA
Dossier
Fichero
Nueva
BBB
Dossier
Fichero
Ahora tu quieres buscar un dato del campo dossier en la tabla AAA coja el campo fichero y lo busque en la tabla bbb.
EJ:
Dim rsAAA as Dao.Recordset,baseDeDatos as Dao.Recordset
Dim rsBBB as Dao.Recordset
'Abrir la base de datos
Set BaseDeDatos = OpenDatabase("C:\base.mdb")
'Abrir las tablas
Set rsAAA = BaseDeDatos.OpenRercodset("Select * From AAA")
Set rsBBB = BaseDeDatos.OpenRercodset("Select * From BBB")
rsAAA.FindFirst("Dossier=10")
If not RsAAA.NoMatch then 'encontrado
rsBBB.FindFirst("Fichero=" & rsAAA("Fichero"))
If not RsBBB.NoMatch then 'encontrado
rsAAA.edit
rsAAA("Nueva") = rsBBB("Dossier")
rsAAA.update
end if
End if
Paginas:
http://guille.costasol.net
Saludos
Pt:
Podrías hacer que buscara en dos bases de datos diferentes pero eso seria un poco más complicaado si es lo que quieres dímelo y te lo buscare como hacerlo.
Tabla:
AAA
Dossier
Fichero
Nueva
BBB
Dossier
Fichero
Ahora tu quieres buscar un dato del campo dossier en la tabla AAA coja el campo fichero y lo busque en la tabla bbb.
EJ:
Dim rsAAA as Dao.Recordset,baseDeDatos as Dao.Recordset
Dim rsBBB as Dao.Recordset
'Abrir la base de datos
Set BaseDeDatos = OpenDatabase("C:\base.mdb")
'Abrir las tablas
Set rsAAA = BaseDeDatos.OpenRercodset("Select * From AAA")
Set rsBBB = BaseDeDatos.OpenRercodset("Select * From BBB")
rsAAA.FindFirst("Dossier=10")
If not RsAAA.NoMatch then 'encontrado
rsBBB.FindFirst("Fichero=" & rsAAA("Fichero"))
If not RsBBB.NoMatch then 'encontrado
rsAAA.edit
rsAAA("Nueva") = rsBBB("Dossier")
rsAAA.update
end if
End if
Paginas:
http://guille.costasol.net
Saludos
Pt:
Podrías hacer que buscara en dos bases de datos diferentes pero eso seria un poco más complicaado si es lo que quieres dímelo y te lo buscare como hacerlo.