How to change Crystal reports connection properties in code?

Question

Back when Crystal Reports still supports ActiveX, we have crystal reports that were built to use ODBC data source point to an Access or SQL database. In run time, we would change the report to use OLE DB (ADO) instead of ODBC, change the server name, database name, username, password to ones specific to the user, and run the report, it worked fine.

Now that Crystal Reports 2008 no longer supports ActiveX, we're trying to do the same thing in .NET, but without success.

Here's the code so far:

Public Function ChangeConnectionInfo() As ReportDocument
        Dim boReportDocument As New ReportDocument
        '**EDIT** Change the path and report name to the report you want to change.
        boReportDocument.Load("c:\CustomerListSQL.Rpt", OpenReportMethod.OpenReportByTempCopy)

        'Create a new Command Table to replace the reports current table.
        Dim boTable As New CrystalDecisions.ReportAppServer.DataDefModel.CommandTable

        'boMainPropertyBag: These hold the attributes of the tables ConnectionInfo object
        Dim boMainPropertyBag As New PropertyBag
        'boInnerPropertyBag: These hold the attributes for the QE_LogonProperties
        'In the main property bag (boMainPropertyBag)
        Dim boInnerPropertyBag As New PropertyBag

        'Set the attributes for the boInnerPropertyBag
        boInnerPropertyBag.Add("Auto Translate", "-1")
        boInnerPropertyBag.Add("Connect Timeout", "15")
        boInnerPropertyBag.Add("Data Source", "K2")
        boInnerPropertyBag.Add("General Timeout", "0")
        boInnerPropertyBag.Add("Initial Catalog", "DBNAME")
        boInnerPropertyBag.Add("Integrated Security", "True")
        boInnerPropertyBag.Add("Locale Identifier", "5129")
        boInnerPropertyBag.Add("OLE DB Services", "-5")
        boInnerPropertyBag.Add("Provider", "SQLOLEDB")
        boInnerPropertyBag.Add("Tag with column collation when possible", "0")
        boInnerPropertyBag.Add("Use DSN Default Properties", "False")
        boInnerPropertyBag.Add("Use Encryption for Data", "0")

        'Set the attributes for the boMainPropertyBag
        boMainPropertyBag.Add("Database DLL", "crdb_ado.dll")
        boMainPropertyBag.Add("QE_DatabaseName", "DBNAME")
        boMainPropertyBag.Add("QE_DatabaseType", "OLE DB (ADO)")
        'Add the QE_LogonProperties we set in the boInnerPropertyBag Object
        boMainPropertyBag.Add("QE_LogonProperties", boInnerPropertyBag)
        boMainPropertyBag.Add("QE_ServerDescription", "K2")
        boMainPropertyBag.Add("QE_SQLDB", "True")
        boMainPropertyBag.Add("SSO Enabled", "False")

        'Create a new ConnectionInfo object
        Dim boConnectionInfo As New CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo
        'Pass the database properties to a connection info object
        boConnectionInfo.Attributes = boMainPropertyBag
        'Set the connection kind
        boConnectionInfo.Kind = CrConnectionInfoKindEnum.crConnectionInfoKindCRQE
        '**EDIT** Set the User Name and Password if required.
        'boConnectionInfo.UserName = "UserName"
        'boConnectionInfo.Password = "Password"
        'Pass the connection information to the table
        boTable.ConnectionInfo = boConnectionInfo

        'Get the Database Tables Collection for your report
        Dim boTables As CrystalDecisions.ReportAppServer.DataDefModel.Tables = _
           boReportDocument.ReportClientDocument.DatabaseController.Database.Tables    

        'For each table in the report:
        ' - Set the Table Name properties.
        ' - Set the Command table's command text.
        ' - Set the table location in the report to use the new modified table
        For Each boReportTable In boTables
            boTable.Name = boReportTable.Name
            boTable.QualifiedName = "DBNAME.dbo." + boReportTable.Name 'boReportTable.QualifiedName
            boTable.Alias = boReportTable.Alias    
            boReportDocument.ReportClientDocument.DatabaseController.SetTableLocation(boReportTable, boTable)
        Next

        'Verify the database after adding substituting the new table.
        'To ensure that the table updates properly when adding Command tables or Stored Procedures.
        boReportDocument.VerifyDatabase()

        Return boReportDocument
    End Function

The code works until it gets to boReportDocument.VerifyDatabase(), that's when I get a 'Log On Failed' error.

I tried using the code in here as well:

http://stackoverflow.com/questions/1411783/dynamically-change-the-connection-of-a-crystal-report

That didn't work either, I don't know whether it has to do with switching from ODBC to OLE DB (ADO)

Answer 1

hi heather, did u get the solution for this.