sábado, diciembre 7, 2024

Como crear reportes Crystal Reports con ASP.NET

Crear Reportes Crystal Reports en ASP.NET es casi igual a como los creamos en VB.NET y a como lo expongo en este artículo es como me parece que es la forma mas sencilla y la que me ha dado mejor resultado.

Descargar Ejemplo CrystalASP_VB.zip
El directorio virtual debe llamarse "CrystalASP_VB"

Como primer paso debes crear un dataset en la aplicación web


Luego le agregamos el código a nuestro dataset (este código es para este ejemplo, ustede debe modificarlo a su necesidad)

<?xml version="1.0" standalone="yes" ?>
<xs:schema id="DsPruebas" />

Ahora debemos crear el reporte de crystal.

Y una ves creado vamos al Field Explorer del reporte y agregamos la base de datos, en este caso agregamos el dataset que tenemos en nuestra solución.

Buscamos el dataset y lo agregamos.

El siguiente paso seria construir nuestro reporte con los datos que nos permite el dataset. (Para más entendimiento ver solución en archivo de descarga)

Una ves que tenemos el DataSet y el Reporte de Crystal hechos ahora nos vamos mostrarlo en la página web.

Agregamos un CrystalReportViewer donde deseamos que se vea el reporte.

Y en el código le enviamos el dataset lleno con los datos que deseamos que se muestren en el reporte.

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DsPruebas
Dim cr As New crPrueba

‘Es importante utilizar el System.Data.MissingSchemaAction.Ignore,
‘para que nos evite errores y haga el merge correctamente
ds.Merge(ReturnDataSet, False, System.Data.MissingSchemaAction.Ignore)

cr.SetDataSource(ds)
Me.crvPrueba.ReportSource = cr
End Sub

‘Este ReturnDataSet es solo a modo de ejemplo,
‘lo ideal es que el dataset sea el producto de alguna
‘consulta a la base de datos,
‘solo que para efectos del ejemplo creamos el dataset manualmente.
Private Function ReturnDataSet() As DataSet
Dim dt As New DataTable
Dim dr As DataRow
Dim ds As New DataSet

dt.Columns.Add(New DataColumn("CodigoEjecutivo", GetType(Integer)))
dt.Columns.Add(New DataColumn("NombreEjecutivo", GetType(String)))

dr = dt.NewRow()
dr("CodigoEjecutivo") = 1
dr("NombreEjecutivo") = "Carlos Solano"
dt.Rows.Add(dr)

dr = dt.NewRow()
dr("CodigoEjecutivo") = 2
dr("NombreEjecutivo") = "Marta Campos"
dt.Rows.Add(dr)

dr = dt.NewRow()
dr("CodigoEjecutivo") = 3
dr("NombreEjecutivo") = "Raúl Ramirez"
dt.Rows.Add(dr)

ds.Tables.Add(dt)
ds.Tables(0).TableName = "Ejecutivos"

Return ds

End Function

Luego de esto solo nos queda compilar nuestra aplicación y el resultado debería verse algo así.

Ahora si, usted sabe como crear reportes Crysta Reports para aplicaciones ASP.NET.

Descargar Ejemplo CrystalASP_VB.zip
El directorio virtual debe llamarse "CrystalASP_VB"

Artículo anterior
Artículo siguiente
Roy Rojas
Roy Rojashttp://www.dotnetcr.com
Con más de 20 años de experiencia en programación, experto en lenguajes .NET, VB, C#, ASP.NET, Xamarin, XCode, DBA en SQL Server. Creador de dotnetcr.com, sitio web para programadores en español. royrojas.com | dotnetcr.com | GitHub
Roy Rojas
Roy Rojashttp://www.dotnetcr.com
Con más de 20 años de experiencia en programación, experto en lenguajes .NET, VB, C#, ASP.NET, Xamarin, XCode, DBA en SQL Server. Creador de dotnetcr.com, sitio web para programadores en español. royrojas.com | dotnetcr.com | GitHub