Как изменить свойства соединения отчетов Crystal в коде?

Я понимаю, что этому вопросу 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

Вы можете просто использовать этот метод для входа в любой отчет 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)