Bases de Datos > Crystal Reports

 Visual Basic 6.0 Y Cristal Report 8.5

<< < (2/2)

Shiquilla:

--- Código: Text ---oReporte.Database.Tables(1).SetDataSource = rs_PedidooReporte.Database.Tables(2).SetDataSource  = rs_Pedido_Lineas...... 
Y así con todas las tablas que tenga el informe.

PD: Ahora no puedo postear un ejemplo, cuando llegue a casa lo posteo

Saludos.

Shiquilla:
Buenas, el ejemplo que te pongo yo llamo a un informe que tiene 5 tablas, y es para sacar la factura, si algo no entiendes me dices:


--- Código: Text ---Option Explicit Private crApp As New CRAXDRT.ApplicationPrivate crReport As New CRAXDRT.Report Private rs_Facturas As New ADODB.RecordsetPrivate rs_Clientes As New ADODB.RecordsetPrivate rs_Marcas As New ADODB.RecordsetPrivate rs_Movimien As New ADODB.RecordsetPrivate rs_Compania As New ADODB.Recordset Private Sub Form_Load()On Error GoTo Errores        Screen.MousePointer = vbHourglass        'Preparo el informe        PrepararInforme        crReport.PrintOut True, 1        Screen.MousePointer = vbDefault        'Cierro los recordset        If rs_Clientes.State = 1 Then rs_Clientes.Close        If rs_Compania.State = 1 Then rs_Compania.Close        If rs_Facturas.State = 1 Then rs_Facturas.Close        If rs_Marcas.State = 1 Then rs_Marcas.Close        If rs_Movimien.State = 1 Then rs_Movimien.Close                Set rs_Clientes = Nothing        Set rs_Compania = Nothing        Set rs_Facturas = Nothing        Set rs_Marcas = Nothing        Set rs_Movimien = Nothing        Set crReport = Nothing        Exit SubErrores:    Select Case Err.Number        Case -2147467261            Resume Next        Case Else            Screen.MousePointer = vbDefault            MsgBox Err.Description, vbCritical + vbOKOnly            Unload Me    End SelectEnd Sub  Private Sub PrepararInforme()On Error GoTo ErrHandler    Set crReport = crApp.OpenReport(App.Path & &#34;&#092;Informes&#092;Factura.rpt&#34;, 1)    crReport.DiscardSavedData        Dim SQL As String    'SQL Tablas Clientes    SQL = &#34;SELECT * FROM Clientes WHERE Entrada = &#34; & CLng(Entrada)    rs_Clientes.Open SQL, cn, adOpenDynamic, adLockReadOnly        'SQL Tabla Compañías    SQL = &#34;SELECT * FROM Compania WHERE Codigo_Compania = '&#34; & rs_Clientes![Compania_Seguro] & &#34;'&#34;    rs_Compania.Open SQL, cn, adOpenDynamic, adLockReadOnly        'SQL Tabla Facturas    SQL = &#34;SELECT * FROM Facturas WHERE Entrada = &#34; & CLng(Entrada) & &#34; ORDER BY Importe&#34;    rs_Facturas.Open SQL, cn, adOpenDynamic, adLockReadOnly          'SQL Tablas Marcas    SQL = &#34;SELECT * FROM Marcas WHERE Marcas.Marca = '&#34; & rs_Clientes![Vehiculo] & &#34;'&#34;    rs_Marcas.Open SQL, cn, adOpenDynamic, adLockReadOnly        'SQL Tablas Movimien    SQL = &#34;SELECT * FROM Movimien WHERE Entrada = &#34; & CLng(Entrada) & &#34; ORDER BY Tipo_Movimiento DESC&#34;    rs_Movimien.Open SQL, cn, adOpenDynamic, adLockReadOnly         crReport.Database.Tables(1).SetDataSource rs_Clientes    crReport.Database.Tables(2).SetDataSource rs_Movimien    crReport.Database.Tables(3).SetDataSource rs_Facturas    crReport.Database.Tables(4).SetDataSource rs_Compania    crReport.Database.Tables(5).SetDataSource rs_MarcasExit SubErrHandler:    If Err.Number = -2147206461 Then        MsgBox &#34;El archivo de reporte no se encuentra, restáurelo de los discos de instalación&#34;, _            vbCritical + vbOKOnly    Else        MsgBox Err.Description, vbCritical + vbOKOnly        Unload Me    End If     Screen.MousePointer = vbDefaultEnd Sub 
Espero que te sirva de ayuda, saludos.

Navegación

[0] Índice de Mensajes

[*] Página Anterior