如何更改代碼中的Crystal報表連接屬性？

Question

當Crystal Reports仍然支持ActiveX時，我們會創建水晶報表，以便將ODBC數據源指向Access或SQL數據庫。在運行時，我們會將報告更改爲使用OLE DB（ADO）而不是ODBC，將服務器名稱，數據庫名稱，用戶名，密碼更改爲特定於用戶的密碼，然後運行報告，它工作正常。

既然Crystal Reports 2008不再支持ActiveX，我們正試圖在.NET中做同樣的事情，但沒有成功。

這裏是到目前爲止的代碼：

Public Function ChangeConnectionInfo() As ReportDocument 
     Dim boReportDocument As New ReportDocument 
     '**EDIT** Change the path and report name to the report you want to change. 
     boReportDocument.Load("c:\CustomerListSQL.Rpt", OpenReportMethod.OpenReportByTempCopy) 

     'Create a new Command Table to replace the reports current table. 
     Dim boTable As New CrystalDecisions.ReportAppServer.DataDefModel.CommandTable 

     'boMainPropertyBag: These hold the attributes of the tables ConnectionInfo object 
     Dim boMainPropertyBag As New PropertyBag 
     'boInnerPropertyBag: These hold the attributes for the QE_LogonProperties 
     'In the main property bag (boMainPropertyBag) 
     Dim boInnerPropertyBag As New PropertyBag 

     'Set the attributes for the boInnerPropertyBag 
     boInnerPropertyBag.Add("Auto Translate", "-1") 
     boInnerPropertyBag.Add("Connect Timeout", "15") 
     boInnerPropertyBag.Add("Data Source", "K2") 
     boInnerPropertyBag.Add("General Timeout", "0") 
     boInnerPropertyBag.Add("Initial Catalog", "DBNAME") 
     boInnerPropertyBag.Add("Integrated Security", "True") 
     boInnerPropertyBag.Add("Locale Identifier", "5129") 
     boInnerPropertyBag.Add("OLE DB Services", "-5") 
     boInnerPropertyBag.Add("Provider", "SQLOLEDB") 
     boInnerPropertyBag.Add("Tag with column collation when possible", "0") 
     boInnerPropertyBag.Add("Use DSN Default Properties", "False") 
     boInnerPropertyBag.Add("Use Encryption for Data", "0") 

     'Set the attributes for the boMainPropertyBag 
     boMainPropertyBag.Add("Database DLL", "crdb_ado.dll") 
     boMainPropertyBag.Add("QE_DatabaseName", "DBNAME") 
     boMainPropertyBag.Add("QE_DatabaseType", "OLE DB (ADO)") 
     'Add the QE_LogonProperties we set in the boInnerPropertyBag Object 
     boMainPropertyBag.Add("QE_LogonProperties", boInnerPropertyBag) 
     boMainPropertyBag.Add("QE_ServerDescription", "K2") 
     boMainPropertyBag.Add("QE_SQLDB", "True") 
     boMainPropertyBag.Add("SSO Enabled", "False") 

     'Create a new ConnectionInfo object 
     Dim boConnectionInfo As New CrystalDecisions.ReportAppServer.DataDefModel.ConnectionInfo 
     'Pass the database properties to a connection info object 
     boConnectionInfo.Attributes = boMainPropertyBag 
     'Set the connection kind 
     boConnectionInfo.Kind = CrConnectionInfoKindEnum.crConnectionInfoKindCRQE 
     '**EDIT** Set the User Name and Password if required. 
     'boConnectionInfo.UserName = "UserName" 
     'boConnectionInfo.Password = "Password" 
     'Pass the connection information to the table 
     boTable.ConnectionInfo = boConnectionInfo 

     'Get the Database Tables Collection for your report 
     Dim boTables As CrystalDecisions.ReportAppServer.DataDefModel.Tables = _ 
      boReportDocument.ReportClientDocument.DatabaseController.Database.Tables  

     'For each table in the report: 
     ' - Set the Table Name properties. 
     ' - Set the Command table's command text. 
     ' - Set the table location in the report to use the new modified table 
     For Each boReportTable In boTables 
      boTable.Name = boReportTable.Name 
      boTable.QualifiedName = "DBNAME.dbo." + boReportTable.Name 'boReportTable.QualifiedName 
      boTable.Alias = boReportTable.Alias  
      boReportDocument.ReportClientDocument.DatabaseController.SetTableLocation(boReportTable, boTable) 
     Next 

     'Verify the database after adding substituting the new table. 
     'To ensure that the table updates properly when adding Command tables or Stored Procedures. 
     boReportDocument.VerifyDatabase() 

     Return boReportDocument 
    End Function 

