0

我需要能够在 .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)我已经倾倒了之前和之后的值,我看到了变化......但我一定做错了什么。请帮忙!

4

1 回答 1

0

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

于 2011-06-06T13:38:44.627 回答