Como migras excel a tabla sql

[invenible]

Hola buen dia
primero que nada gracias por tomarse el tiempo de leer este post.

estoy haciendo un programa de integration service
pero mi problema es k al crearlo nada mas puedo migrar informacion de una hoja de un archivo de excel
mi duda es como le puedo hacer para que me migre toda la informacion de todas las hojas de excel
ya que el archivo
puede variar, en cuanto al numero de hojas

[wwwmaster]

"estoy haciendo un programa de integration service" (en que lenguaje?)


Mediante programacion, ya sea con VBA (Visual Basic applications), embebido dentro del mismo archivo .xls (con Alt+F11 ingresas al entorno de desarrollo), desde alli es posible manipular worksheets, rows, cells, valores de las celdas, etc.

o bien con una aplicacion VB6 o .NET que manipule el archivo leyendo cada hoja, viendo si tiene contenido y luego leyendo renglon por renglon para hacer la insercion mediante una conexion hacia el Sql Server.

[invenible]

es en vb.net

[invenible]

tendras un ejemplo???

[wwwmaster]

Con codigo ASP.NET:

Abro un archivo .XLS como si fuera una database

Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & archivoExcel & ";" & "Extended Properties=Excel 8.0;" 'HDR=Yes;IMEX=0;"
Dim oledbConn As OleDbConnection = New OleDbConnection(connString)
oledbConn.Open()

ACCEDO A LA HOJA COMO SI FUERA UNA TABLA

Dim rsTiemposExcel
strSql = "SELECT * FROM [" & hoja & "$]"
Dim cmd = New OleDbCommand(strSql, oledbConn)
rsTiemposExcel = cmd.ExecuteReader()

y luego ya voy ciclando y recuperando como cualquier reader para armar los inserts y colocar la info en mi tabla Sql Server (ejemplo):



If Not IsDBNull(rsTiemposExcel(0)) Then colA = rsTiemposExcel(0)
If Not IsDBNull(rsTiemposExcel(1)) Then colB = rsTiemposExcel(1)
If Not IsDBNull(rsTiemposExcel(2)) Then colC = rsTiemposExcel(2)
If Not IsDBNull(rsTiemposExcel(3)) Then colD = rsTiemposExcel(3)


strSql = "INSErT INTO CARRERAS (idCategoria, moto, nombre, marca, estado, CH01_ideal, transponder) VALUES("
strSql = strSql & "" & idCategoria & ","
strSql = strSql & "'" & moto & "',"
strSql = strSql & "'" & Nombre.ToUpper() & "',"

[ingelenalopez]

http://social.msdn.microsoft.com/Forums/en-US/sqlintegrationservices/thread/3562ff5b-36a7-4589-82c9-d6638280150b

http://msdn.microsoft.com/en-us/library/ms345182.aspx