如何在用于访问或DBase文件的Crystal XI R2的C＃.NET应用程序中以编程为程序设置文件位置？

Question

我需要能够在我在.NET应用程序中加载的RPT文件中的访问和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，我在之前和之后都倾倒了这些值，我看到了更改...但是我一定做错了。请帮忙！

Answer 1

为此，从SAP支持人员那里获得了一些代码。