Crystal Report 10

[ci2000]

Hola.
Hace un buen rato estoy buscando en la web código con algún ejemplo para mostrar un reporte hecho con Crystal 10, pero sólo encontré con el Crystal 9 y no me funciona.
¿Alguien sabe cómo hacer dicha conexión?

Desde ya muchas gracias por las respuestas.
Saludos

[Insomnia]

Hola

Para enlazar los informes de Crystal 10 con VB6, yo agrego el componente Crystal ActiveX Report Viewer, ademas de las referencias Crystal Report ActiveX Designer Desingn and Runtime y Crystal Report ActiveX Designer Run Time.

Inserto un nuevo formulario y lo lleno con el control Report Viewer. En ese formulario declaro las siguientes variables:

Código:

Dim bd As New ADODB.Connection
Dim RegInfo As New ADODB.Recordset
Dim CrxInfor As CRAXDRT.Report
Dim CrxApp As New CRAXDRT.Application

En el formLoad pongo lo siguiente:

Código:

    bd.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=NombreBD;Data Source=ServidorSQL"
    
    RegInfo.Open "SELECT nomcurso, descrip, matcurso from curso", bd, adOpenDynamic, adLockReadOnly
    Screen.MousePointer = 11
    
    Set CrxInfor = CrxApp.OpenReport(App.Path & "\informes\cursos.rpt")
    
    CrxInfor.DiscardSavedData
    CrxInfor.Database.SetDataSource RegInfo
    
    With CrystalActiveXReportViewer1
        .ReportSource = CrxInfor
        .EnableExportButton = True
        .DisplayGroupTree = False
        .EnablePopupMenu = False
        .EnableDrillDown = False
        .EnableSelectExpertButton = False
        .ViewReport
        .Zoom 100
    End With
    
    Screen.MousePointer = 0

La conexión a la bd dependera con que trabajas y el informe yo lo realizo con archivos TTX. Espero que te resulte util.

--Saludos--