insertar PARA PODA
Publicado por praetoriano (86 intervenciones) el 27/07/2004 10:30:30
Si , tengo en una lista mas elemetnos que en otra, y no se como poder hacerlo para relacionar el informe con su base de datos, mira aqui te dejo mi codigo, a ver si me puedes ayudar. Gracias.
Dim db As Database
Dim rs As Recordset
Dim num_informe As Integer
Set db = OpenDatabase(App.Path & "\buscarinformes.mdb") 'nombre de la base de datos *nombrebasedatos*
Set rs = db.OpenRecordset("informes") 'nombre de la tabla es *nombretabla*
For num_informe = 0 To List2.ListCount - 1
rs.AddNew
rs.Fields("nombreinforme") = List1.List(num_informe) 'el campo es *basededatos*
rs.Fields("nombrebd") = List2.List(num_informe) 'el campo es *informe*
rs.Update
Next num_informe
rs.Close
db.Close
Gracias PODA.
Dim db As Database
Dim rs As Recordset
Dim num_informe As Integer
Set db = OpenDatabase(App.Path & "\buscarinformes.mdb") 'nombre de la base de datos *nombrebasedatos*
Set rs = db.OpenRecordset("informes") 'nombre de la tabla es *nombretabla*
For num_informe = 0 To List2.ListCount - 1
rs.AddNew
rs.Fields("nombreinforme") = List1.List(num_informe) 'el campo es *basededatos*
rs.Fields("nombrebd") = List2.List(num_informe) 'el campo es *informe*
rs.Update
Next num_informe
rs.Close
db.Close
Gracias PODA.
Valora esta pregunta
0