Curso Software de Ventas en Visual Basic Parte 21 Reporte con DataReport

Introducción

En este vídeo enseño de una manera fácil y rápida como crear un reporte con DataReport que ya viene incluido con Visual Basic. Para mostrar su uso se creó un reporte de Inventario donde se muestran todos los productos del inventario.

¿Que es Data Report?

Data Report es un generador de informes de datos versátil que presenta la capacidad de crear informes jerárquicos por bandas.

Utilizado junto con una base de datos como el diseñador de entorno de datos, puede crear informes a partir de varias tablas relacionales diferentes.

Además de crear informes imprimibles, también puede exportar el informe a HTML o archivos de texto.

Vídeo No. 21

Lo Primero que hacemos es crear un un reporte con DataReport para eso damos clic derecho sobre el Proyecto en la ventana de Proyectos y Damos clic en DataReport.

Segundo es ajustar las propiedades del Reporte como son el MarginLeft y el MarginRigth ambas propiedades debemos colocarlas a cero(0) .

Tercero cambiar es el ancho del Reporte para eso hay que cambiar la propiedad ReportWidth a 11685 mas o menos esa es la medida.

Reporte de Inventario en DataRepor Visual Basic 6

Reporte de Inventario en DataRepor Visual Basic 6Así debe quedar el reporte igual a la imagen anterior.

La manera como se carga la información en un DataReport es por medio de una consulta que se hace a la tabla productos.

Luego esa consulta se la pasamos al reporte creado por medio de la propiedad DataSource de la siguente manera:

Sub ImprimirInventario()
    Dim RecorsetTempo As New ADODB.Recordset
    Dim Sql As String
    
    Sql = "Select CodigoPro, NombrePro, ExistPro, PCostoPro, PVenta1Pro, (ExistPro * PCostoPro) as Subtotal From tblProductos Order by NombrePro ASC "
    RecorsetTempo.Open Sql, ConexionADO, adOpenDynamic, adLockReadOnly
    
    If RecorsetTempo.RecordCount > 0 Then
       Set Dtr_Inventario.DataSource = RecorsetTempo
       
       With Dtr_Inventario
            .Sections("Sección4").Controls("lblNombreEmpresa").Caption = Glo_NombreEmpresa
       End With
       
       
    End If
    
    

End Sub

De esta manera y así de sencillo es como se crea un reporte usando DataReport de Visual Basic 6

Vídeo anterior:  Curso Software de Ventas Parte 20, Borrar y Exportar Productos

Fuente externa: Microsoft

Comentarios de Facebook

Deja un comentario