Programación General > Visual Basic 6.0 e inferiores

 Re: Seagate Crystal Report 8

<< < (2/2)

FRIJU:
Yo normalmente asocio a una consulta y no a una tabla, la consulta son todos los campos de de la tabla con algún tipo de ordenación. luego me construyo una Sql en visual y le digo que el origen de ese informe es la sql que me he currado.

Call ElegirSql
     
   
             
   ' DB.CursorLocation = adUseServer
   
   ' Rs.LockType = adLockReadOnly
   ' Rs.CursorType = adOpenForwardOnly
   
    Set Rs = DB.Execute(StrSql)
        If Rs.EOF = False Then
              Call ElegirInForme
                FrmInformesResultado.CrInforme.ReportSource = Rpt
                Rpt.Database.SetDataSource Rs
                FrmInformesResultado.CrInforme.ViewReport
                FrmInformesResultado.Show 1
                Rs.Close
                Set Rs = Nothing
           ' DB.Close
            'Set DB = Nothing
        Else
       
                FrmSinDatos.Show 1
        End If
Espero que te valga.
Un saludo.

Navegación

[0] Índice de Mensajes

[*] Página Anterior