Informes Crystal Report9 desde VB6
Tengo informes hechos con CR5, ahora he instalado CR9 y Access 2000, me da el siguiente error el que no salgo. 20525 de CR el código es el siguiente:
Dim X As Integer
With MDIForm1!CrystalReport1
.Destination = crptToWindow
'.Destination = crptToPrinter
.SelectionFormula = Seleccion
.SortFields(0) = "+{Saa.idVtan}"
.Formulas(0) = "Titulo"
.ReportFileName = "Saavtan.rpt"
.DataFiles(0) = UbiBaseDatos
End With
'MDIForm1.CrystalReport1.Action = 1
X = MDIForm1.CrystalReport1.PrintReport
If X <> 0 Then Call ErroresCrystal(X)
Dim X As Integer
With MDIForm1!CrystalReport1
.Destination = crptToWindow
'.Destination = crptToPrinter
.SelectionFormula = Seleccion
.SortFields(0) = "+{Saa.idVtan}"
.Formulas(0) = "Titulo"
.ReportFileName = "Saavtan.rpt"
.DataFiles(0) = UbiBaseDatos
End With
'MDIForm1.CrystalReport1.Action = 1
X = MDIForm1.CrystalReport1.PrintReport
If X <> 0 Then Call ErroresCrystal(X)
1 Respuesta
Respuesta de aja72
Entre CR5 y CR9 existe una gran diferencia. Te adjunto el código necesario para visualizar un informe con CR9. En el formulario tendrás que eliminar el antiguo control de CR5 y añadir un Crystal Report Viewer Control.
Dim Cra As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Option Explicit
Private Sub Form_Load()
Set Report = Cra.OpenReport(App.Path & "\fichero.rpt", 1)
Report.Database.Tables(1).SetLogOnInfo App.Path & "\bbdd.mdb"
Report.Database.LogOnServerEx "p2soledb.dll", App.Path & "\bbdd.mdb", "", "", "", "OLE DB", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bbdd.mdb;Persist Security Info=False;Jet OLEDB:Database Password="
Report.RecordSelectionFormula = "" 'Tu fórmula de selección de registros
Report.FormulaFields(4).Text = "'Valor Texto'" 'Formula Texto
Report.FormulaFields(5).Text = "3.1416" 'Formula Numero
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
End Sub
Dim Cra As New CRAXDRT.Application
Dim Report As CRAXDRT.Report
Option Explicit
Private Sub Form_Load()
Set Report = Cra.OpenReport(App.Path & "\fichero.rpt", 1)
Report.Database.Tables(1).SetLogOnInfo App.Path & "\bbdd.mdb"
Report.Database.LogOnServerEx "p2soledb.dll", App.Path & "\bbdd.mdb", "", "", "", "OLE DB", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bbdd.mdb;Persist Security Info=False;Jet OLEDB:Database Password="
Report.RecordSelectionFormula = "" 'Tu fórmula de selección de registros
Report.FormulaFields(4).Text = "'Valor Texto'" 'Formula Texto
Report.FormulaFields(5).Text = "3.1416" 'Formula Numero
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
End Sub
