Foros del Web » Programación para mayores de 30 ;) » .NET »

Pasar datos de Excell a SQL

Estas en el tema de Pasar datos de Excell a SQL en el foro de .NET en Foros del Web. Estoy utilizando este código para pasar un fichero Excell a SQl pero obtengo un error en "adExecuteNoRecords" Alguna sugerencia? Gracias. @import url("http://static.forosdelweb.com/clientscript/vbulletin_css/geshi.css"); Código vb: Ver ...
  #1 (permalink)  
Antiguo 24/03/2011, 04:58
 
Fecha de Ingreso: febrero-2010
Mensajes: 105
Antigüedad: 11 años, 3 meses
Puntos: 1
Pasar datos de Excell a SQL

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

Alguna sugerencia?

Gracias.



Código vb:
Ver original
  1. Dim cn As ADODB.Connection
  2.     Dim strSQL As String
  3.     Dim lngRecsAff As Long
  4.     Set cn = New ADODB.Connection
  5.     cn.Open "Provider=SQLOLEDB;Data Source=<server>;" & _
  6.         "Initial Catalog=<database>;User ID=<user>;Password=<password>"
  7.  
  8.     'Import by using OPENDATASOURCE.
  9.    strSQL = "SELECT * INTO XLImport6 FROM " & _
  10.         "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
  11.         "'Data Source=C:\test\xltest.xls;" & _
  12.         "Extended Properties=Excel 8.0')...[Customers$]"
  13.     Debug.Print strSQL
  14.     cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
  15.     Debug.Print "Records affected: " & lngRecsAff
  16.  
  17.     'Import by using OPENROWSET and object name.
  18.    strSQL = "SELECT * INTO XLImport7 FROM " & _
  19.         "OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
  20.         "'Excel 8.0;Database=C:\test\xltest.xls', " & _
  21.         "[Customers$])"
  22.     Debug.Print strSQL
  23.     cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
  24.     Debug.Print "Records affected: " & lngRecsAff
  25.  
  26.     'Import by using OPENROWSET and SELECT query.
  27.    strSQL = "SELECT * INTO XLImport8 FROM " & _
  28.         "OPENROWSET('Microsoft.Jet.OLEDB.4.0', " & _
  29.         "'Excel 8.0;Database=C:\test\xltest.xls', " & _
  30.         "'SELECT * FROM [Customers$]')"
  31.     Debug.Print strSQL
  32.     cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
  33.     Debug.Print "Records affected: " & lngRecsAff
  34.  
  35.     cn.Close
  36.     Set cn = Nothing
  #2 (permalink)  
Antiguo 31/03/2011, 18:59
Avatar de Fann_Lavigne  
Fecha de Ingreso: diciembre-2004
Mensajes: 622
Antigüedad: 16 años, 4 meses
Puntos: 12
Respuesta: Pasar datos de Excell a SQL

Porque no usas un DTS o un SSIS package que haga toda la logica y la conversion/transformacion de datos?
__________________
"Entre Mas Brillante Es Una Mente, Tiene Que Luchar Contra Demonios Internos Mas Poderosos"
[email protected]
  #3 (permalink)  
Antiguo 01/04/2011, 00:09
 
Fecha de Ingreso: febrero-2010
Mensajes: 105
Antigüedad: 11 años, 3 meses
Puntos: 1
Respuesta: Pasar datos de Excell a SQL

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?
  #4 (permalink)  
Antiguo 01/04/2011, 10:17
Avatar de Fann_Lavigne  
Fecha de Ingreso: diciembre-2004
Mensajes: 622
Antigüedad: 16 años, 4 meses
Puntos: 12
Respuesta: Pasar datos de Excell a SQL

Que SQL estas usando? 2000, 2005 o superior?
__________________
"Entre Mas Brillante Es Una Mente, Tiene Que Luchar Contra Demonios Internos Mas Poderosos"
[email protected]
  #5 (permalink)  
Antiguo 03/04/2011, 23:58
 
Fecha de Ingreso: febrero-2010
Mensajes: 105
Antigüedad: 11 años, 3 meses
Puntos: 1
Respuesta: Pasar datos de Excell a SQL

Estoy usando 2005.

Etiquetas: excell, pasar, sql
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 13:36.