|
Ok, outside the development environment, it's hanging up on either ApplyLogOnInfo or the Location setting. Function ExtractServerDatabaseNames is returning the correct Server and Database names. Below is my code used for modifying the Server/Databasename and I use Stored Procedures for the CrystalReportViewer data. Anyone have a suggestion?
Public Sub SetDatabaseLogonConnection(ByRef MyReport As Object, ByVal MyConnectionString As String)
'During runtime, the Production server/database needs to be updated from the development server/database.
'The purpose of this sub is to dynamically update the server/database at runtime.
Dim MyServerName As String = String.Empty
Dim MyDatabaseName As String = String.Empty
Dim MyTable As CrystalDecisions.CrystalReports.Engine.Table
Dim MyConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo
Dim MyLogonInfo As New CrystalDecisions.Shared.TableLogOnInfo
'Get the Server and Databasename from the project connection string
If ExtractServerDatabaseNames(MyConnectionString, MyServerName, MyDatabaseName) Then
'Update the Server/Databasename in the report
For Each MyTable In MyReport.Database.Tables
MyLogonInfo = MyTable.LogOnInfo
'We need the userid/password from MyConnectionInfo initialized before modifying the Server/Databasename
MyLogonInfo.ConnectionInfo = MyConnectionInfo
'Reset the target Server and Database names
If MyServerName <> String.Empty Then
'If you have a need for a Secure Datasource, you would need to update the userid/password here
'BEFORE calling ApplyLogOnInfo
MyLogonInfo.ConnectionInfo.ServerName = MyServerName
MyLogonInfo.ConnectionInfo.DatabaseName = MyDatabaseName
MyLogonInfo.ConnectionInfo.IntegratedSecurity = True
End If
MDIParent1.ToolStripStatusLabel.Text = "Applying Crystal Reports connection to database " & MyServerName & "/" & MyDatabaseName & "...Please wait"
MDIParent1.Update()
MyTable.ApplyLogOnInfo(MyLogonInfo)
If MyServerName <> String.Empty Then
MyTable.Location = MyTable.Location.Substring(MyTable.Location.LastIndexOf(".") + 1)
End If
Next
End If
End Sub
Public Function ExtractServerDatabaseNames(ByVal MyConnectionString As String, ByRef MyServerName As String, ByRef MyDatabaseName As String) As Boolean
'Extract the Server/Databasename from the project connection string
Const DataSource As String = "Data Source="
Const InitialCatalog As String = "Initial Catalog="
Dim Results() As String
Try
Results = Regex.Split(MyConnectionString, ";", RegexOptions.Multiline)
Catch exp As Exception
MsgBox("An error was encountered when attempting to parse the Connection String. Check to insure that the connection exists." & vbCrLf & exp.Message, _
MsgBoxStyle.Critical, Me.Text)
Return False
End Try
' To be split a string array of at least two elements must be created.
If Results.Length > 1 Then
For Each s As String In Results
If InStr(1, s, DataSource) Then
MyServerName = Trim(Mid(s, Len(DataSource) + 1, Len(s) - Len(DataSource)))
ElseIf InStr(1, s, InitialCatalog) Then
MyDatabaseName = Trim(Mid(s, Len(InitialCatalog) + 1, Len(s) - Len(InitialCatalog)))
End If
Next
End If
Return True
End Function
|