Reply to RBFINK about Selecting a Report at Runtime in VB6

Question

Post Author: David B
CA Forum: General
I got the following private message, and the reply link refuses to lead back to a valid post:You have received a new Private Message from RBFINKSubject: ActiveX Control PostWas wondering if you ever found a solution for creating a crystal report object from a file path in VB 6. I am having the exact same problem as what you have posted and have not found a solution, yet.  Thanks.Click on the link below to reply to the private message.http://technicalsupport.businessobjects.com/cs/forums/thread/1546.aspx---I have your answer, but just as of today, so your timing is great.  The following code does what both of us want to have happen.  You'll need the following 4 references set for your version of CR (xx.x = 9, 10, 11, 11.5)Crystal ActiveX Report Viewer Library xx.xCrystal Reports ActiveX Designer Design and RunTime Library xx.xCrystal Reports ActiveX Designer Run Time Library xx.xCrystal ActiveX Report Viewer Library xx.x ---Also you'll need your ReportViewer component set so that you can place the viewer control onto the form.When you have all that, then the following lines of VB6 code will do what you want:    Dim crApplication As New CRAXDRT.Application    Dim crReport As CRAXDRT.Report    Set crReport = crApplication.OpenReport("report file path")    With crvReport        .ReportSource = crReport        .ViewReport    End With

Answer 1

Post Author: RBFINK
CA Forum: General
  Dim MyCrystal As CRAXDRT.Application  Dim MyReport As CRAXDRT.report  Set MyCrystal = New CRAXDRT.Application  Set MyReport = MyCrystal.OpenReport(strMyReportPath)
  Dim crxTable As CRAXDRT.DatabaseTable  For Each crxTable In MyReport.Database.Tables    With crxTable.ConnectionProperties 'OLEDB Connection info...      .Item("user ID") = strMyUserName      .Item("Password") = strMyPassword      .Item("Data Source") = strMyServer      .Item("Initial Catalog") = strMyDatabase    End With  Next crxTable      With MyCrystalViewer    .ReportSource = MyReport    .ViewReport  End With