Crystal Report 9 no encuentra la BD runtime
Publicado por Hitbit (7 intervenciones) el 07/09/2004 16:33:51
Hola, a todos.
Tengo un problema con CR9.2:
Le asigno la ruta de BD en ejecucion y no la encuentra.
Lo e intentado todo y nada.
Tampoco puedo imprimir directamente el reporte.
Primero tengo que visualizaro y despues imprimir.
Cuando intento imprimir directamente con "crViewer.PrintReport" no se imprime
aparece el reporte en blanco.
este es el codigo.
Option Explicit
'Report
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
'Variables
Public Listado As String
Public SQLString As String
Private Sub Form_Load()
'Abrir reporte
Set crReport = crApp.OpenReport(Listado, 1)
'Asignar ruta DB Acces 2000
crReport.Database.SetDataSource ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BaseDatos & ";")
'Consulta del reporte
crReport.SQLQueryString = SQLString
crViewer.ReportSource = crReport
crViewer.DisplayGroupTree = False
crViewer.EnableExportButton = True
crViewer.EnableSelectExpertButton = False
crViewer.EnableSearchExpertButton = False
'Pantalla o Impresora
If Edit = False Then
crViewer.PrintReport
Else
crViewer.ViewReport
End If
End Sub
Ayudaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
Tengo un problema con CR9.2:
Le asigno la ruta de BD en ejecucion y no la encuentra.
Lo e intentado todo y nada.
Tampoco puedo imprimir directamente el reporte.
Primero tengo que visualizaro y despues imprimir.
Cuando intento imprimir directamente con "crViewer.PrintReport" no se imprime
aparece el reporte en blanco.
este es el codigo.
Option Explicit
'Report
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
'Variables
Public Listado As String
Public SQLString As String
Private Sub Form_Load()
'Abrir reporte
Set crReport = crApp.OpenReport(Listado, 1)
'Asignar ruta DB Acces 2000
crReport.Database.SetDataSource ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BaseDatos & ";")
'Consulta del reporte
crReport.SQLQueryString = SQLString
crViewer.ReportSource = crReport
crViewer.DisplayGroupTree = False
crViewer.EnableExportButton = True
crViewer.EnableSelectExpertButton = False
crViewer.EnableSearchExpertButton = False
'Pantalla o Impresora
If Edit = False Then
crViewer.PrintReport
Else
crViewer.ViewReport
End If
End Sub
Ayudaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
Valora esta pregunta


0