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:31
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 Esperanza (38 intervenciones) el 21/04/2009 14:39:06
Te pongo un ejemplo de un programa en el que leo un fichero de textoy los cargo en una tabla:

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.OpenTextFile(archivo, 1)

num_linea = 0

Do While a.AtEndOfStream <> True
linea = a.ReadLine
num_linea = num_linea + 1
rs.AddNew
rs!Numeracion = num_linea
rs!Tipo_reg = tipo_registro
rs!Cod_prod = Mid(linea, 2, 2)
rs!Cod_cliente = Mid(linea, 4, 8)
rs.Update
rs.MoveLast
Loop
a.Close

num_registros = num_linea
'
MsgBox ("Fichero cargado")
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

RE:Importar TXT a Tabla Access

Publicado por Esperanza (38 intervenciones) el 21/04/2009 14:42:45
En el mensaje anterior no he borrado una variable (tipo registro) que utilizo en mi programa y te puede liar.


Te pongo un ejemplo de un programa en el que leo un fichero de textoy los cargo en una tabla:

Set fs = CreateObject("Scripting.FileSystemObject")

Set a = fs.OpenTextFile(archivo, 1)

num_linea = 0

Do While a.AtEndOfStream <> True
linea = a.ReadLine
num_linea = num_linea + 1
rs.AddNew
rs!Numeracion = num_linea
rs!Cod_prod = Mid(linea, 2, 2)
rs!Cod_cliente = Mid(linea, 4, 8)
rs.Update
rs.MoveLast
Loop
a.Close

num_registros = num_linea
'
MsgBox ("Fichero cargado")
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

RE:Importar TXT a Tabla Access

Publicado por genryrevelo genryrevelo@hotmail.com (1 intervención) el 13/04/2011 00:44:03
Buenas tardes...:

Tengo los siguientes archivos de texto:
AP.txt: 17 columnas
AF.txt: 19 columnas
CT.txt: 4 columnas
US.txt: 10 columnas
Sus campos están delimitados por comas, tienen ancho fijo y cada archivo tiene un número determinado de columnas.

Desde hace mucho tiempo estoy buscando un código en visual que me permita importar estos archivos a una bd de acces 2007. Estos archivos se deben importar a unas tablas con el mismo nombre y sus campos se encuentran delimitados por su extensión en caracteres y cada archivo por el número de columnas.
Lo que se busca es importarlos todos al tiempo, no uno por uno.

Les agradecería me colaboren ya que me estoy ahogando en mi trabajo a falta de esto.

Muchas gracias
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