[Visual Basic] Private Sub DBConnection_SubReports( _
ByRef cr As ReportDocument _
)
[Visual Basic] Private Sub DBConnection_SubReports(ByRef cr As ReportDocument)
If cr.Subreports.Count < 1 Then Exit Sub
Dim filename As String = Application.StartupPath + "\" + Me.auswertung.Auswertung.sConnectionstring_Subreport.Value
Dim ofile As System.IO.File
Dim oread As System.IO.StreamReader
Dim CoInfo As SqlClient.SqlConnection
oread = ofile.OpenText(filename)
sConnectionString = oread.ReadLine
sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
sConnectionString = Microsoft.VisualBasic.Left(sConnectionString, Len(sConnectionString) - 1)
Dim split() As String = sConnectionString.Split(";")
Dim servername As String = split(0)
Dim dbname As String = split(1)
Dim userid As String = split(5)
Dim password As String = split(6)
split = servername.Split("=")
servername = split(1)
split = dbname.Split("=")
dbname = split(1)
split = userid.Split("=")
userid = split(1)
split = password.Split("=")
password = split(1)
Dim Lo As New TableLogOnInfos()
For Each subreport As ReportDocument In cr.Subreports
Dim subreportdoc As ReportDocument = subreport
Dim logonInfo As New TableLogOnInfo()
For Each d As CrystalDecisions.CrystalReports.Engine.Table In subreportdoc.Database.Tables
logonInfo = d.LogOnInfo
logonInfo.ConnectionInfo.ServerName = servername
logonInfo.ConnectionInfo.DatabaseName = dbname
logonInfo.ConnectionInfo.UserID = userid
logonInfo.ConnectionInfo.Password = password
d.ApplyLogOnInfo(logonInfo)
Next
Next
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition