Ver Mensaje Individual
  #18 (permalink)  
Antiguo 13/04/2005, 22:36
xochitemol
 
Fecha de Ingreso: diciembre-2004
Mensajes: 79
Antigüedad: 20 años, 2 meses
Puntos: 0
hola bebita que creses ya me funciona pero el problema es que al pasar el recordset solo me muestra el primer registro cuando en la base de datos tengo 6 registros,comprobe el recordset y si me trae los 6 registros el codigo quedo algo asi

Option Explicit
Dim crapp As New CRAXDRT.Application
Dim reporte As CRAXDRT.Report
Dim rs As ADODB.Recordset
Dim Recset As ADODB.Recordset
Dim FileReport As String
Private Sub Command1_Click()
Set crapp = New CRAXDRT.Application
Set reporte = crapp.OpenReport(App.Path & "\reportes\reporte1.rpt")

Set rs = New ADODB.Recordset
conexion 'modulo para la conexion con la base de datos
rs.Open "SELECT * FROM Usysdatosper WHERE nombre='" & Text1 & "'", cn, adOpenDynamic, adLockReadOnly
'rs.Open "SELECT * FROM Usysdatosper", cn, adOpenDynamic, adLockReadOnly
If rs.EOF Then
MsgBox ""
Else
reporte.Database.SetDataSource rs, 3, 1
CRV.ReportSource = reporte
CRV.ViewReport
Set reporte = Nothing
Exit Sub
End If
End Sub