-
June 10th, 2004, 01:16 PM
#1
Open Crystal Report from VB
Mr. Babu,
I want to run a crystal report from VB 6.0. What all references should I make. If possible, send me a sample code for testing.
Regards,
Satish
-
June 10th, 2004, 06:28 PM
#2
Hi,
I'm not Babu. But hope I can help you.
To call crystal report in your vb application, first you have to make reference to the following library files.
Crystal Report ActiveX Runtime Library
Crystal Report Viewer Control 9
Then you have to create objects in the folg. way.
Dim Appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
'Write this code where you want to invoke the report
------------------------------------------------------------------------
Set Report = Appl.OpenReport("report path")
Report.DiscardSavedData
'If report have parameter fields
Report.ParameterFields(1).AddCurrentValue variable1
Report.ParameterFields(2).AddCurrentValue variable2
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
------------------------------------------------------------------------
Hope this will work!
Babu,
if you find any error, pls just let us know.
-
June 10th, 2004, 11:15 PM
#3
Originally posted by harmonycitra
Hi,
I'm not Babu. But hope I can help you.
To call crystal report in your vb application, first you have to make reference to the following library files.
Crystal Report ActiveX Runtime Library
Crystal Report Viewer Control 9
Then you have to create objects in the folg. way.
Dim Appl As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
'Write this code where you want to invoke the report
------------------------------------------------------------------------
Set Report = Appl.OpenReport("report path")
Report.DiscardSavedData
'If report have parameter fields
Report.ParameterFields(1).AddCurrentValue variable1
Report.ParameterFields(2).AddCurrentValue variable2
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
------------------------------------------------------------------------
Hope this will work!
Babu,
if you find any error, pls just let us know.
Hi harmonycitra,
Thank you for helping others.
We have to inform that the report (.rpt) file create from Crystal report IDE, Then we can open the report file from OpenReport() method.
Set Report = Appl.OpenReport(app.path & "\myreport.rpt")
yours friendly,
K.Babu
Please avoid sending emails to my personal mail:
write your doubts as thread in Codeguru
Crystal Reports Forum.
This will help all people having similar matters, and will let people who know solutions on the specific topic
share their knowledge.
Visit my company web site (Qmax Test Equipments Private Limited)
Yours friendly,
K.Babu
-
August 1st, 2006, 05:02 AM
#4
Re: Open Crystal Report from VB
hi
i m sabina..
i have same querry than i just post this.
i m using vb 6,CR 9 and M.Access..
i just write down this code and pass parameter in form .
but it give error "Parameter Field value is not in range"
plz..help me urgent..i m on deadline of project...
Thanx in Adavance
God Bless u,
Regards,
Sabina Maniar
U.A.E
-
August 27th, 2006, 10:26 AM
#5
Re: Open Crystal Report from VB
what id the value you passed to parameter?
Madhivanan
Failing to plan is Planning to fail
-
September 6th, 2006, 09:32 PM
#6
Re: Open Crystal Report from VB
Hi,
I encounterd the following error msg
"Expected end of statement" at this line char 9
"Dim App As New CRAXDRT.Application"
Can anybody help me?
-
September 11th, 2006, 02:39 AM
#7
Re: Open Crystal Report from VB
Hi,
I am using VB6.0 , Access 2000,abd CR 8.0.
I am using the following code.
'Add reference to Crystal Reports x.x ActiveX Designer RunTime Library
'Add component Crystal Reports Viewer Control
'Add reference to Microsoft ActiveX Data Objects 2.8 Library
'oCnn = current open ADO connection object
Private Sub Command1_Click()
Dim oApp As CRAXDRT.Application
Dim oReport As CRAXDRT.Report
Dim oRs As ADODB.Recordset
Dim sSQL As String
sSQL = "SELECT * FROM Table1"
Set oRs = New ADODB.Recordset
Set oRs = oCnn.Execute(sSQL)
Set oApp = New CRAXDRT.Application
Set oReport = oApp.OpenReport(App.Path & "\MyReport.rpt", 1)
(1) oReport.Database.SetDataSource oRs, 3, 1
crvMyCRViewer.ReportSource = oReport
crvMyCRViewer.ViewReport
End Sub
I am getting an error report on line marked (1) that " Subscript beyond Range". I assume that this is due to declaration of oRs as Recordsat and the value required in place of oRs in the same line is "data".
I am not able to find a solution.
Can anyone please tell me how to proceed ?
Thank You,
GeoNav
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|