Problemas con Crystal y ASP
Publicado por Rotsen (16 intervenciones) el 11/03/2009 09:21:05
Buenas mis queridos amigos...tengo un problemon para generar reportes en Crystal Report desde ASP.NET 2005....he creado un Dataset llamado Data2 y un Reporte llamado MiReporte al cual necesito llenarlo de acuerdo al codigo de empleado ingresado en la caja de Texto de mi Form.
tengo el siguiente codigo en el que pretenfo llenar el Dataset desde mi conexion a SQLserver y luego generar el Reporte.....
Mi problema es que en la linea marcada con los *** me dice lo siguiente: " EL TIPO 'MiReporte' no esta definido......NO SE QUE HACER !!! o alguien sabe como generar reportes
ya hice los Imports de CrystalDecisions y nada de nada
Protected Sub ButtonVerReporte_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVer.Click
Dim objdataset As New Data2
Dim miConexion As String
Dim Creporte As New MiReporte ' ***
miConexion = WebConfigurationManager.ConnectionStrings("vmstConnectionString").ConnectionString
Dim con As New SqlConnection(miConexion)
Try
con.Open()
Dim sqltexto As String = "SELECT * FROM REGISTRO WHERE EMPLEA_ID = '" & Trim(Txtcodigo.Text) & "'"
Dim da As SqlDataAdapter = New SqlDataAdapter(sqltexto, con)
da.Fill(objdataset)
Creporte.SetDataSource(objdataset)
Me.CrystalReportViewer1.ReportSource = Creporte
Catch ex As Exception
Response.Write(ex)
Finally
con.Close()
End Try
End Sub
tengo el siguiente codigo en el que pretenfo llenar el Dataset desde mi conexion a SQLserver y luego generar el Reporte.....
Mi problema es que en la linea marcada con los *** me dice lo siguiente: " EL TIPO 'MiReporte' no esta definido......NO SE QUE HACER !!! o alguien sabe como generar reportes
ya hice los Imports de CrystalDecisions y nada de nada
Protected Sub ButtonVerReporte_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonVer.Click
Dim objdataset As New Data2
Dim miConexion As String
Dim Creporte As New MiReporte ' ***
miConexion = WebConfigurationManager.ConnectionStrings("vmstConnectionString").ConnectionString
Dim con As New SqlConnection(miConexion)
Try
con.Open()
Dim sqltexto As String = "SELECT * FROM REGISTRO WHERE EMPLEA_ID = '" & Trim(Txtcodigo.Text) & "'"
Dim da As SqlDataAdapter = New SqlDataAdapter(sqltexto, con)
da.Fill(objdataset)
Creporte.SetDataSource(objdataset)
Me.CrystalReportViewer1.ReportSource = Creporte
Catch ex As Exception
Response.Write(ex)
Finally
con.Close()
End Try
End Sub
Valora esta pregunta


0