Insertar Registros ADO Access
Quisiera saber como insertar un número determinado de registros en una Tabla, es decir si se hace con Do While o con cual bucle debe hacerse. Tengo hasta el momento lo siguiente:
Dim db As Database
Dim Datos As Recordset
Dim variable As String
Set db = CurrentDb
Set tabla = db.OpenRecordset("Datos")
Do While Not .EOF
tabla.AddNew
tabla.Fields("nombre") = "Ricardo"
tabla.Fields("numero") = 154
tabla.Update
tabla.MoveNext
Loop
End With
Quisiera saber donde se especifica el número de registros a adicionar puesto que aun no tengo muy claro como funciona ese Do While en Access, lo conozco en Excel pero varía en algunas cosas.
De antemano Gracias a quien pueda ayudarme!
Dim db As Database
Dim Datos As Recordset
Dim variable As String
Set db = CurrentDb
Set tabla = db.OpenRecordset("Datos")
Do While Not .EOF
tabla.AddNew
tabla.Fields("nombre") = "Ricardo"
tabla.Fields("numero") = 154
tabla.Update
tabla.MoveNext
Loop
End With
Quisiera saber donde se especifica el número de registros a adicionar puesto que aun no tengo muy claro como funciona ese Do While en Access, lo conozco en Excel pero varía en algunas cosas.
De antemano Gracias a quien pueda ayudarme!
{"lat":4.62159762416584,"lng":-74.1055297851563}
1 Respuesta
Respuesta de drinfierno
1
Dim db As Database
Dim Datos As Recordset
Dim variable As String
Set db = CurrentDb
Set tabla = db.OpenRecordset("Datos")
'si los datos estan en una lista el codigo es asi
for x=1 to lista1.listcount -1
tabla.AddNew
tabla.Fields("nombre") = lista1.list(x)
tabla.Fields("numero") = lista2.list(x)
tabla.Update
tabla.MoveNext
next x
Dim Datos As Recordset
Dim variable As String
Set db = CurrentDb
Set tabla = db.OpenRecordset("Datos")
'si los datos estan en una lista el codigo es asi
for x=1 to lista1.listcount -1
tabla.AddNew
tabla.Fields("nombre") = lista1.list(x)
tabla.Fields("numero") = lista2.list(x)
tabla.Update
tabla.MoveNext
next x
Muchísimas Gracias.
Exactamente esa es la respuesta. No se necesita el Do While, con el For es suficiente.
¿Podría formularte otra pregunta? Es acerca de consultas en Access con algo de Sql, ¿o me dices donde la debo formular?
Mil Gracias. Y espero poder ayudar también.
Exactamente esa es la respuesta. No se necesita el Do While, con el For es suficiente.
¿Podría formularte otra pregunta? Es acerca de consultas en Access con algo de Sql, ¿o me dices donde la debo formular?
Mil Gracias. Y espero poder ayudar también.
