如何在 Crystal XI R2 的 C# .NET 应用程序中以编程方式设置 Access 或 DBASE 文件的文件位置？

Question

我需要能够在 .NET 应用程序中加载的 RPT 文件中为 Access 和 xBase 类型设置数据源。

我已经尝试过这个。

        CrystalDecisions.CrystalReports.Engine.ReportDocument reportDocument1 = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
        reportDocument1.Load(@"C:\MyCrystal.rpt", CrystalDecisions.Shared.OpenReportMethod.OpenReportByTempCopy);

             string Constr = "MyConnectionString";
            // initialize an object to pull out the needed pieces for the login information.
            SqlConnectionStringBuilder sb = new SqlConnectionStringBuilder(ConStr);
            // Turn off integrated Security
            foreach (IConnectionInfo i in reportDocument1.DataSourceConnections)
            {
                i.IntegratedSecurity = false;
            }

            // Set the LogonInfo for each Data Source 
            foreach (CrystalDecisions.CrystalReports.Engine.Table CrTable in reportDocument1.Database.Tables)
            {
                TableLogOnInfo logOnInfo = CrTable.LogOnInfo;
                String dbtype = logOnInfo.ConnectionInfo.Attributes.Collection.LookupNameValuePair("QE_DatabaseType").Value.ToString().Trim();
                if (dbtype.Equals("xBase"))
                {
                    NameValuePairs2 lp = logOnInfo.ConnectionInfo.LogonProperties;
                    foreach (NameValuePair2 nvp in lp)
                    {
                        if (nvp.Name.ToString().Trim().Equals("Data File"))
                          nvp.Value = @"C:\MyDbaseFile.dbf";
                    }
                    CrTable.ApplyLogOnInfo(logOnInfo);
                }
                else if (dbtype.Equals("OLE DB (ADO)"))
                {
                    bool sql = true;
                    NameValuePairs2 lp = logOnInfo.ConnectionInfo.LogonProperties;
                    NameValuePair2 prov = lp.LookupNameValuePair("Provider");
                    if (!prov.Value.ToString().ToUpper().Equals("SQLOLEDB"))
                    {
                        sql = false;
                        NameValuePair2 ds = lp.LookupNameValuePair("Data Source");
                        ds.Value = @"C:\MyAccess.mdb";
                    }
                    if (sql)
                    {
                        // Set the connection information for the table in the report.
                        logOnInfo.ConnectionInfo.UserID = sb.UserID;
                        logOnInfo.ConnectionInfo.Password = sb.Password;
                        logOnInfo.ConnectionInfo.ServerName = sb.DataSource;
                        logOnInfo.ConnectionInfo.DatabaseName = sb.InitialCatalog;
                    } 
                    CrTable.ApplyLogOnInfo(logOnInfo);
                }
          }

        reportDocument1.VerifyDatabase();
    reportDocument1.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, @"C:\MyTest.pdf");

我在VerifyDatabase()上收到LogOnException（或者如果ExportToDisk不存在） 我已经转储了之前和之后的值，我看到了变化......但我一定做错了什么。请帮忙！

Answer 1

从 SAP 支持人员那里得到了一些代码。