Ver Mensaje Individual
  #6 (permalink)  
Antiguo 11/01/2005, 15:55
Avatar de jrp01
jrp01
 
Fecha de Ingreso: mayo-2004
Ubicación: México
Mensajes: 2.702
Antigüedad: 17 años, 4 meses
Puntos: 0
Pues yo lo hago con RDC algo parecido a esto:

cn es mi conexion activa a la BD

Dim Sentencia as String
Dim crSecs As CRAXDRT.Sections
Dim crSec As CRAXDRT.Section
Dim crRepObjs As CRAXDRT.ReportObjects
Dim crSubRepObj As CRAXDRT.SubreportObject
Dim CrSubreport As CRAXDRT.Report
Dim CrSubreport2 As CRAXDRT.Report
Dim CrSubreport3 As CRAXDRT.Report
Dim CrTextObject As CRAXDRT.TextObject
Dim RsSR1 As New ADODB.Recordset
Dim RsSR2 As New ADODB.Recordset
Dim RsSR3 As New ADODB.Recordset
Dim rs As New ADODB.Recordset
Dim crpDatabase As CRAXDRT.Database ' Variable para la Base de Datos
Dim crpTables As CRAXDRT.DatabaseTables ' Variable para tablas de la base de datos
Dim crpTable As CRAXDRT.DatabaseTable ' Variable para una tabla
Dim X As Integer
Dim i As Integer
Dim nosubrep As Integer
sentencia="tu select de SQL"
Set rs = cn.Execute(sentencia)
sentencia = "El Select para mi subreporte1"
Set RsSR1 = cn.Execute(sentencia)
sentencia = "El Select para mi subreporte2"
Set RsSR2 = cn.Execute(sentencia)
sentencia = "El Select para mi subreporte3"
Set RsSR3 = cn.Execute(sentencia)
Screen.MousePointer = vbHourglass
Set crxReport = crxApplication.OpenReport(App.Path & "\mireporte.Rpt")
crxReport.DiscardSavedData
Set crxDatabase = crxReport.Database
Set crxDatabaseTables = crxDatabase.Tables
crxReport.Database.SetDataSource rs
Set crSecs = crxReport.Sections
'Esto para los subreportes
For i = 1 To crSecs.Count
Set crSec = crSecs.Item(i)
Set crRepObjs = crSec.ReportObjects
For X = 1 To crRepObjs.Count
If crRepObjs.Item(X).Kind = crSubreportObject Then
Set CrSubreport = crxReport.OpenSubreport(crRepObjs.Item(X).Subrepor tName)
If nosubrep = 0 Then
CrSubreport.Database.SetDataSource RsSR1
nosubrep = 1
Else
If nosubrep = 1 Then
Set CrSubreport2 = crxReport.OpenSubreport(crRepObjs.Item(X).Subrepor tName)
CrSubreport2.Database.SetDataSource RsSR2
nosubrep = 2
Else
If nosubrep = 2 Then
Set CrSubreport3 = crxReport.OpenSubreport(crRepObjs.Item(X).Subrepor tName)
CrSubreport3.Database.SetDataSource RsSR3
End If
End If
End If
End If
Next
Next
End If