Access - Error en un bucle Do While Not rs.EOF

 
Vista:

Error en un bucle Do While Not rs.EOF

Publicado por Meta-Barón (2 intervenciones) el 10/03/2006 09:55:46
Hola, ya se que es una pregunta de principiante, pero de verdad, estoy en un punto en el que el bloqueo mental es absoluto, tengo dos tablas, una local y una en servidor, creo una conexión, abro dos recordsets (una para cada tabla) y paso el contenido de una tabla a otra, bueno, pues si tengo 4 registros, solo consigo pasar 3 y no entiendo que me falla en el bucle:

'empiezo a pasar datos de una tabla a otra, primero cuento los campos
Dim intNumField As Integer
Dim intRecords As Integer
Dim i As Integer

intNumField = rsLocal.Fields.Count
intRecords = rsLocal.RecordCount
Do While Not (rsLocal.EOF)
rsServer.AddNew
For i = 0 To intNumField - 1
rsServer(i) = rsLocal(i)
Next i
rsLocal.MoveNext
Loop
rsServer.Close
MsgBox "Se han exportado " & intRecords & " registros."
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error en un bucle Do While Not rs.EOF

Publicado por Meta-Barón (2 intervenciones) el 10/03/2006 10:00:32
Bueno, me contesto a mi mismo, no hay nada como pararse un poco cuando la presión crece, por supuesto era un error de principiante pero que a veces no ves:

Do While Not (rsLocal.EOF)
rsServer.AddNew
For i = 0 To intNumField - 1
rsServer(i) = rsLocal(i)
Next i
rsServer.Update ' aquí estaba el error que estaba cometiendo
rsLocal.MoveNext
Loop
rsServer.Close
MsgBox "Se han exportado " & intRecords & " registros."
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar