Hola,
Tengo una pagina, para exportar los datos de un excel a sql server.
He estado comprobando y el error salta en oCnn.Open(), sin embargo si lo hago con el depurador de Visual Studio, pasa los datos correctamente
El codigo es el siguiente, por si me podeis hechar una mano
Código ASP:
Ver originalProtected Sub cmdSubir_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdSubir.Click
Dim sExt As String = String.Empty
Dim sName As String = String.Empty
Dim excelconex As String = ""
Dim arch As String
Dim sWorkbook As String
Dim oCnn As New OleDbConnection
Dim oCmd As New OleDbCommand
Dim oDr As OleDbDataReader
'COMPRUEBO SI SE HA SUBIDO ALGUN ARCHIVO
If uploadFile.HasFile Then
'RECOGO EL NOMBRE DEL ARCHIVO
sName = uploadFile.FileName
sExt = Path.GetExtension(sName)
'GUARDO EL ARCHIVO EN LA CARPETA TEMP
uploadFile.SaveAs(MapPath("tmp/" & sName))
Select Case sExt
Case Is = ".xls"
excelconex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("tmp/" & sName) & ";" & _
"Extended Properties=Excel 8.0;"
Case Is = ".xlsx"
excelconex = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("tmp/" & sName) & ";" & _
"Extended Properties=Excel 12.0;"
End Select
sWorkbook = "[Hoja1$]"
'OBTENGO LOS DATOS NECESARIOS DEL ARCHIVO EXCEL
oCnn = New OleDbConnection
oCnn.ConnectionString = excelconex
oCmd = New OleDbCommand("SELECT F2,F3,F4,F5,F6,F7,F8 FROM " & sWorkbook & " where F7 is not null", oCnn)
'aqui es donde casca
oCnn.Open()[/B][/I]
oDr = oCmd.ExecuteReader
If oDr.HasRows Then
while odr.read()
'Introduzco los datos en la tabla mediante proc.almacenado
end while
End if
End if
End sub