Using VB6/CRView ocx and Crystal Reports 8.5. Pulling data from Oracle. On my development machine the following code works. However on my test machine I receive the following error:
Error No: -2147192184
Error Desc: Server has not yet been opened
MsgBox "Line 1"
Dim CrystalApp As New CRAXDRT.Application
MsgBox "Line 2"
Dim CrystalRpt As New CRAXDRT.Report
MsgBox "Line 3"
Set CrystalApp = CreateObject("CrystalRunTime.Application"
MsgBox "Line 4"
CrystalApp.LogOnServer "p2sodbc.dll","DMART01",,"DW_USER","DW_USER"
MsgBox "Line 5"
Set CrystalRpt = CrystalApp.OpenReport(Me.ReportDirectory & Me.ReportName)
MsgBox "Line 6"
Me.CRViewer.ReportSource = CrystalRpt
MsgBox "Line 7"
CrystalRpt.RecordSelectionFormula = Me.WhereClause
MsgBox "Line 8"
Me.CRViewer.ViewReport
MsgBox "Line 9"
Me.CRViewer.Zoom 78
MsgBox "Line 10"
The code between Line 4 and Line 5 is where the error occurs. Please advise...
Thanks
Creepers
Error No: -2147192184
Error Desc: Server has not yet been opened
MsgBox "Line 1"
Dim CrystalApp As New CRAXDRT.Application
MsgBox "Line 2"
Dim CrystalRpt As New CRAXDRT.Report
MsgBox "Line 3"
Set CrystalApp = CreateObject("CrystalRunTime.Application"
MsgBox "Line 4"
CrystalApp.LogOnServer "p2sodbc.dll","DMART01",,"DW_USER","DW_USER"
MsgBox "Line 5"
Set CrystalRpt = CrystalApp.OpenReport(Me.ReportDirectory & Me.ReportName)
MsgBox "Line 6"
Me.CRViewer.ReportSource = CrystalRpt
MsgBox "Line 7"
CrystalRpt.RecordSelectionFormula = Me.WhereClause
MsgBox "Line 8"
Me.CRViewer.ViewReport
MsgBox "Line 9"
Me.CRViewer.Zoom 78
MsgBox "Line 10"
The code between Line 4 and Line 5 is where the error occurs. Please advise...
Thanks
Creepers