Ayuda con crystal 8.5
Publicado por Jorge de la Fuente (1 intervención) el 28/08/2002 22:46:09
Las consultas son 2, va la primera: en que version de crystal viene para instalar RDC para VB 6, busque la dll craxdui.dll y nada.
y la segunda.
como hago para pasar parametros a una base en access con password
cuando intento abrir de la el mensaje "OPEN DATABASE SESSION FAILED"
el codigo es el siguiente:
rivate Sub Image2_Click()
Set crxReport = crxApplication.OpenReport("u:\reports\PER001.rpt")
crxReport.ParameterFields.GetItemByName("Fecha1").AddCurrentRange CDate("08/01/2002"), CDate("8/01/2002"), 3
crxReport.ParameterFields.GetItemByName("Legajo").AddCurrentRange 1000, 9100, 3
crxReport.Database.Tables.Item(1).SetSessionInfo "admin", "password"
'Setting the ReportSource of the CrViewer control to the Report object
Me!CRViewer1.ReportSource = crxReport
'view the report.
Me!CRViewer1.ViewReport
'Setting the zoom = 56%
CRViewer1.Zoom (56)
'default mouse pointer
'do events first before continuing in order to avoid application crashes
While Me!CRViewer1.IsBusy
DoEvents
Wend
End Sub
Muchas gracias de antemano.
Jorge
y la segunda.
como hago para pasar parametros a una base en access con password
cuando intento abrir de la el mensaje "OPEN DATABASE SESSION FAILED"
el codigo es el siguiente:
rivate Sub Image2_Click()
Set crxReport = crxApplication.OpenReport("u:\reports\PER001.rpt")
crxReport.ParameterFields.GetItemByName("Fecha1").AddCurrentRange CDate("08/01/2002"), CDate("8/01/2002"), 3
crxReport.ParameterFields.GetItemByName("Legajo").AddCurrentRange 1000, 9100, 3
crxReport.Database.Tables.Item(1).SetSessionInfo "admin", "password"
'Setting the ReportSource of the CrViewer control to the Report object
Me!CRViewer1.ReportSource = crxReport
'view the report.
Me!CRViewer1.ViewReport
'Setting the zoom = 56%
CRViewer1.Zoom (56)
'default mouse pointer
'do events first before continuing in order to avoid application crashes
While Me!CRViewer1.IsBusy
DoEvents
Wend
End Sub
Muchas gracias de antemano.
Jorge
Valora esta pregunta
0