Pasar datos de Excell a SQL

[fernan2010]

Estoy utilizando este código para pasar un fichero Excell a SQl pero obtengo un error en "adExecuteNoRecords"

Alguna sugerencia?

Gracias.

Código vb:

Dim cn As ADODB.Connection
    Dim strSQL As String
    Dim lngRecsAff As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=SQLOLEDB;Data Source=<server>;" & _
        "Initial Catalog=<database>;User ID=<user>;Password=<password>"
 
    'Import by using OPENDATASOURCE.
    strSQL = "SELECT * INTO XLImport6 FROM " & _
        "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
        "'Data Source=C:\test\xltest.xls;" & _
        "Extended Properties=Excel 8.0')...[Customers$]"
    Debug.Print strSQL
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    Debug.Print "Records affected: " & lngRecsAff
 
    'Import by using OPENROWSET and object name.
    strSQL = "SELECT * INTO XLImport7 FROM " & _
        "OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
        "'Excel 8.0;Database=C:\test\xltest.xls', " & _
        "[Customers$])"
    Debug.Print strSQL
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    Debug.Print "Records affected: " & lngRecsAff
 
    'Import by using OPENROWSET and SELECT query.
    strSQL = "SELECT * INTO XLImport8 FROM " & _
        "OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
        "'Excel 8.0;Database=C:\test\xltest.xls', " & _
        "'SELECT * FROM [Customers$]')"
    Debug.Print strSQL
    cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    Debug.Print "Records affected: " & lngRecsAff
 
    cn.Close
    Set cn = Nothing
 

[Fann_Lavigne]

Porque no usas un DTS o un SSIS package que haga toda la logica y la conversion/transformacion de datos?

[fernan2010]

Gracias por tu respuesta.

Lo que me comtentas es la solución ideal, el problema es que no tengo instalado SSIS instalado en mi servidor SQL, Sabes el costo de instalar este paquete?

[Fann_Lavigne]

Que SQL estas usando? 2000, 2005 o superior?

[fernan2010]

Estoy usando 2005.