Crystal Reports 2008 - Changing Table Locations

Question

Hello,
we have several reports which we use by different customers. The customers use different name spaces (table locations) for the same data. To use the same reports with different table locations, we wrote a piece of software replacing the connection strings and table locations. 
Example:
A report should be used in a test environment as well as in a production environment:
  The original SQL is (using a DB2 database on a AS400):
    SELECT alias.name FROM as400.production.users alias
  The modified SQL looks like:
    SELECT alias.name FROM as400.test.users alias
Up to now we used Crystal XI and developed using RDC. We solved the above described problem by reading the report SQL string, replacing the table location in this string and assigned it back to the report object. Modifying the SQL string has the advantage that it works fine also for reports which contain a SQL command.
Since Crystal Reports 2008 this is not possible anymore (no RDC, no direct way to modify the report SQL string).
My first approach was to use the CrystalDecisions.CrystalReports.Engine.Table object. First I just wanted to see what really was the content of the Location and Name property:
for (int i = 0; i < rdReport.Database.Tables.Count; ++i)
  Table rt = rdReport.Database.Tables<i>;
  Console.WriteLine("Table Nr : {0}", i);                   
  Console.WriteLine("  Table Loc  : {0}", rt.Location);
  Console.WriteLine("  Table Name : {0}", rt.Name);
My problem with this is that the output for the report with the SQL in the above example is:
Table Nr: 0
  Table Loc : users
  Table Name: alias
So obviously not the real table location and table name is returned, but instead the table name for the table location and the alias for the table name. Unsurprisingly setting the location had not the originally desired effect.
Furthermore if the report was designed using a SQL command, the location and in the name property contain the string COMMAND. Therefore the table object doesn't seems to be the solution to my problem.
Thanks to the help of a user in this forum here, I figured out how to read the SQL string of a report. Unfortunately I did not found a way to assign it back to the report.
Has anybody here an idea how to solve my problem? I'm open for every kind of hint.
Thanks in advance,
Ron

Answer 1

