Crystal Report XI Release 2 - Deployment Bug on SQL Server

Question

Post Author: PeterLiebich
CA Forum: General
H
We have a VS 2005 Crystal web app deployed onto a server - not using the RAS but using the Crsytal Report Viewer.
Nearly Everything is working however we have one slight bug which is driving me mad.
All of our reports are constructed against a development SQL Server, and then the Application resets the report location at run time to the Appropriate production server.
Everything works fine when I run the appliction via VS 2005 on my XP machine, the reports repoint successfully etc.
When I build the App and deploy it to a server, the CrystalReportViewer fails with a "Database logon failed" if (and only if) the name of the database that the report was developent against is the same as the name as the database is being repointed to (on a different server).  If the developement and production databases have different names then the resetting of the location works fine.
As I said the repointing works fine when I run the App on my development machine which has Crystal Reports XI Release 2 installed.
On the Server I have installED the Crystal dlls via CrystalReports11_5_NET_2005.msi dated 2007/03/01.
I have also tried to deploy dlls via a GAC using CrystalReports11_5_NET_2005.msm dated 2006/02/24.
All to no avail
Here is the code I use to repoint the report
Dim crConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo
crConnectionInfo.IntegratedSecurity = True
crConnectionInfo.ServerName = v_ServerName
crConnectionInfo.DatabaseName = v_DatabaseName
'loop through all the tables and pass in the connection info
Dim crTableLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo
For Each crTable As CrystalDecisions.CrystalReports.Engine.Table In  Me.m_ReportDocument.Database.Tables
  crTableLogOnInfo = crTable.LogOnInfo
  crTableLogOnInfo.ConnectionInfo = crConnectionInfo
  crTable.ApplyLogOnInfo(crTableLogOnInfo)
Next
'set the crSections object to the current report's sections
'loop through all the sections to find all the report objects
Dim crSubreportObject As CrystalDecisions.CrystalReports.Engine.SubreportObject
Dim crSubreportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
For Each crSection As CrystalDecisions.CrystalReports.Engine.Section In Me.m_ReportDocument.ReportDefinition.Sections
  'loop through all the report objects to find all the subreports
  For Each crReportObject As CrystalDecisions.CrystalReports.Engine.ReportObject In crSection.ReportObjects
    If crReportObject.Kind = CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then
    ' you will need to typecast the reportobject to a subreport object once you find it
     crSubreportObject = CType(crReportObject, CrystalDecisions.CrystalReports.Engine.SubreportObject)
     'open the subreport object
     crSubreportDocument = crSubreportObject.OpenSubreport(crSubreportObject.SubreportName)
    'loop through all the tables in the subreport and
    'apply the connection set up previously to the subreports
    For Each crTable As CrystalDecisions.CrystalReports.Engine.Table In crSubreportDocument.Database.Tables
      crTableLogOnInfo = crTable.LogOnInfo
      crTableLogOnInfo.ConnectionInfo = crConnectionInfo
      crTable.ApplyLogOnInfo(crTableLogOnInfo)
    Next
    End If
  Next
Next

Answer 1

Post Author: jjamcgu
CA Forum: General
Don't know if you ever found a solution, but here is how I got it to work.
1) If it was created pointing to a localhost database, it may be using named pipes to connect, where as production / test uses TCP/IP.  Our CR9 system automatically switched from Named Pipes to TCP/IP but CR11 does not.  Repointing the report to a non local version of the database fixed one problem of runtime switching.  (This includes switching back to localhost).
2) When you change the server name, CR11 does not update the table object, but clones it and applies the update to the clone.  I needed to update the location apply the update and then apply the login change (I am not using integrated security, so this may not apply to you.).  See the code below.  I call setServerInfo and then setLogonInfo. Sub setLogonInfo(ByRef myReport As ReportDocument)
        Dim logonInfo As New TableLogOnInfo
        Dim table As CrystalDecisions.CrystalReports.Engine.Table
        For Each table In myReport.Database.Tables
            logonInfo = table.LogOnInfo
            logonInfo.ConnectionInfo.UserID = loginName
            logonInfo.ConnectionInfo.Password = loginPassword
            table.ApplyLogOnInfo(logonInfo)
        Next table
    End Sub
    Sub setServerInfo(ByRef myReport As ReportDocument)
        Dim logonInfo As New TableLogOnInfo
        Dim table As CrystalDecisions.CrystalReports.Engine.Table
        For Each table In myReport.Database.Tables
            logonInfo = table.LogOnInfo
            Select Case AppSettings("DataEnvironment")
                 Case "PRODUCTION"
                      logonInfo.ConnectionInfo.ServerName = "productionServer.local"
                 Case "TEST"
                      logonInfo.ConnectionInfo.ServerName = "testServer.local"
                 Case "LOCAL"
                      logonInfo.ConnectionInfo.ServerName = "localhost"
             End Select
             table.ApplyLogOnInfo(logonInfo)
        Next table
    End Sub