aplicacion para importar de CSV a MDB Visual Basic 6

[naxinconread]

Hola a todos, tengo la siguiente consulta.

DATOS: Tengo un archivo que exporto de un software contable y ese archivo es extension CSV, y por otro lado estoy desarrollando una aplicación en VB 6 la cual conecto por odbc a una BD MDB (Access), teniendo estos dos ultimos formulo la pregunta.

¿Es posible importar el archivo .CSV para agregarlo al final del archivo .MDB?
Espero que haya sido claro en lo que necesito hacer, y desde ya agradezco a quien pueda ayudarme. Muchas Gracias.

[aldo1982]

aca te paso un proyecto para que lo mires


www.sistemas-web.com.ar/vb6/convertidorDB.rar


pruebalo y luego me dices


salu2

[Avellaneda]

Iniciado por naxinconread

Hola a todos, tengo la siguiente consulta.

DATOS: Tengo un archivo que exporto de un software contable y ese archivo es extension CSV, y por otro lado estoy desarrollando una aplicación en VB 6 la cual conecto por odbc a una BD MDB (Access), teniendo estos dos ultimos formulo la pregunta.

¿Es posible importar el archivo .CSV para agregarlo al final del archivo .MDB?
Espero que haya sido claro en lo que necesito hacer, y desde ya agradezco a quien pueda ayudarme. Muchas Gracias.

Hola, miré el link que te puso aldo1982 y me parece demasiado complicado. Aquí tienes otra forma de añadir los datos de un .csv a una tabla Access

Código:

Dim cn As New ADODB.Connection
Dim BdAccess As String  ' Ubicación y nombre de la BD Access

cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & App.Path
BdAccess = App.Path & "\BaseDeDatos.mdb"
cn.Execute "INSERT INTO LaTabla IN '" & BdAccess & "' SELECT * FROM [Archivo.csv]"

[aldo1982]

buenas, esta beno tu codigo Avda :P


ese que puse es mas para ir sacando lo que se necesita.

Salu2

[naxinconread]

muchas gracias estoy trabajando en ello, les contare como ma ha ido.

gracias.

[jrivernike]

me puedes decir como solicionastes tu problema, tengo el mismo incomveniete...

gracias [email protected]

Iniciado por Avellaneda

Hola, miré el link que te puso aldo1982 y me parece demasiado complicado. Aquí tienes otra forma de añadir los datos de un .csv a una tabla Access

Código:

Dim cn As New ADODB.Connection
Dim BdAccess As String  ' Ubicación y nombre de la BD Access

cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};DBQ=" & App.Path
BdAccess = App.Path & "\BaseDeDatos.mdb"
cn.Execute "INSERT INTO LaTabla IN '" & BdAccess & "' SELECT * FROM [Archivo.csv]"

[fnico2510]

Dim obj As Object
Set obj = CreateObject("access.Application")

obj.OpenCurrentDatabase "M:\MVP00G020\OrdenesPagoSwift\ORDENESPAGOSWIFT.MD B", True

obj.DoCmd.TransferText 0, "", "Resultado", "c:\pp.csv", True, ""

obj.CloseCurrentDatabase