My solution looks like this:
ReportDocument rdReport = new ReportDocument();                   
rdReport.Load(sReportName, OpenReportMethod.OpenReportByTempCopy);
CrystalDecisions.ReportAppServer.ClientDoc.ISCDReportClientDocument rcDocument = rdReport.ReportClientDocument;                   
for (int i = 0; i < rdReport.Database.Tables.Count; ++i)
    CrystalDecisions.ReportAppServer.DataDefModel.ISCRTable rctTable = rcDocument.DataDefController.Database.Tables<i>;
    if (rctTable.ClassName == "CrystalReports.CommandTable")
        Console.WriteLine("Processing CommandTable {0}",rctTable.Name);
        Console.WriteLine("  Old Qualified Name: {0}", rctTable.QualifiedName);
        Console.WriteLine("  Old Alias:          {0}\n" , rctTable.Alias);
        CrystalDecisions.ReportAppServer.DataDefModel.CommandTable tbOldCmd = (CrystalDecisions.ReportAppServer.DataDefModel.CommandTable) rctTable;
        CrystalDecisions.ReportAppServer.DataDefModel.CommandTable tbNewCmd = new CrystalDecisions.ReportAppServer.DataDefModel.CommandTable();
        tbNewCmd.Name = tbOldCmd.Name;
        tbNewCmd.Alias = tbOldCmd.Alias;
        tbNewCmd.CommandText = sNewSql;
        tbNewCmd.ConnectionInfo = tbOldCmd.ConnectionInfo.Clone(true);
        CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag pbAttr = tbNewCmd.ConnectionInfo.Attributes;
        // set dlls
        pbAttr["Database DLL"] = "crdb_ado.dll";
        pbAttr["QE_DatabaseName"] = "NL67S021OUD";
        pbAttr["QE_DatabaseType"] = "OLE DB (ADO)";
        pbAttr["QE_ServerDescription"] = "192.0.5.24";
        pbAttr["QE_SQLDB"] = "True";
        pbAttr["SSO Enabled"] = "False";
        // set connection string                  
        CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag pbLogOnProp = (CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag)pbAttr[sAttrLogOnProp];
        pbLogOnProp.RemoveAll();
        // strangely comma seperated values instead of semicolon seperated values are needed here
        pbLogOnProp.FromString("Provider=IBMDA400,Data Source=" + sServerName + ",Initial Catalog=" + sDBName + ",User ID=" + sUserId + ",Password=" + sPwd + ",Convert Date Time To Char=TRUE,Catalog Library List=,Cursor Sensitivity=3");
        tbNewCmd.ConnectionInfo.UserName = sUserId;
        tbNewCmd.ConnectionInfo.Password = sPwd;
        rcDocument.DatabaseController.SetTableLocation(tbOldCmd, tbNewCmd);                           
    else
        Console.WriteLine("Processing Table {0}",rctTable.Name);                           
        Console.WriteLine("  Old Qualified Name: {0}", rctTable.QualifiedName);
        Console.WriteLine("  Old Alias:          {0}\n", rctTable.Alias);
        CrystalDecisions.ReportAppServer.DataDefModel.ISCRTable rctNew = new CrystalDecisions.ReportAppServer.DataDefModel.Table();
        rctNew.Name = rctTable.Name;
        rctNew.Alias = rctTable.Alias;
        rctNew.QualifiedName = sDBName + ".V41TSTDBF.CRGUOPF";
        rctNew.ConnectionInfo = rctTable.ConnectionInfo.Clone(true);
        CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag pbAttr = rctNew.ConnectionInfo.Attributes;
        // set dlls
        pbAttr["Database DLL"] = "crdb_ado.dll";
        pbAttr["QE_DatabaseName"] = "NL67S021OUD";
        pbAttr["QE_DatabaseType"] = "OLE DB (ADO)";
        pbAttr["QE_ServerDescription"] = "192.0.5.24";
        pbAttr["QE_SQLDB"] = "True";
        pbAttr["SSO Enabled"] = "False";
        // set connection string                  
        CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag pbLogOnProp = (CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag) pbAttr[sAttrLogOnProp];
        pbLogOnProp.RemoveAll();
        // strangely comma seperated values instead of semicolon seperated values are needed here
        pbLogOnProp.FromString("Provider=IBMDA400,Data Source=" + sServerName + ",Initial Catalog=" + sDBName + ",User ID=" + sUserId + ",Password=" + sPwd + ",Convert Date Time To Char=TRUE,Catalog Library List=,Cursor Sensitivity=3");
        rctNew.ConnectionInfo.UserName = sUserId;
        rctNew.ConnectionInfo.Password = sPwd;                         
        rcDocument.DatabaseController.SetTableLocation(rctTable, rctNew);
        Console.WriteLine("  New Qualified Name: {0}", rctTable.QualifiedName);
        Console.WriteLine("  New Alias:          {0}\n", rctTable.Alias);
Console.WriteLine("\nSetting parameter {0} to value {1}", rdReport.ParameterFields[0].Name, iDataId);
rdReport.SetParameterValue(0, iDataId);
Console.WriteLine("\nShow SQL: ");
CrystalDecisions.ReportAppServer.Controllers.RowsetController rsController;
CrystalDecisions.ReportAppServer.ClientDoc.ISCDReportClientDocument rdClient = rdReport.ReportClientDocument;
CrystalDecisions.ReportAppServer.DataDefModel.ISCRGroupPath rdGroupPath = new CrystalDecisions.ReportAppServer.DataDefModel.GroupPath();
string temp;
string sql;
rsController = rdClient.RowsetController;
sql = rsController.GetSQLStatement(rdGroupPath, out temp);
Console.WriteLine(sql);
Console.WriteLine("Printing");
PageMargins pmMargins = rdReport.PrintOptions.PageMargins;
pmMargins.bottomMargin = 350;
pmMargins.leftMargin = 350;
pmMargins.rightMargin = 350;
pmMargins.topMargin = 350;
rdReport.PrintOptions.ApplyPageMargins(pmMargins);
rdReport.PrintOptions.PrinterName = sPrinterName;
rdReport.PrintToPrinter(1,     // copies
                        false, // collated
                        0,     // start page
                        0);   // end page
rdReport.Close();
Regards,
Ron