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