Visual Basic - Error importar CSV en nuevo archivo Access

Life is soft - evento anual de software empresarial
   
Vista:

Error importar CSV en nuevo archivo Access

Publicado por Frank P. (3 intervenciones) el 19/12/2013 20:17:05
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:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function prueba()
Dim Adox_Cat As ADOX.Catalog
Dim sTablaDestino As String, sConnect As String, sSQL As String
Dim cnnActiva As ADODB.Connection
Set 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 = Nothing
Set 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 sSQL
cnnActiva.Close
End Function


Espero puedan ayudarme, y agradezco anticipadamente.

Saludos,

Frank P.
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