Cargar Tabla de Access con un archivo de texto en VB

[estelam2004]

Como puedo pasar directamente un archivo de texto con registros, tabulados con "|" a una tabla de Access a traves de Visual Basic...

Nota:
Si a alguien le intesera, tengo el codigo para crear el archivo de texto con registro de una consulta SQl de una base de datos externa... podriamos intercambiar la información

[frank_vo]

¿Tu te refieres a una transferencia automatica como cuando se carga un archivo de texto a Excel o a leer el archivo de texto e ir cargando la info a la tabla?

Si es de la primera forma, no conozco ninguna funcion que haga eso.
Si es lo segundo te puedo sugerir como.

Cuentame.

[estelam2004]

si, leer el archivo de texto e ir cargando la info a la tabla

[frank_vo]

Open MiArchivo For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, pLinea
Dato1 = Mid(pLinea, 1, 8)
Dato2 = Mid(pLinea, 9, 7)
pConsulta = "insert into tabla (Campo1,campo2)
values (" & Dato1 & "','" & Dato2 & "')
rs.open pConsulta,cn
(tambien puedes usar un commando en vez de un recordset)
pRecuperados = pRecuperados + 1
DoEvents
Loop
Close #1
En este ejemplo, la lineas no tiene separadores ejemplo:
"01012004VALOR01"

Si tu cadena tiene el texto separado por comas, "01012004,VALOR01", puedes usar el metodo instr para encontrar la posicion donde esta la coma y asi separar los campos.

Espero que esto se de utilizadad.

Saludos

[aisikaus]

Iniciado por frank_vo

Open MiArchivo For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, pLinea
Dato1 = Mid(pLinea, 1, 8)
Dato2 = Mid(pLinea, 9, 7)
pConsulta = "insert into tabla (Campo1,campo2)
values (" & Dato1 & "','" & Dato2 & "')
rs.open pConsulta,cn
(tambien puedes usar un commando en vez de un recordset)
pRecuperados = pRecuperados + 1
DoEvents
Loop
Close #1
En este ejemplo, la lineas no tiene separadores ejemplo:
"01012004VALOR01"

Si tu cadena tiene el texto separado por comas, "01012004,VALOR01", puedes usar el metodo instr para encontrar la posicion donde esta la coma y asi separar los campos.

Espero que esto se de utilizadad.

Saludos

-----------------------------------------------------------------------------------------

Esto mismo se podria hacer en access?

[frank_vo]

Iniciado por aisikaus

-----------------------------------------------------------------------------------------

Esto mismo se podria hacer en access?

Hoy en dia si se puede, access te da la posibilidad de crear scripts VB, con lo cual podrías hacer lo mismo y automatizarlo, sin embargo, access tambien cuenta con opciones de importación que son mucho mas fáciles y rapidas de utilizar.

Suerte.