Crystal report no muestra datos del recordset

[borbonio]

Buenas tardes a todos,

tengo un problema con un reporte que creo en crystal report 9 con visual basic 6, el problema es que creo una consulta y genero el reporte, pero no me muestra los datos del recordset, me aparece el reporte en blanco, los datos si los trae el recorset pero no me los muestra en el reporte.

aca pongo mi codigo:
' el recordset y la conexion son globales

Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report

Private Sub Form_Load()
mflgContinuar = True
Set rs = Nothing
rs.Open "Select nombre, direccion, telefono from doctores", conn, adOpenStatic, adLockReadOnly
Set crReport = crApp.OpenReport(App.Path & "\General.rpt")
crReport.DiscardSavedData
crReport.Database.SetDataSource rs
crViewer.ReportSource = crReport
crViewer.ViewReport
End Sub

Otra es que intento mostrar los datos del recordset en el reporte, hago un for para que me desglose fila por fila el rs y lo muestre en el reporte, pero me muestra solo la ultima fila, este es el codigo:

Set crParamDefs = crReport.ParameterFields
Dim NumRows As Integer
Dim NumFields As Integer
Dim i As Integer
NumRows = rs.RecordCount
NumFields = rs.Fields.Count

For i = 1 To NumRows
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "texto1"
crParamDef.AddCurrentValue (rs.Fields(0))
Case "texto2"
crParamDef.AddCurrentValue (rs.Fields(1))
Case "texto3"
crParamDef.AddCurrentValue (rs.Fields(2))
End Select
Next
rs.MoveNext
Next i

Set crParamDefs = Nothing
Set crParamDef = Nothing

me muestra solo el ultimo registro y no todos en el reporte, si alguien me podria ayudar le agradeceria mucho.

Saludos Cordiales..

[lokoman]

Hola!!
Asi es como cargo con el CRViewer:

Código vb:

Private Sub Form_Load()
    Dim IDNombreServer As String, IDUsuario As String, IDPassword As String, IDBaseDatos As String
    Dim Crystal As CRAXDRT.Application       'PARA CARGAR EL REPORTE DESDE ARCHIVO
    Dim Reporte As CRAXDRT.Report            'CONTENEDOR DEL REPORTE
    
    CRViewer.DisplayTabs = False            
    CRViewer.EnableDrillDown = False        
    CRViewer.EnableRefreshButton = False    
    
    Set Crystal = New CRAXDRT.Application          
     
    'ABRIR EL REPORTE
    Set Reporte = Crystal.OpenReport(App.Path & "\Reporte.rpt")
        
    Reporte.Database.Tables(1).SetLogOnInfo IDNombreServer, IDBaseDatos, IDUsuario, IDPassword
   
    Reporte.DiscardSavedData
    Reporte.RecordSelectionFormula = " "
    DoEvents
    Reporte.RecordSelectionFormula = strCondicion   'EL REPORTE DEBE TENER UN "SELECT *", 
                            'POR LO QUE COLOCAMOS AQUI LOS FILTROS QUE DESEAMOS, 
                            'EJ.: strCondicion = "{TABLA.ID_CAMPO} = " & txtID_CAMPO.TEXT
    
    CRViewer.ReportSource = Reporte                 'LINK DEL VIEWER AL REPORTE
    CRViewer.ViewReport                             'MOSTRAR REPORTE
    
    Do While CRViewer.IsBusy                        
        DoEvents                                    
    Loop                                            
    
    CRViewer.Zoom 100
    Screen.MousePointer = vbDefault
    Reporte.RecordSelectionFormula = Empty
End Sub
 
Private Sub Form_Resize()
    CRViewer.Top = 0
    CRViewer.Left = 0
    CRViewer.Height = Me.Height
    CRViewer.Width = Me.Width
End Sub
 

Nos cuentas!!

[borbonio]

Gracias amigo, la solucion esta perfecta porque con ella he solucionado los parametros de las condiciones, pero creo que no me explique bien, digamos que elijo desde un formulario el tipo de reporte, de acuerdo a este tipo de reporte seleciono el query a utilizar, en mi crystal quiero mostrar los resultados del query pero dinamicamente

parametroNombre parametroApellido
adrian luciano
jose gonzalez
juan castro

asi lo quiero mostrar con parametros, aunque por ahi lei que cada parametro solo acepta un resultado, crei que funcionaria porque esta en la seccion de detalle del crystal report, y como te digo solo me imprime el ultimo registro del recordset

no se si sea mi codigo o este mal mi idea.

Gracias por responder saludos