Filtro para Cristal Report (VB6)

Es una manera de pasarle un filtro al Cristal Report para que muestre sólo algunos de los registros que contiene una base de datos, en el archivo comprimido tenemos una base de datos con una tabla simple de un campo la cual tiene varios registros, de los cuales tomaremos solo uno, también se puede utilizar la consulta de ejemplo para filtrar cualquiera de los registros de la tabla.

A continuación sigue código:

Dim Report As New CrystalReport1
Dim dbBase As New ADODB.Connection
Private Sub Form_Load()
    Set dbBase = New ADODB.Connection
        Screen.MousePointer = vbHourglass
        Screen.MousePointer = vbDefault

        CrystalReport1.RecordSelectionFormula = "{nokia1100.imei} = '010281004254201'"

        CRViewer1.ReportSource = CrystalReport1
        CRViewer1.Refresh
        CRViewer1.ViewReport

    End Sub
    Private Sub Form_Resize()
        CRViewer1.Top = 0
        CRViewer1.Left = 0
        CRViewer1.Height = ScaleHeight
        CRViewer1.Width = ScaleWidth

    End Sub

 

Fichero con el código de ejemplo: vedevian_FiltroCristal_VB.zip - 43 KB