tuneo
29 de Julio del 2004

mi pregunta es sencilla , como importar un archivo *.txt a acces , programando acces (vb) ????
gracias

Atzeneta
29 de Julio del 2004

- Adjunto un ejemplo de como importar un fichero txt a Access

'Abrimos el Fichero
Archivo = "Ruta completa del Archivo"
Open ArchivoI For Input Access Read As #1

'Abrimos conexión con la base de datos
Set db = CurrentDb

'Abrimos tabla mediante una consulta sql
sql = "SELECT * FROM tblTabla"
Set Tabla = db.OpenRecordset(sql)

'Recorremos el Fichero abierto
While Not EOF(1)

'Lee la línea
Line Input #1, Linea

'Añadimos un nuevo registro a la tabla
Tabla.AddNew

'Recorremos la línea segun las posiciones de texto.
'Mid(Linea, [posición de inicio], [número de posiciones])
Tabla![Campo_1] = Mid(Linea, 2)
Tabla![Campo_2] = Mid(Linea, 3, 2)
Tabla![Campo_3] = Mid(Linea, 5, 5)
Tabla![Campo_4] = Mid(Linea, 10, 4)
.
.
.
Tabla.Update
Wend

'Cerramos tabla
Tabla.Close

'Cerramos conexión
db.Close
Set db = Nothing

'Cerramos el Fichero
Close #1