Sección de tutoriales y manuales vb

Crear un reporte simple utilizando el DataReport

Esta página muestra paso a paso como crear un reporte básico utilizando el DataReport de Visual basic. También al final de la sección, podés descargar otro manual en formato PDF que explica los conceptos básicos para diseñar y crear reportes mediante este componente.

Nota : En este enlace además, se listan algunos ejemplos variados con el código fuente que te pueden ser útiles: Página de ejemplos sobre DataReport

-- -- Indice

Paso 1 - Crear la base de datos
Paso 2 - Añadir el DataReport y crear el reporte
Paso 3 - Código fuente para visualizar el reporte
Ejemplo : Crear un reporte con un DataEnvironment y parámetros
Otro manual básico para descargar

Paso 1 - Crear la base de datos

Abrir el access y crear una base de datos llamada bd1.mdb.
Crear una tabla llamada Clientes.
Añadir tres campos de tipo Texto llamados: Nombre, Apellido , Email
Añadir algunos datos
Ubicar la base de datos en la carpeta del proyecto de visual basic.

Añadir el Datareport y Crear el reporte.

Pasos

Iniciar un nuevo proyecto y guardarlo en la carpeta donde estaba ubicada la base de datos creada anteriormente
Añadir un reporte desde el menú Proyecto, seleccionando la opción DataReport.

Seleccionar el Reporte y cambiarle el nombre a ReporteClientes. Desde el menú Explorador de proyecto se verá algo similar al siguiente gráfico:

vista de la ventana de exploración de proyectos de vb

La vista del reporte está dividida por secciones:

Encabezado del informe
Encabezado de la página
Detalle (Donde se visualizarán los datos de la bd)
y el pie de página.

Al añadir un reporte al proyecto, en el Cuadro de controles de visual basic, ahora se añadío automáticamente una pestaña con controles para el DataReport .

Los controles se llaman : RptLabel, RptTextBox, RptImage, RptLine, RptShape y RptFunction ).

Aunque en este ejemplo solo se usarán los RptLabel y RptTextBox. El primero para usarlo en la sección de Encabezados, y los textBox para mostrar los registros de la base de datos.

Ahora en este paso se agregará un control rptLabel en la sección de Encabezado de reporte ( El primero de todo ). Para ello dibujar un rptLabel en dicha sección, si se quiere cambiarle el color de la fuente, el tamaño etc.. eso es opcional y se puede hacer desde la ventana de propiedades de vb y también en tiempo de ejecución. Para cambiar el texto del rptLabel, utilizar la propiedad Caption

La vista quedará algo asi:

Nota: También si se quiere se puede colocar una línea con el control RptLine, para separar el encabezado principal del resto

Ahora se agregarán tres RptLabel mas en la sección Encabezado de página. Estos Label servirán para mostrar las columnas. En este caso añadir tres como muestra la imagen

Podés establecerle un color y estilo de fuente a gusto desde la ventana de propeidades

Ahora, se utilizará el control rptTextBox para la sección de " Detalle ". Los rptTextBox, que serán lógicamente tres, estarán enlazados mediante la propiedad DataField, a cada campo correspondiente de la tabla Clientes

Añadir tres rptTextBox como se ve en el gráfico:

Al añadirlos, el texto por defecto que visualiza es: " No enlazado " . Esto es por que todavía no se ha especificado ningún campo para ese textbox en la propiedad DataField de los mismos

Ahora seleccionar el primero y en el DataField colocar el nombre del primer campo de la base de datos que se había creado, es decir el campo " Nombre " . Hacer lo mismo para los otros dos rptTextBox, para enlazar el campo " Apellido " y el campo " Email "

Quedará mas o menos de esta forma:

Código fuente en el formulario para visualizar el reporte

En este último paso se añadirán tres controles CommandButton en el formulario.

Un botón será para añadir un nuevo registro a la base de datos. Otro para eliminar un registro, y el otro para visualizar el informe.

El Commandbutton para crear un nuevo registro renombrarlo a CmdAgregar
El Command para eliminar un registro renombrarlo a CmdEliminar
El Command para visualizar el informe renombrarlo a CmdReporte

Vista del formulario:

formulario con los controles commandbutton necesarios para el ejemplo

Ahora añadir desde el menú Referencias de visual basic, la referencia para poder utilizar ADO: Microsoft Activex Data Objects

El código a colocar en el formulario sería el siguiente:

Option Explicit '* Nota: Añadir la Referencia a Microsoft Activex data Object '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Variables para el Recorset y la conexión ADO Private cn As ADODB.Connection Private rst As ADODB.Recordset ' botón para eliminar ''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub cmdEliminar_Click() Dim Nombre As String Nombre = InputBox(" Eliminar registro ", " Escriba el nombre del cliente a eliminar ") If Nombre <> vbNullString Then 'Ejecuta la sentencia SQL de eliminación cn.Execute "DELETE FROM Clientes WHERE Nombre = '" & Nombre & "'" End If End Sub 'Botón para añadir un registro de la base de datos ''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub cmdAgregar_Click() On Error GoTo Error_add Dim Nombre As String Dim Apellido As String Dim Email As String Dim Sql As String Nombre = InputBox(" Añadir registros ", " Escriba el nombre") Apellido = InputBox(" Añadir registros ", " Escriba el Apellido ") Email = InputBox(" Añadir registros ", " Escriba el Email ") Sql = "INSERT INTO Clientes VALUES ( '" & Nombre & "', '" & Apellido & "', '" & Email & "')" 'Ejecuta la sentencia SQL para añadidr el registro cn.Execute Sql MsgBox " Registros añadidos ", vbInformation Exit Sub Error_add: MsgBox Err.Description, vbCritical End Sub ' botón para ver el reporte ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub CmdReporte_Click() Set rst = cn.Execute("SELECT Nombre, Apellido, Email FROM Clientes ORDER BY Nombre") 'Asigna el recordset al reporte Set ReporteClientes.DataSource = rst ' Muestra el reporte ReporteClientes.Show vbModal End Sub

Ejemplo para crear un reporte con un DataEnvironment y parámetros

Este simple ejemplo realizado por Prakash muestra como crear un reporte con un Dataenvironment y poderle pasar dos parámetros en tiempo de ejecución.

Nota: En este otro enlace hay otro ejemplo : Refrescar Datareport al cambiar el valor del parámetro

En el zip para descargar hay una base Access con una tabla, y uno de los campos es de tipo fecha ( campo OrderDate ).

Luego en el formulario, hay dos controles Dtpicker para seleccionar el rango de fecha para obtener los registros usando la sentencia between, y poder desplegar y visualizar el reporte con el conjunto de registros

Descargar

Manual en formato PDF

El contenido del manual es el siguiente ; ( Nota. El tutorial incluye ejemplos prácticos utilizando la base de datos que se instala junto a Visual basic 6.0 ( BD Biblio.MDB )

Introducción al DataReport y descripción del contenido del manual.
El DataEnvironment : Como configurar el entorno de datos y la conexión
Utilización de comandos para acceder y manipular la información para crear el informe
Ejemplo para utilizar el Generador SQL
Ejemplo para crear campos agregados
Como usar el control rptFunction
Enlazar el reporte con nuestro programa

Descargar manual

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb