How to programmatically set the database file for Crystal Report

[thesti]

How to set the database file (MS. Access db) for a rpt file (Crystal report) programmatically in vb6?

the problem is that, the rpt file is referring to the mdb file using an absolute path. so, when i open the project on another computer/different location, it couldn't file the .mdb file.

i've encoutered this problem in .NET where we can set the location of the mdb file programmatically using the ConnectionInfo class of CrystalDecisions.Shared.

is there a similar code that can be done from vb 6?

this is my current code in vb 6 to open and show the report.

    Dim rpt As New CRAXDRT.Application
    Dim CRreport As New CRAXDRT.report
 
    'refresh data diCR
    Set CRreport = rpt.OpenReport(App.Path & "\lappenjualan.rpt", 1)
 
 
    CRreport.ReadRecords
    CRreport.DiscardSavedData
 
    report.ReportSource = CRreport
    report.ViewReport
 

Thank you.

[QVeen72]

Hi,

Try this :

Dim crTab As CRAXDRT.DatabaseTable
For Each crtab In CRreport.Database
    crTab.Location = "C:\MyDB.mdb"
Next 
 

Regards
Veena

[thesti]

@QVeen72
hi,

thx Veena.

i've tried your it.

actually it is isn't it?

For Each crtab in CRreport.Database.Tables
 

it opens Ms Access three time (because there are 3 tables i used in the report), ask a confirmation to open the database and close again.

but then an error occurs saying Run-time error 445 "Object doesn't support this action" on line

CRreport.ReadRecords

i put your suggestion code before the CRreport.ReadRecords. if i put after the ReadRecords and DiscardSavedData, then a messagebox saying "Not Implemented" pops up and the CRViewer shows nothing, just a gray form.


hmm, maybe something is missing. Thank you

[QVeen72]

Hi,

yes, you are right.. it should be tables.. and comment the line "Readrecords"...

check this code:

 
Dim rpt As New CRAXDRT.Application 
Dim CRreport As New CRAXDRT.report 
Dim crTab As CRAXDRT.DatabaseTable 
 
Set CRreport = rpt.OpenReport(App.Path & "\lappenjualan.rpt", 1) 
CRreport.DiscardSavedData 
 
 
For Each crtab In CRreport.Database.Tables
    crTab.Location = "C:\MyDB.mdb" 
Next   
 
MyViewer.ReportSource = CRreport 
MyViewer.ViewReport 
 
Set rpt =Nothing 
Set CRreport =Nothing 
Set crTab =Nothing 
 
 

Regards
Veena

Regards
Veena