1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
|
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Public Class EditeurCReport
Private MyInterface As MyInterface = CType(My.Forms.Bureau, MyInterface)
Private _CrReport As ReportDocument = Nothing
Public Property CrReport() As ReportDocument
Get
Return Me._CrReport
End Get
Set(ByVal value As ReportDocument)
Me._CrReport = value
If (Me.CrReport IsNot Nothing) Then
Dim CTableLogInfo As TableLogOnInfo
Dim ConnInfo As CrystalDecisions.Shared.ConnectionInfo = New ConnectionInfo()
ConnInfo.ServerName = Me.MyInterface.Config.ServerName
ConnInfo.DatabaseName = Me.MyInterface.Config.Fichier_database ' AppSettings("dbNm")
ConnInfo.UserID = Me.MyInterface.Config.Utilisateur ' AppSettings("username")
ConnInfo.Password = Me.MyInterface.Config.Password ' AppSettings("pas")
ConnInfo.AllowCustomConnection = False
ConnInfo.IntegratedSecurity = False
ConnInfo.Type = ConnectionInfoType.CRQE
' Me.CrReport.Database.Tables(0)
For Each CTable As CrystalDecisions.CrystalReports.Engine.Table In Me.CrReport.Database.Tables
CTable.LogOnInfo.ConnectionInfo = ConnInfo
CTableLogInfo = CTable.LogOnInfo
CTableLogInfo.ReportName = Me.CrReport.Name
CTableLogInfo.TableName = CTable.Name
CTable.ApplyLogOnInfo(CTableLogInfo)
Next
Me.MyCrystalReportViewer.ReportSource = Me.CrReport
Me.MyCrystalReportViewer.Refresh()
End If
End Set
End Property
End Class |
Partager