代碼工作，直到它到達boReportDocument.VerifyDatabase（），當我得到一個「登錄失敗」錯誤的。

我試圖在這裏使用的代碼，以及：

Dynamically change the connection of a Crystal Report

這也不能工作，我不知道是否有與ODBC切換到OLE DB做（ADO）

Answer 1

我意識到這個問題已經3年了，OP可能已經開始了，但也許這可以幫助別人尋找答案。

這是加載從VB.NET報表變化每天都在使用來自多個數據源報告連接信息和其他東西一樣的參數值，從運行的應用程序中抽取並簡化的一個完整的例子：

Private Sub ReportGo() 
     'Main Report 
     Dim crxRpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument 
     'Subreport objects, if you need them 
     Dim crxSubrpt1 As New CrystalDecisions.CrystalReports.Engine.ReportDocument, crxSubrpt2 As New CrystalDecisions.CrystalReports.Engine.ReportDocument 
     'Parameter fields objects and values, if you need them 
     Dim crxPar1 As New CrystalDecisions.Shared.ParameterField 
     Dim crxVal1 As New CrystalDecisions.Shared.ParameterDiscreteValue 

     'Load report file 
     crxRpt.Load("myreport.rpt") 

     'Load subreports, if you have them. Otherwise comment these lines 
     crxSubrpt1 = crxRpt.OpenSubreport("MySubr1") 
     crxSubrpt2 = crxRpt.OpenSubreport("MySubr2") 

     'Login Main Report 
     Dim myTables As CrystalDecisions.CrystalReports.Engine.Tables = crxRpt.Database.Tables 
     crxRpt.SetDatabaseLogon("Username", "Password", "Servername", "Database") 
     Dim crConnInfo1 As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo 
     crConnInfo1.DatabaseName = "Database" 
     crConnInfo1.UserID = "Username" 
     crConnInfo1.Password = "Password" 
     crConnInfo1.ServerName = "Servername" 

     'If your report uses more than one datasource, then uncomment and add the other login info here: 
     'crxRpt.SetDatabaseLogon("Username2", "Password2", "Servername2","Database2") 
     'Dim crConnInfo2 As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo 
     'crConnInfo2.DatabaseName = "Database2"    
     'crConnInfo2.UserID = "Username2" 
     'crConnInfo2.Password = "Password2" 
     'crConnInfo2.ServerName = "Servername2" 

     For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables 
      Dim myTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo = myTable.LogOnInfo 
      If myTable.LogOnInfo.ConnectionInfo.DatabaseName = "Database" Then 
       myTableLogonInfo.ConnectionInfo = crConnInfo1 
       myTable.ApplyLogOnInfo(myTableLogonInfo) 
      Else 
       'This here only applies if you have more than one datasource 
       'myTableLogonInfo.ConnectionInfo = crConnInfo2 
       'myTable.ApplyLogOnInfo(myTableLogonInfo) 
      End If 
     Next 

     'Subreport Login. Comment this section if you don't use them 
     crxSubrpt1.SetDatabaseLogon("Username", "Password","Servername", "Database") 
     'again, only if you use 2 datasources 
     'crxSubrpt1.SetDatabaseLogon("Username2", "Password2", "Servername2", "Database2") 
     crxSubrpt1.RecordSelectionFormula = "Subreport 1 Selection formula goes here" 
     crxSubrpt2.SetDatabaseLogon("Username", "Password","Servername", "Database") 
     'again, only if you use 2 datasources 
     'crxSubrpt2.SetDatabaseLogon("Username2", "Password2", "Servername2", "Database2") 
     crxSubrpt2.RecordSelectionFormula = "Subreport 2 selection formula goes here" 

     Dim mySections As CrystalDecisions.CrystalReports.Engine.Sections = crxRpt.ReportDefinition.Sections 
     For Each mySection As CrystalDecisions.CrystalReports.Engine.Section In mySections 
      Dim myReportObjects As CrystalDecisions.CrystalReports.Engine.ReportObjects = mySection.ReportObjects 
      For Each myReportObject As CrystalDecisions.CrystalReports.Engine.ReportObject In myReportObjects 
       If myReportObject.Kind = CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then 
        Dim mySubreportObject As CrystalDecisions.CrystalReports.Engine.SubreportObject = CType(myReportObject, CrystalDecisions.CrystalReports.Engine.SubreportObject) 
        Dim subReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument = mySubreportObject.OpenSubreport(mySubreportObject.SubreportName) 
        Dim mytablessub As CrystalDecisions.CrystalReports.Engine.Tables = subReportDocument.Database.Tables 
         For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In mytablessub 
          Dim myTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo = myTable.LogOnInfo 
          If myTable.LogOnInfo.ConnectionInfo.DatabaseName = "Database" Then 
           myTableLogonInfo.ConnectionInfo = crConnInfo1 
           myTable.ApplyLogOnInfo(myTableLogonInfo) 
          Else 
           'Only if you use 2 datasources 
           'myTableLogonInfo.ConnectionInfo = crConnInfo2 
           'myTable.ApplyLogOnInfo(myTableLogonInfo) 
          End If 
         Next 
        End If 
       Next 
      Next 
     End If 

     'If the report uses Parameter fields, uncomment this and fill as appropiate 
     'crxVal1.Value = "Parameter 1 Value" 
     'crxPar1.Name = "Parameter 1 name" 
     'crxPar1.CurrentValues.Add(crxVal1) 
     'crxPar1.HasCurrentValue = True 

     'Apply main report selection formula 
     crxRpt.RecordSelectionFormula = "Main report selection formula goes here" 
     crxRpt.Refresh() 


     'Now, if you preview the report in your VB app with a CrystalReportViewer, uncomment this: 
     'YourForm.CristalReportViewer.ReportSource = crxRpt 

     'If you use Parameter fields... 
     'YourForm.CrystalReportViewer.ParameterFieldInfo.Clear() 
     'YourForm.CrystalReportViewer.ParameterFieldInfo.Add(crxPar1) 

     'Finally, if you need to export the report automatically 
     CrxRpt.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, "Yourfile.pdf") 

