»
USANDO CRYSTAL REPORTS 8 CON VISUAL BASIC 6
Programación, PHP, Reportes con Crystal Reports 8

USANDO CRYSTAL REPORTS 8 CON VISUAL BASIC 6

SEAGATE CRYSTAL REPORTS

Está preparado para trabajar con base de datos para ayudarlo a analizar e interpretar información importante. Facilita la creación de informes simples y dispone también de herramientas poderosas necesarias para generar informes complejos o especializados.

PODEMOS CREAR CUALQUIER INFORME QUE SE PUEDA IMAGINAR

Seagate Crystal Reports está preparado para generar el informe que desea desde prácticamente cualquier fuente de datos. Los asistentes incorporados lo guían paso a paso a través de la creación de informes y la complexión de tareas comunes. Las fórmulas, tablas cruzadas, subinformes y formatos condicionales ayudan a entender mejor los datos y descubrir relaciones importantes que, de lo contrario, podrían estar ocultas. Los gráficos y mapas geográficos proporcionan información en forma visual cuando las palabras y números no son suficiente.

PROYECTO PARA ACCEDER A UN INFORME CREADO EN CRYSTAL REPORTS CON VISUAL BASIC 6.

Visual Basic 6 tiene las herramientas para poder trabajar con informes creados en Crystal Reports,

En este ejemplo vamos a usar la versión 8 o 8.5 (tiene la misma sintaxis) de Crystal Reports y Visual Basic 6.0 y como fuente de datos usaremos Access 2007.


 

CREANDO LA BASE D E DATOS.

base de datos access

ALIMENTANDO LA BASE DE DATOS

Tabla Access

CREANDO EL INFORME EN CRYSTAL REPORTS 8

Informe Crystal Reports

Escogemos la opción Database Files / Find Database Files, Click en el botón Add

Ubicado la base de datos hacemos click en el botón Abrir.

Conectar Crystal reports con Base d eDatos

Nos aparece la siguiente ventana. Hacemos click en el elemento tblCliente y hacemos click en el botón Add se marcara con un Check y luego hacemos click en el botón Close.

Enlazar tabla a crystal reports

Nos muestra la siguiente ventana le hacemos click en el botón OK.

Vincular coneccion con crystal reports

Arrastramos los campos al reporte debe quedar así como muestra la figura.

Informe Crystal Reports 8

Guardamos el reporte y queda listo para usarlo con Visual Basic 6.0

Guardar Informe Crystal

CREANDO EL PROYECTO EN VISUAL BASIC

Proyecto Visual Basic

Agregamos los componentes de Crystal Reports.

Agregar Componentes Crystal en vb

Adicionamos el control de Crystal Reports a nuestro formulario.  Debe quedarnos asi.

proyecto final de visual basic con crystal reports

Hacemos doble click en el botón Mostrar Informe y ponemos el siguiente código.

Private Sub Command1_Click()

    'conectando al informe de crystal reports

    CrystalReport1.ReportFileName = App.Path & "\rptClientes.rpt"

    CrystalReport1.DataFiles(0) = App.Path & "\Base_de_datos.mdb"

    'filtro por el campo nomCliente el operador =

    'sqlimp = "{tblCliente.nomCliente} = 'Luis Quinte Flores'"

    'filtro usando operador not in

    'sqlimp = "not ({tblCliente.nomCliente} in ['Luis Quinte Flores'])"

    'filtro usando solo el operador in

    'sqlimp = "{tblCliente.nomCliente} in ['Luis Quinte Flores']"

    'filtro usando solo el operador like

    'sqlimp = "({tblCliente.nomCliente} like 'Juan*')"

    'filtro usando solo el operador <>

    'sqlimp = "({tblCliente.codCliente} <> 1)"

    'filtro usando solo el operador >

    'sqlimp = "({tblCliente.codCliente} < 3)"

    'filtro usando solo el operador or

    'sqlimp = "({tblCliente.codCliente} =3) or ({tblCliente.codCliente} =1)"

    'filtro usando solo el operador and

    sqlimp = "({tblCliente.nomCliente} like 'Juan*') and {tblCliente.codCliente} = 2"

    'ejemplos de filtro con fechas

    'sqlimp = "(YEAR({tuTabla.tuCampodetipoFecha}) = 2015 AND MONTH({tuTabla.tuCampodetipoFecha}) = 1 and Day({tuTabla.tuCampodetipoFecha})=28"

    CrystalReport1.SelectionFormula = sqlimp

    CrystalReport1.WindowState = crptMaximized

    CrystalReport1.Destination = crptToWindow

    CrystalReport1.WindowShowPrintSetupBtn = True

    CrystalReport1.Action = 1

End Sub

 

Private Sub Command2_Click()

    'conectando al informe de crystal reports

    CrystalReport1.ReportFileName = App.Path & "\rptClientes.rpt"

    CrystalReport1.DataFiles(0) = App.Path & "\Base_de_datos.mdb"

    CrystalReport1.WindowState = crptMaximized

    CrystalReport1.Destination = crptToWindow

    CrystalReport1.WindowShowPrintSetupBtn = True

    CrystalReport1.Action = 1

End Sub

(1) Archivos adjuntos

Descargar el proyecto completo