[Crystal Report] Filtrar tabla y mostrarlo

[E N T E R]

Hola estoy empezando con Crystal, tengo una tabla clientes donde hago el reporte con Crystal. Lo que no puedo es hacer para que me filtre segun una condicion.

Tabla Clientes (SCREEN)



Link: http://snag.gy/52z3F.jpg

Este es el Reporte en el Crystal Report. (SCREEN)



Link: http://snag.gy/LYF6a.jpg

Este es mi codigo en el VB6

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
   
    Dim crAPP As New CRAXDRT.Application
    Dim Report As CRAXDRT.Report
   
    Set Report = crAPP.OpenReport(App.Path & "\ejem_reporte.rpt")
       
    CRViewer1.ReportSource = Report
       
    CRViewer1.ViewReport
    CRViewer1.Zoom 100
    CRViewer1.PrintReport
   
    Set Report = Nothing
    Set crAPP = Nothing
   
End Sub
Como ven ahi en la tabla CLIENTES tengo un campo [TIPO], desde el VB6 quiero enviar una consulta a la tabla clientes.

Código: (VB) [Seleccionar]

SELECT * FROM clientes WHERE tipo="dos"
Y que solo ese filtro me lo muestre en el Crystal Report.

[ssccaann43]

En ese caso debes crear un parametro que recibe crystal al  momento de llamarlo desde vb.

Creas el parametro y luego asocias dicho parametro al campo de la tabla para que al pasarlo, el crystal reports te filtre los registros.

Eso es todo.

Saludos

[seba123neo]

Para asignar el resultado de un recordet a un reporte de crystal yo hago asi:

Código: (VB) [Seleccionar]

rsPrincipal.Open "SELECT * FROM CLIENTES WHERE IDCLIENTE='103'", mConexion, adOpenStatic, adLockReadOnly, adCmdText
vReporte.Database.SetDataSource rsPrincipal, , 1

crVisorReporte.ReportSource = vReporte
crVisorReporte.Zoom 100
crVisorReporte.ViewReport

saludos.