*** Canu2019t Change ServerName or DatabaseName At Runtime In Crystal Report!!!

Question

Canu2019t Change ServerName or DatabaseName At Runtime In Crystal Report. Why?
HI thereu2026 This is just a simple Winform(not ASP) with a Crystal Report Viewer control on it that was called by another simple WinForm. Iu2019m trying to simply change the Server Name for a Crystal Report at runtime and it will not let me. Hereu2019s the code below. The database is identical to my development server database. This should be easy to do as I did below. I use SQL Server 2005(SPK 2) and Visual Basic 2008. I use the Crystal Reports 2008 standalone designer(seperate program), not the older one in the VS IDE. When I run the code it accepts changes to the user name and password but ignores any change to the ServerName or DatabaseName. Why?
Mike in Los Angeles, Calif, USA
Imports CrystalDecisions.CrystalReports.Engine
Public Class CrystalReportForm2
    Private Sub CrystalReportForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CrystalReportViewer1.LogOnInfo = New CrystalDecisions.Shared.TableLogOnInfos()
        Dim LogonInfo As New CrystalDecisions.Shared.TableLogOnInfo
        LogonInfo.TableName = "clients"
        'Force crystal report to use a different server AT RUNTIME than the development server!
        LogonInfo.ConnectionInfo.ServerName = "DATASERVER2"    u2018<- ignores changes to this!!
        LogonInfo.ConnectionInfo.DatabaseName = "CMSDATASQL"   u2018<- ignores changes to this!!
        LogonInfo.ConnectionInfo.UserID = "SQL_USER"           u2018<- accepts changes to this!!
        LogonInfo.ConnectionInfo.Password = "34567WERTD"       u2018<- accepts changes to this!!
        CrystalReportViewer1.LogOnInfo.Add(LogonInfo)
        'Testing only below!
        ' MsgBox("ServerName =" & CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.ServerName)
        'MsgBox("DatabaseName =" & CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.DatabaseName)
        CrystalReportViewer1.SelectionFormula = "{openclientsquery.lastname} like  'c*'"
        'CrystalReportViewer1.SelectionFormula = "{clients.clientid} = '1111111'"
        CrystalReportViewer1.Refresh()
    End Sub
End Class
Edited by: Mike JJJ on Dec 25, 2008 7:26 PM
Edited by: Mike JJJ on Dec 25, 2008 7:30 PM

Answer 1

Yes, you have to simply loop through all the tables in the report and assign each one the same logon info and then reassign the report and refresh the report viewer. No need to use a .Net Dataset here. Eventhough I got the answer myself from studying the Crystal API reference thanks to all that answered! Hopefully this will help others. Mike in Los Angeles, Calif, USA.
Imports CrystalDecisions.CrystalReports.Engine
Public Class CrystalReportForm2
    Private Sub CrystalReportForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyReport As New Clients 'Instance of report!!!
        Dim myLogonInfo As New CrystalDecisions.Shared.TableLogOnInfo
        Dim myTable As Table
        For Each myTable In MyReport.Database.Tables
            myLogonInfo = myTable.LogOnInfo
            myLogonInfo.ConnectionInfo.ServerName = " DATASERVER2"
            myLogonInfo.ConnectionInfo.DatabaseName = "CMSDATASQL"
            myLogonInfo.ConnectionInfo.UserID = "SQL_USER"
            myLogonInfo.ConnectionInfo.Password = "34567WERTD"
            myTable.ApplyLogOnInfo(myLogonInfo)
        Next myTable
        CrystalReportViewer1.ReportSource = MyReport
        CrystalReportViewer1.SelectionFormula = "{openclientsquery.lastname} like  'c*'"
        CrystalReportViewer1.Refresh()
    End Sub
End Class
PS - Hopefully, in the future Microsoft will improve(and document) its own report control and designer. Right now it's still crude and needs a lot more development to approach the usefulness that the Access Report Designer has. It's rediculous to depend on a third party reporting control(all business programs require reporting) when Visual Studio should have had/built one included from day one.