CRViewer1.Refresh Doesn't Work

[vbneil54]

When I try the Refresh it says "Server not yet opened"
What can I do??

 

[balves]

You're not successfully connecting to the database. Are you using .LogonServer or .SetLogonInfo? And what parameters are you passing?

 

[vbneil54]

I'm trying to conect to the server but keep runing into connection string problems. Could you please show me a working
report.database.logonserverex "p2soledb.dll", TheReportName, "", "", "", "ole db", cn

cn is "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ah.mdb;Persist Security Info=False"
thanks

 

[balves]

Okay, it's an Access database. You don't need to logon to the server.

If you picked OLEDB - Microsoft Jet OLEDB 4.0 at the beginning of building your report, it's just a couple of lines:

Set App = New CRAXDRT.Application
Set Report = App.OpenReport("CrystalDir\my.rpt&quot
CRViewer1.ReportSource = Report
CRViewer1.ViewReport

 

[vbneil54]

Ok,
That worked. Thank you.
But now when I hit the refresh button it goes back to the same error, server not yet open.

 

[vbneil54]

I can't get it to re-read the data after the first time i open it.

 

[balves]

It doesn't happen for me.

Is there any VB code after .ViewReport that would mess things up like deleting the app object?

 

[vbneil54]

here is the code...

Private Sub Form_Load()

Screen.MousePointer = vbHourglass
Set app1 = New CRAXDRT.Application
Set Report = app1.OpenReport(TheReportName)
CRViewer1.EnableGroupTree = False
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

 

[vbneil54]

here is the error msg...
Method 'Refresh' of object 'ICrystalReportViewer3' Failed

 

[vbneil54]

all of this code is in the form that holds the CRviewer

Dim app1 As New CRAXDRT.Application


Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Set app1 = New CRAXDRT.Application
Set Report = app1.OpenReport(TheReportName)
CRViewer1.EnableGroupTree = False
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth

End Sub

I have no code in the viewer it self.

 

[balves]

Sorry, I can't duplicate the error.

What's interesting is that your viewer object is called CRViewer1 but the error message says the error is on object ICrystalReportViewer3. Don't understand that.

 

[vbneil54]

Thanks for your help. I'm going to try to re-install crystal and see if that helps.