Results 1 to 5 of 5

Thread: how do i get started using crystal reports?

Threaded View

  1. #2
    Ex-Super Mod RobDog888's Avatar
    Join Date
    Apr 2001
    Location
    LA, Calif. Raiders #1 AKA:Gangsta Yoda™
    Posts
    60,709
    The requirement of more than one recordset and multiple sql
    statements sound like it should be optimized first. I think if you
    could get the recordset down to one that would help the most.
    What is the requirement of having multiple sql statements?
    Filtering? Could be done through supressing or selection expert.
    Either way, create the report and use ADO recordset like below.

    VB Code:
    1. Option Explicit
    2. 'Add reference to Crystal Reports x.x ActiveX Designer RunTime Library
    3. 'Add component Crystal Reports Viewer Control
    4. 'Add reference to Microsoft ActiveX Data Objects 2.x Library
    5. 'oCnn = current open ADO connection object
    6. Private Sub Command1_Click()
    7.  
    8.     Dim oApp As CRAXDRT.Application
    9.     Dim oReport As CRAXDRT.Report
    10.     Dim oRs As ADODB.Recordset
    11.     Dim sSQL As String
    12.  
    13.     sSQL = "SELECT * FROM Table1"
    14.     Set oRs = New ADODB.Recordset
    15.     Set oRs = oCnn.Execute(sSQL)
    16.     Set oApp = New CRAXDRT.Application
    17.     Set oReport = oApp.OpenReport(App.Path & "\MyReport.rpt", 1)
    18.     oReport.Database.SetDataSource oRs, 3, 1
    19.     crvMyCRViewer.ReportSource = oReport
    20.     crvMyCRViewer.ViewReport
    21.  
    22. End Sub
    Last edited by RobDog888; Mar 9th, 2006 at 05:22 AM.
    VB/Office Guru™ (AKA: Gangsta Yoda®)
    I dont answer coding questions via PM. Please post a thread in the appropriate forum.

    Microsoft MVP 2006-2011
    Office Development FAQ (C#, VB.NET, VB 6, VBA)
    Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
    If a post has helped you then Please Rate it!
    Reps & Rating PostsVS.NET on Vista Multiple .NET Framework Versions Office Primary Interop AssembliesVB/Office Guru™ Word SpellChecker™.NETVB/Office Guru™ Word SpellChecker™ VB6VB.NET Attributes Ex.Outlook Global Address ListAPI Viewer utility.NET API Viewer Utility
    System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width