-
In my application I have added a Form on which I placed a CrystalReport-control and a CRViewer-control. I want all my reports to be shown on this Form. It's an MDIChild so it forms a group with the rest of the application.
I have to following code to show the report, but I don't get the viewer filled.
CrystalReport.ReportFileName = "D:\Report.rpt"
frmProef.CryRapport.SetTablePrivateData 0, 3, rs.DataSource
CrViewer.ReportSource = ''''HELP I DON'T KNOW HOW TO FIL THE SOURCE!!!!''''
CrViewer.ViewReport
CrViewer.Show
-
You don't need to add a crviewer to show your report if you
have made it in advance.
You just need to give the connection to the DB
CrystalReport.Connect = "DSN = ; UID = ; PWD = ;DSQ = ''"
CrystalReport.SQLQuery = query you've made your report with
Optional if you like to change the where clause you can give a new query to the control
crptObjec.PrintReport
-
Using Crystal Report control (OCX) is absolete, according to Seagate Software. Use Crystal Viewer instead.
Your variables for Application, Report and Recordset objects should be global. Here is a little example on how to use ADO recordset to show the report in the Viewer
Add references to the following:
Microsoft ActiveX Data Objects Library
Crystal Report ActiveX Designer Run Time Library
Code:
Option Explicit
Private m_objRS As New ADODB.Recordset
Private m_objReport As CRAXDRT.Report
Private m_objApp As New CRAXDRT.Application
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim strSQL As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Program Files\VB98\NWIND.MDB"
strSQL = "Select * From Customers"
m_objRS.CursorLocation = adUseClient
m_objRS.Open strSQL, cn, adOpenStatic
Set m_objReport = m_objApp.OpenReport("F:\MyReport.rpt", 1)
With m_objReport
.Database.SetDataSource m_objRS, 3, 1
.DiscardSavedData
.ReadRecords
End With
With CRViewer1
.ReportSource = m_objReport
.ViewReport
End With
m_objRS.Close
Set m_objRS = Nothing
cn.Close
Set cn = Nothing
Set m_objReport = Nothing
Set m_objApp = Nothing
End Sub
In this example I'm using Northwind database that comes with VB.
