Incorpocar un TXT a Access
Publicado por Guillermo (39 intervenciones) el 13/11/2004 14:18:31
Ayuda please,.
Alguien de este foro me dijo una vez la solución de como poder generar desde mi programa en VB un archivo plano TXT y lo he logrado exitosamente. El ejemplo que me dio alguien de este foro fue este:
Dim NumX As Integer, UnionX As String
CadenaX = Trim("C:\Contabilidad\PA10112004.Txt")
NumX = FreeFile
Open CadenaX For Output As NumX
UnionX = "1"
UnionX = UnionX & Format(.Fields("Fecha"), "dd/mm/yyyy")
UnionX = UnionX & Format(.Fields("Numero"), "0000000000")
UnionX = UnionX & Format(.Fields("Neto"), "0000000000")
UnionX = UnionX & Format(.Fields("Iva"), "0000000000")
UnionX = UnionX & Format(.Fields("Total"), "0000000000")
Print #NumX, UnionX
Close NumX
Pues bien ahora necesito hacer lo contrario a este ejemplo. Quiero a partir de un TXT incorporar esos datos a un tabla Access.
Alguien puede ayudarme, please, es urgente. Gracias por todo
Saludos.
GUILLE
Alguien de este foro me dijo una vez la solución de como poder generar desde mi programa en VB un archivo plano TXT y lo he logrado exitosamente. El ejemplo que me dio alguien de este foro fue este:
Dim NumX As Integer, UnionX As String
CadenaX = Trim("C:\Contabilidad\PA10112004.Txt")
NumX = FreeFile
Open CadenaX For Output As NumX
UnionX = "1"
UnionX = UnionX & Format(.Fields("Fecha"), "dd/mm/yyyy")
UnionX = UnionX & Format(.Fields("Numero"), "0000000000")
UnionX = UnionX & Format(.Fields("Neto"), "0000000000")
UnionX = UnionX & Format(.Fields("Iva"), "0000000000")
UnionX = UnionX & Format(.Fields("Total"), "0000000000")
Print #NumX, UnionX
Close NumX
Pues bien ahora necesito hacer lo contrario a este ejemplo. Quiero a partir de un TXT incorporar esos datos a un tabla Access.
Alguien puede ayudarme, please, es urgente. Gracias por todo
Saludos.
GUILLE
Valora esta pregunta


0