Reportes en visual basic.net con Crystal Reports



En esta ocasión veremos como generar reportes en visual basic.net usando Crystal Reports.

Antes que nada, la conexión a la base de datos se realizará mediante la librería creada por pecesama, lo cuál facilitará las cosas.

Una vez que tenemos lo anterior, procederemos a crear la parte de reportes.

Primeramente, agregaremos 2 botones más al formulario que creamos en la conexión a la base de datos, uno para realizar consultas y otro para generar el reporte

Los botones se llamaran btnReporte y btnConsulta respectivamente

Después agregaremos un nuevo formulario, al que llamaremos frmReporte, y dentro de este agregaremos un CrystalReportViewer, que tendrá como nombre crvMiReporte

Ahora tenemos que agregar un nuevo componente Crystal Report (Project->add New Item) y lo llamaremos rptAlumnos

Después de esto nos aparecerá un cuadro de diálogo para seleccionar la forma en la que queremos crear nuestro reporte. Escogeremos la opción de Using the Report Wizard

A continuación, debemos seleccionar la base de datos que queremos mostrar en nuestro reporte. Para esto iremos a la opción Create New Connection->Access/Excel(DAO) y debemos indicar la ruta de la base de datos.

Posteriormente seleccionaremos la o las tablas que queremos agregar y los campos que queremos que aparezcan en el reporte

Después de esto podemos seleccionar otras opciones como por cual campo queremos agrupar los registros y el estilo del reporte.

Ahora vamos a la parte del código. Primeramente, vamos a implementar la parte de consultas dentro del evento clic del botón de consultas.

Private Sub btnConsulta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsulta.Click
        dt = con.ejecutaSql("SELECT * FROM usuarios WHERE usuario = '" + txtUsuario.Text + "'")
        data.DataSource = dt
End Sub

Este código sólo realiza consultas de acuerdo al valor colocado en el txtUsuario (nombre del usuario).

Ahora, debemos mostrar los resultados de la consulta en el reporte, para esto agregaremos el siguiente código en el evento clic del del botón Reporte (btnReporte)

Private Sub btnReporte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReporte.Click
        Dim rpt As New rptAlumnos
        rpt.SetDataSource(dt)
        frmReporte.crvMiReporte.ReportSource = rpt
        frmReporte.Show()
End Sub

Y con esto ya tendremos nuestro reporte generado :P

3 comentarios ↓

#1 kodr on 11.29.08 at 2:20 am

Muy bueno!

#2 Visual basic.net + Crystal Reports « Programación, tecnología, humor, curiosidades… on 11.29.08 at 2:23 am

[...] TUTORIAL [...]

#3   Reportes en Crystal Reports con VB.Net by Pecesama.Net [weblog] on 11.29.08 at 2:24 am

[...] Reportes en visual basic.net con Crystal Reports [...]

Leave a Comment