fichero plano
Publicado por raf (1 intervención) el 31/10/2003 19:45:51
QIERO RECORRER TODAS LAS FILAS DE 1FICHERO TEXTO E INSERTARLO EN 1DATAGRID.
TENGO HECHO ALGO PERO NO SE PQ CASCA.
numero = FreeFile
Open "C:\Mis documentos\Rafa\prueba1.txt"
For Input As #numero
Do While Not EOF(numero)
codigo = Input(5, numero)
descripcion = Input(30, numero)
salto = Chr(13)
Adodc1.Recordset.AddNew
DataGrid1.Columns(0).Value = codigo
DataGrid1.Columns(1).Value = descripcion
Adodc1.Recordset.MoveNext
Loop
LA PRIMERA FILA ME LA INSERTA SIN PROBLEMAS,ES AL CAMBIAR DE LINEA Q CREO Q NO LO ACE BIEN O ALGO ASI.
GRACIAS DE ANTEMANO
TENGO HECHO ALGO PERO NO SE PQ CASCA.
numero = FreeFile
Open "C:\Mis documentos\Rafa\prueba1.txt"
For Input As #numero
Do While Not EOF(numero)
codigo = Input(5, numero)
descripcion = Input(30, numero)
salto = Chr(13)
Adodc1.Recordset.AddNew
DataGrid1.Columns(0).Value = codigo
DataGrid1.Columns(1).Value = descripcion
Adodc1.Recordset.MoveNext
Loop
LA PRIMERA FILA ME LA INSERTA SIN PROBLEMAS,ES AL CAMBIAR DE LINEA Q CREO Q NO LO ACE BIEN O ALGO ASI.
GRACIAS DE ANTEMANO
Valora esta pregunta
0