Error importar CSV en archivo Access
Publicado por Frank P. (1 intervención) el 19/12/2013 20:18:33
Buenas compañeros, pido su ayuda con respecto a la importación de un archivo CSV a un nuevo archivo de ACCESS, supuestamente el proceso se realiza correctamente, pero al momento de abrir el archivo ACCESS generado, aparece la tabla pero con una sola columna con cabecera de texto ilegible y sin datos, mi código es el siguiente:
Espero puedan ayudarme, y agradezco anticipadamente.
Saludos,
Frank P.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function prueba()
Dim Adox_Cat As ADOX.CatalogDim sTablaDestino As String, sConnect As String, sSQL As String
Dim cnnActiva As ADODB.ConnectionSet Adox_Cat = New ADOX.Catalog
Call Adox_Cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\SIPNA\temp\reporte.mdb;")
Set Adox_Cat = NothingSet cnnActiva = New ADODB.Connection
cnnActiva.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SIPNA\temp\reporte.mdb; Jet OLEDB:Engine Type=4;"
sTablaDestino = "[reporte]"
sSQL = "SELECT * INTO [reporte] FROM [Text;DATABASE=C:\SIPNA\temp].[reporte.csv]"
cnnActiva.Execute sSQLcnnActiva.CloseEnd Function
Espero puedan ayudarme, y agradezco anticipadamente.
Saludos,
Frank P.
Valora esta pregunta
0