changing Datasource at runtime CRXI

[ChuckHun]

Hi All and thanks for the help in advance. I have been reading thread after thread trying to figure out how to change the database of a Crystal Reports XI at runtime using VS 2002.

This is what I have so far, it seems like a simple thing to do but I keep getting an error on “crxDatabaseTables = crxReport.Database.Tables”

The error reads,
An unhandled exception of type 'System.InvalidCastException' occurred in PTS.exe

Additional information: Specified cast is not valid.

Any help would be appreciated

Thanks Chuck from Las Vegas

        Dim crxApp As New CRAXDDRT.Application()
        Dim crxReport As CRAXDDRT.Report
        Dim ReportName As String
        Dim crxDatabaseTable As CRAXDDRT.DatabaseTable

        Dim crxDatabaseTables As Tables

        crxApp = CreateObject("crystalruntime.application.11") 

        ReportName = System.Windows.Forms.Application.StartupPath & "\" & Frm1.CBReports.SelectedValue

        crxReport = crxApp.OpenReport(ReportName)

        crxDatabaseTables = crxReport.Database.Tables

        For Each crxDatabaseTable In crxDatabaseTables
            crxDatabaseTable.Location = System.Windows.Forms.Application.StartupPath & "\" & Frm1.FileText
        Next crxDatabaseTable

        CrystalReportViewer.ReportSource = crxReport

[ChuckHun]

Can someone please help me with this it is making me crazy..

Thanks Chuck

[brucevde]

The Crystal RDC Library does not contain a Tables class, use

Dim crxDatabaseTables As CRAXDDRT.DatabaseTables

[ChuckHun]

Hi Brucevde,

Thanks for the reply. I will give that a try later, when I get to my other machine.

Chuck

[ChuckHun]

Thanks that solved the Tables issue. However when previewing the report using

CrystalReportViewer.ReportSource = crxReport

I get the error “Invalid Report Source”. I changed the report source to

CrystalReportViewer.ReportSource = ReportName

and I get the report but the database will not change. I can change the report source by supplying the entire path and “reportname.rpt”. But will not change the database.

Any suggestions

Thanks Chuck

Dim crxApp As New CRAXDDRT.Application()
        Dim crxReport As CRAXDDRT.Report
        Dim ReportName As String
        Dim crxDatabaseTable As CRAXDDRT.DatabaseTable
        Dim crxDatabaseTables As CRAXDDRT.DatabaseTables

        crxApp = CreateObject("crystalruntime.application.11")


        ReportName = System.Windows.Forms.Application.StartupPath & "\" & Frm1.CBReports.SelectedValue
        crxReport = crxApp.OpenReport(ReportName)

        crxDatabaseTables = crxReport.Database.Tables

        For Each crxDatabaseTable In crxDatabaseTables
            crxDatabaseTable.Location = System.Windows.Forms.Application.StartupPath & "\" & Frm1.FileText
        Next crxDatabaseTable

        CrystalReportViewer.ReportSource = crxReport