importar datos

Abre el archivo texto:

iFH = freefile()
open "nombre del archivo texto" for input as #iFH

Crea un bucle que lea todas las lineas

do while not eof(iFH)
usa Line Input #iFH, StrVariable

separa los campos aqui y guarda cada uno en la base de datos.
Para esto necesitas saber la relacion entre los datos en el archivo texto
y los campos de la tabla. Ademas, necesitas saber como se separan
los datos del archivo para que puedas extraer cada uno de ellos.
loop

Dim strX() as string 'un arreglo

Line Input #iFH, StrVariable 'lees la linea

sabes que esta linea contiene 10 campos y necesitas extraer dos, los
cuales son el quinto y sexto. Ademas, tambien sabes que cada uno
de estos campos son separados por una coma (,)

Separa los campos:
strX = Split(StrVariable, ",")

Esto crea un arreglo que va de 0 al numero de campos:

euewi,2332,sdd - esto crea un arreglo de tres elementos, del 0 al 2

asi que el quinto y sexto elemento es strX(4) y strX(5), respectivamente.

Espero esto te ayude,
Suerte
Saga


"Pablo" wrote in message
news:09a501c34aff$877df280$

Como puedo importar desde visualbasic datos de un archivo
de texto a una BD de access 2000?. Gracias