Re: Meter Arxivo txt en acess
Esto se utiliza para abrir el fichero de texto y recorrerlo fila a fila
en la variable cadena se iran almacenando cada una de las lineas y con la funcion Mid() puedes ir asignando las diferentes partes de la cadena a variables como por ejemplo columna2 = Mid(cadena,12, 3) pasara a la variable columna2 lo que exista en la variable cadena desde el caracter 12 al 14
dim columna1,columna2 as string
dim cadena as string
Open cadFich For Input As #1 'cadFich es el nombre del fichero de texo
Do While Not EOF(1)
Line Input #1, cadena
columna1 = Mid(cadena, 1, 11)
columna2=Mid(cadena,12,3)
Loop
Close #1
Una vez que puedes ir leyendo los datos fila por fila solo te queda crearte una conexion a la base de datos access e ir rellanando los campos.
Con esta ayuda espero que puedas continuar ahora solo queda que te curres un poco lo de la conexion a la BD y los RecordSets y demas
Un Saludo
|