End Sub 

Answer 2

您可以簡單地使用此方法登錄您想要的任何Crystal Report。

只需將您的參數：

Public Sub LogOn(ByVal poReport As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal strServer As String, ByVal strTable As String, ByVal strUsername As String, ByVal strPassword As String) 
    Dim loConnInfo As New CrystalDecisions.Shared.ConnectionInfo 
    loConnInfo.ServerName = strServer 
    loConnInfo.DatabaseName = strTable 
    loConnInfo.UserID = strUsername 
    loConnInfo.Password = strPassword 
    loConnInfo.IntegratedSecurity = False 
    Dim loTables As CrystalDecisions.CrystalReports.Engine.Tables 
    Dim loTable As CrystalDecisions.CrystalReports.Engine.Table 
    Dim loTableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo 
    loTables = poReport.Database.Tables 

    For Each loTable In loTables 
     loTableLogonInfo = loTable.LogOnInfo 
     loTableLogonInfo.ConnectionInfo.UserID = strUsername 
     loTableLogonInfo.ConnectionInfo.Password = strPassword 
     loTableLogonInfo.ConnectionInfo.ServerName = strServer 
     loTableLogonInfo.ConnectionInfo.DatabaseName = strTable 
     loTableLogonInfo.ConnectionInfo.IntegratedSecurity = False 
     loTable.ApplyLogOnInfo(loTableLogonInfo) 
    Next 
End Sub 

，並調用它像這樣：

LogOn(yourReportDocument, serverPath, databaseName, userName, password)