Olá,
Tenho um relatório do Crystal que estava carregando um arquivo DBF, mas quero mudar a conexão para SQL em tempo de execução através do RAS. Abaixo está o código que encontrei no fórum da SAP, mas continuo recebendo a mensagem "Erro ao carregar informações do banco de dados".. O que poderia estar errado aqui?
Obrigado,
CrystalDecisions.CrystalReports.Engine.ReportDocument myReport2 = new CrystalDecisions.CrystalReports.Engine.ReportDocument();
protected void Page_Load(object sender, EventArgs e) {
try {
myReport2.Load( Server.MapPath( "CRDBase.rpt" ) );
ISCDReportClientDocument reportClientDocument = myReport2.ReportClientDocument;
ISCDReportClientDocument rcd;
rcd = reportClientDocument;
reportClientDocument.DatabaseController.LogonEx( "SQL2008R2", "CR", "smisreader", "pass@word1" );
//Crie o PropertyBag de login para a conexão que desejamos usar
CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag logonDetails = new CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag();
logonDetails.Add( "Auto Translate", -1 );
logonDetails.Add( "Connect Timeout", 15 );
logonDetails.Add( "Data Source", "SQL2008R2" );
logonDetails.Add( "General Timeout", 0 );
logonDetails.Add( "Initial Catalog", "CR" );
logonDetails.Add( "Integrated Security", "false" );
logonDetails.Add( "Locale Identifier", 1033 );
logonDetails.Add( "OLE DB Services", -5 );
logonDetails.Add( "Provider", "SQLOLEDB" );
logonDetails.Add( "Use Encryption for Data", 0 );
logonDetails.Add( "Owner", "dbo" ); // esquema
//Crie o PropertyBag do motor de consulta com os detalhes do provedor e o PropertyBag de login
CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag QE_Details = new CrystalDecisions.ReportAppServer.DataDefModel.PropertyBag();
QE_Details.Add( "Database DLL", "crdb_ado.dll" );
QE_Details.Add( "QE_DatabaseName", "CR" );
QE_Details.Add( "QE_DatabaseType", "OLE DB (ADO)" );
QE_Details.Add( "QE_LogonProperties", logonDetails );
QE_Details.Add( "QE_ServerDescription", "SQL2008R2" );
QE_Details.Add( "QE_SQLDB", "True" );
QE_Details.Add( "SSO Enabled", "False" );
QE_Details.Add( "Owner", "dbo" );
CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo newConnInfo = new CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo();
CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo oldConnInfo;
CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfos oldConnInfos;
oldConnInfos = rcd.DatabaseController.GetConnectionInfos( null );
for( int I = 0; I < oldConnInfos.Count; I++ ) {
oldConnInfo = oldConnInfos<i>;
newConnInfo.Attributes = QE_Details;
newConnInfo.Kind = CrystalDecisions.ReportAppServer.DataDefModel.CrConnectionInfoKindEnum.crConnectionInfoKindCRQE;
reportClientDocument.ReplaceConnection( oldConnInfo, newConnInfo, null, CrystalDecisions.ReportAppServer.DataDefModel.CrDBOptionsEnum.crDBOptionDoNotVerifyDB );
}
CrystalReportViewer2.ReportSource = myReport2;
}
catch( Exception ex ) {
}
}
