Visual Basic - Uso de Reportes

Luego de realizar el diseño de los formularios y realizar la codificacion para que nuestros procesos se comporten de la manera como lo hemos planeado ... lo que sigue es crear los reportes a la medida de los usuarios, en el caso de visual basic como herramienta de reporte el mas usado sin lugar a dudas es el Crystal Reports ,en muchos foros siempre hay preguntas como esta ¿Como creo mis informes en vb? , Ayuda con Cristal Reports (CR) y VB ..., etc etc.
Voy a mostrarles como trabajar con el CR desde VB.

1)Bien lo primero que vamos a a hacer es crear una vista en el T-SQL en mi caso lo hice en SQL SERVER 2008, usando como BD Northwind.

2)Ahora vamos a crear un ODBC que se conecta a nuestro SQL SERVER a la BD Northwind, como nombre del DSN ponemos SQL_144

3)Ya creamos nuestro ODBC que nos va permitir trabajar con el CR, vamos a abrir el Crystal Reports 8

4)Vamos a crear un informe nuevo con la ayuda del asistente, seleccionamos la primera opción y aceptamos.

5)Seguimos los pasos del asistente, hacemos clic en Base de Datos, seleccionamos nuestro ODBC y buscamos la vista que creamos.

6)Seleccionamos todos los campos de la vista.

7)Agupamos por el Nro de la Orden

8)Como campo de resumen seleccionamos TOTAL para que nos haga la sumatoria del importe de todo los productos que contempla la orden.

9)Por ultimo ponemos un titulo a nuestro informe

10)Realizamos algunos retoques para que nos quede así nuestro informe

luego guardamos nuestro informe con el siguiente nombre Listado de Ordenes.rpt

11)Ahora nos toca diseñar y poner un poco de código a nuestro programa para poder llamar nuestro informe desde VB, lo primero que vamos a hacer es Referencia al componente CRYSTAL REPORTS

12)Diseñamos el siguiente formulario, como se muestra en la figura.

13)El código para el botón que llama al reporte, es el siguiente

Private Sub Command1_Click()

cr.WindowShowExportBtn = True
cr.WindowShowPrintBtn = True
cr.WindowShowPrintSetupBtn = True

'Vista Previa del Informe
cr.Destination = 0
cr.WindowTitle = "Informes con VB - Crystal Reports 8 /" & Now

'Especificamos la ubicacion del informe
cr.ReportFileName = "c:\Listado de Ordenes.rpt"

'Nos conectamos al ODBC que creamos
cr.Connect = "DSN=SQL_144;UID=sa;PWD=123456"


If ImpDestino = 0 Then cr.WindowState = crptMaximized

'Llamamos al informe
cr.Action = 1

End Sub
14)Bien llego el momento de ver los resultados, presionamos la tecla F5 , llamamos al reporte y listo!!!!!!!!!!!!!!! ...






fácil no??? , bueno espero que les ayude en cuanto a como generar sus reportes desde VB usando el CR.

En un próximo post veremos como llamar un reporte de acuerdo a ciertos parámetros