javi
28 de Agosto del 2003

Tengo un problema con una aplicación en la que entro en un archivo de texto, lo leo linea por linea y meto cada linea en un campo de una base de datos, algo así:

cont = 0
Open "c:" & testo For Input As #2
Do Until EOF(2)
On Error Resume Next
rs.AddNew
Line Input #2, a
rs(cont) = (a)
cont = cont + 1
Loop
Close #2

Mi problema es el siguiente: sin que yo le diga nada (rs.movenext) el recordset salta de registro y me graba en el campo siguiente de la fila siguiente.

¿Qué puedo hacer? he probado a decirle que se mueva al registro anterior y no he conseguido nada.

MUCHAS GRACIAS de antemano

Heber
28 de Agosto del 2003

No veo la siguiente sentencia por ahi ...

rs.UpdateRecord
Supongo que rs es un recordset de una base de datos, pero si no lo fuera.... estaría mal tu código
Creo que tu construcción teórica está mal desde el concepto inicial.

Si pones esto (también estaría mal):

Do Until EOF(2)
On Error Resume Next
rs.Recordset.AddNew
Line Input #2, a
rs.Recordset.Fields(cont) = a
rs.UpdateRecord
cont = cont + 1
Loop
Close #2

Ya que el contenido de cada linea de texto saltará a cada campo de la base de datos y no a cada registro subsiguiente.
Además cada campo debe tener la longitud necesaria para soportar cada longitud de línea de texto ¿has definido correctamente los campos de la BD?
¿Son del tipo String y de longitud suficiente?
No sería mejor utilizar un campo "MEMO" y guardar cada texto en un único campo del registro.

No entiendo lo que quieres hacer.
Explica algo mas tu finalidad.