Porque me da este error con ODBC??
Publicado por HECTOR (61 intervenciones) el 12/03/2004 15:16:02
Hola, estoy intentando exportar un archivo excel a una tabla SQL, pero me da el siguente error: "ODBC: Falló la llamada", el codigo que estoy usando es este:
Dim cnn As ADODB.Connection
Dim INumRegAfect As Long
Dim strSQL As String
'Abrimos una conexion con el libro de trabajo
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = C:\"NombreLibro.xls"
.Properties("Extended Properties") = "Excel 8.0"
.Open
End With
'Importamos utilizando una cadena ODBC
strSQL = "SELECT * INTO [ODBC;DRIVER={SQL Server};SERVER=NombreServidor;UID=sa; " & _
"PWD=;DATABASE=NombreBaseDeDatos].TablaExcel " & _
"FROM [Libro1$] "
'Ejecutamos la consulta
cnn.Execute strSQL, INumRegAfect, adExecuteNoRecords
MsgBox "Numero de Registros afectados:" & INumRegAfect
cnn.Close 'cierro conexion
Bueno espero me puedan ayudar, gracias de antemano... o si existe algun codigo mas facil, se los agradeceria si me lo pasan
Dim cnn As ADODB.Connection
Dim INumRegAfect As Long
Dim strSQL As String
'Abrimos una conexion con el libro de trabajo
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source = C:\"NombreLibro.xls"
.Properties("Extended Properties") = "Excel 8.0"
.Open
End With
'Importamos utilizando una cadena ODBC
strSQL = "SELECT * INTO [ODBC;DRIVER={SQL Server};SERVER=NombreServidor;UID=sa; " & _
"PWD=;DATABASE=NombreBaseDeDatos].TablaExcel " & _
"FROM [Libro1$] "
'Ejecutamos la consulta
cnn.Execute strSQL, INumRegAfect, adExecuteNoRecords
MsgBox "Numero de Registros afectados:" & INumRegAfect
cnn.Close 'cierro conexion
Bueno espero me puedan ayudar, gracias de antemano... o si existe algun codigo mas facil, se los agradeceria si me lo pasan
Valora esta pregunta
0