Open Crystal Report from VB
CodeGuru Home VC++ / MFC / C++ .NET / C# Visual Basic VB Forums Developer.com
Results 1 to 7 of 7

Thread: Open Crystal Report from VB

  1. #1
    Join Date
    Jun 2002
    Location
    Kuwait
    Posts
    44

    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

  2. #2
    Join Date
    May 2003
    Posts
    163
    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.

  3. #3
    Join Date
    Aug 1999
    Location
    India, TamilNadu, Chennai.
    Posts
    269
    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

  4. #4
    Join Date
    Jul 2006
    Posts
    11

    Angry 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

  5. #5
    Join Date
    Jul 2004
    Location
    Chennai, India
    Posts
    1,064

    Re: Open Crystal Report from VB

    what id the value you passed to parameter?
    Madhivanan

    Failing to plan is Planning to fail

  6. #6
    Join Date
    Sep 2006
    Posts
    1

    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?

  7. #7
    Join Date
    Aug 2006
    Posts
    93

    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
  •  


Azure Activities Information Page

Windows Mobile Development Center


Click Here to Expand Forum to Full Width

This is a CodeGuru survey question.


Featured


HTML5 Development Center