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."
'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


0