Visual Basic - Importar TXT a Tabla Access

Life is soft - evento anual de software empresarial
   
Vista:

Importar TXT a Tabla Access

Publicado por Christian Carter (23 intervenciones) el 11/04/2009 18:09:13
Estimados:

tengo un archivo de texto con datos separados por Espacios y cargarlo hacia una grilla en VB6
Ej:
001 17251204 16/11/1985 22:20
002 19745632 22/11/1985 15:40
003 22456781 15/01/2001 09:08

y luego realizar lo mismo pero cargarlo a una BD Access en la misma cantidad de campos, siempre importando desde el TXT
en resumen, importar un TXT hacia una Grilla e importar TXT hacia una Tabla en Access, en codigos distintos.

gracias de antemano.
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:Importar TXT a Tabla Access

Publicado por P3L30N2009 (701 intervenciones) el 12/04/2009 09:59:48
Lo normal es que primero insertes los registros en la tabla y después los muestres en la "Grilla".

Ahí va el ejemplo:

Open sArchivo For Input As #1
Do While Not EOF(1)
Line Input #1, sLinea
If sLinea <> "" Then
a = Split(sLinea, """")
rs.AddNew
For i = 0 To rs.Fields.Count - 1
rs(i) = a(i)
Next i
rs.Update
End If
Loop
Close #1
rs.MoveFirst
Set DataGrid1.DataSource = rs

La declaración de las variables lo dejo de tu cuenta.
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