29/02/2008, 09:19
|
| | Fecha de Ingreso: junio-2007
Mensajes: 253
Antigüedad: 17 años, 6 meses Puntos: 0 | |
Re: Crear crystal reports desde una aplicación web Hola nuevamente he estado intentando llenar una tabla en sql 2005 desde un excel con el siguiente codigo:
Protected Sub btn_datos_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_datos.Click
Dim importador_hoja As String = "IMPORTADOR"
Dim appExcel As Object 'Excel.Application
Dim fila As Integer = 2
Dim import_ruc As Integer
Dim import_nombre As String
Dim import_direccion As String
Dim import_telefono As String
Dim import_fax As String
Dim import_correo As String
Dim import_email As String
Dim import_estado As String
System.Threading.Thread.CurrentThread.CurrentCultu re = System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")
appExcel = CreateObject("Excel.Application")
Dim mstrRutaOrigen2 As String = Path.GetFullPath(ful_importador.PostedFile.FileNam e.ToString)
Dim importador_libro As String = mstrRutaOrigen2
appExcel.Workbooks.open(filename:=importador_libro )
cn.Open()
With appExcel.Sheets(importador_hoja)
.Select()
While .Cells(fila, 1).Value > 0
import_ruc = .Cells(fila, 1).Value
import_nombre = .Cells(fila, 2).Value
import_direccion = .Cells(fila, 3).Value
import_telefono = .Cells(fila, 4).Value
import_fax = .Cells(fila, 5).Value
import_correo = .Cells(fila, 6).Value
import_email = .Cells(fila, 7).Value
import_estado = .Cells(fila, 8).Value
insertar_datos_importador(import_ruc, import_nombre, import_direccion, import_telefono, import_fax, import_correo, import_email, import_estado)
fila = fila + 1
End While
End With
cn.Close()
End Sub
pero al momento de ejecutar me sale el siguiente error:
Server Error in '/CrystalReports' Application.
--------------------------------------------------------------------------------
Cannot create ActiveX component.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.Exception: Cannot create ActiveX component.
Source Error:
Line 31: System.Threading.Thread.CurrentThread.CurrentCultu re = System.Globalization.CultureInfo.CreateSpecificCul ture("en-US")
Line 32:
Line 33: appExcel = CreateObject("Excel.Application")
Line 34: Dim mstrRutaOrigen2 As String = Path.GetFullPath(ful_importador.PostedFile.FileNam e.ToString)
Line 35: Dim importador_libro As String = mstrRutaOrigen2
Yo estoy haciendo esto porque necesito pasar siempre los datos de hojas de excel a las tablas en sql.
Gracias. |