Recordset de access
Publicado por switch.2h (13 intervenciones) el 05/04/2007 21:15:11
Hola A tod@s:
tengo un problemita el cual ustedes ojala que me podrian ayudar, Alomejor es algo muy sencillo pero como estoy recien empesando a programar en access desconosco algunas sentencias.
necesito saber como puedo hacer un Recordset en access, basicamente tengo 2 tablas en access , una de ellas es la que se trabaja con toda la informacion y la otra tabla guarda el respaldo de esta, es decir se le van agregando los registros que la segunda tabla no tengo, asi puedo generar respaldos en la segunda tabla, esta funcion la puedo hacer en vb 6.0 sin problemas, pero ahora lo estoy haciendo en access para poder aprender pero desconosco las sentancias.
en vb 6.0 es lago mas o menos asi:
Dim rst_chica As ADODB.Recordset
Set rst_chica = New ADODB.Recordset
rst_chica.Open "select * from [Consulta1]",
Dim stUpd1 As String
With rst_chica
.MoveFirst
Do While Not .EOF
stUpd1 = "INSERT INTO rapido2 (rut,sede) VALUES('" & .Fields("rut") & "', '" & .Fields("sede") & "');"
chica.Execute stUpd1
.MoveNext
Loop
End With
y es esto mismo que quiero hacer, pero lo quiero hacer en access, si aguen me puede ayudar de ante mano muchas gracias
tengo un problemita el cual ustedes ojala que me podrian ayudar, Alomejor es algo muy sencillo pero como estoy recien empesando a programar en access desconosco algunas sentencias.
necesito saber como puedo hacer un Recordset en access, basicamente tengo 2 tablas en access , una de ellas es la que se trabaja con toda la informacion y la otra tabla guarda el respaldo de esta, es decir se le van agregando los registros que la segunda tabla no tengo, asi puedo generar respaldos en la segunda tabla, esta funcion la puedo hacer en vb 6.0 sin problemas, pero ahora lo estoy haciendo en access para poder aprender pero desconosco las sentancias.
en vb 6.0 es lago mas o menos asi:
Dim rst_chica As ADODB.Recordset
Set rst_chica = New ADODB.Recordset
rst_chica.Open "select * from [Consulta1]",
Dim stUpd1 As String
With rst_chica
.MoveFirst
Do While Not .EOF
stUpd1 = "INSERT INTO rapido2 (rut,sede) VALUES('" & .Fields("rut") & "', '" & .Fields("sede") & "');"
chica.Execute stUpd1
.MoveNext
Loop
End With
y es esto mismo que quiero hacer, pero lo quiero hacer en access, si aguen me puede ayudar de ante mano muchas gracias
Valora esta pregunta


0