Change the DataSource (SQL Server) before view a report

Question

I have wrote a application that´s use CR2008. in my developer machine (the same machine where the reports are created) it works fine
I have install my application on a test machine. But when i open the report then allway come up a window to input the database credentials. Importing thing: All fileds are correct filled, only the Database field is writeprotect and empty (???)
I using follwing code
''' <summary>
    ''' Kapselt das Anzeigen eines CrystalReports-Bericht
    ''' </summary>
    ''' <param name="rptFileName">Pfad und Dateiname des Berichts, der angezeigt werden soll</param>
    ''' <param name="ConnStr">Datenbank-Verbindung, die innerhalb des Berichts ersetzt werden soll</param>
    ''' <returns>Wird der Wert TRUE zurückgegeben, dann war das anzeigen Erfolgreich. Bei dem Rückgabewert
    ''' FALSE trat ein nicht abgearbeiteter Fehler auf</returns>
    ''' <remarks></remarks>
    Public Function ShowRPTFile(ByVal rptFileName As String, Optional ByVal ConnStr As String = "") As Boolean
        Dim cryRpt As New ReportDocument
        Dim crtableLogoninfos As New TableLogOnInfos
        Dim crtableLogoninfo As New TableLogOnInfo
        Dim crConnectionInfo As New ConnectionInfo
        Dim crSubReportObject As SubreportObject
        Dim crSubRepDoc As New ReportDocument
        Dim CrTables As Tables
        Dim CrTable As Table
        Dim SQLServer As New MyApp.Interface.MSSQLSMO.MSSQLServer
        Dim sCounter As Integer ' Sektionen
        Dim iCounter As Integer ' Objekte
        Dim tCounter As Integer ' Tabellen
        Try
            cryRpt.Load(rptFileName)
            ' Ersetzen des internen Connection-Strings für alle Tabellen
            If ConnStr <> "" Then
                MyApp.FX.Interface.Database.SplitConnectionString(SQLServer, ConnStr)
                With crConnectionInfo
                    .ServerName = SQLServer.Server
                    .DatabaseName = SQLServer.Database
                    If SQLServer.Login IsNot Nothing Then
                        .UserID = SQLServer.Login
                        .Password = SQLServer.Password
                        .IntegratedSecurity = False
                    Else
                        .IntegratedSecurity = True
                    End If
                End With
                CrTables = cryRpt.Database.Tables
                For Each CrTable In CrTables
                    crtableLogoninfo = CrTable.LogOnInfo
                    crtableLogoninfo.ConnectionInfo = crConnectionInfo
                    CrTable.ApplyLogOnInfo(crtableLogoninfo)
                    ' If your DatabaseName is changing at runtime, specify
                    ' the table location. For example, when you are reporting()
                    ' off of a Northwind database on SQL server
                    ' you should have the following line of code:
                    CrTable.Location = crConnectionInfo.DatabaseName + ".dbo." + CrTable.Location.Substring(CrTable.Location.LastIndexOf(".") + 1)
                Next
                ' Loop through each section on the report then look
                ' through each object in the section
                ' if the object is a subreport, then apply logon info
                ' on each table of that sub report
                For sCounter = 0 To cryRpt.ReportDefinition.Sections.Count - 1
                    For iCounter = 0 To _
                        cryRpt.ReportDefinition.Sections(sCounter).ReportObjects.Count - 1
                        With cryRpt.ReportDefinition.Sections(sCounter)
                            If .ReportObjects(iCounter).Kind = _
                            CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then
                                crSubReportObject = CType(.ReportObjects(iCounter), SubreportObject)
                                crSubRepDoc = crSubReportObject.OpenSubreport(crSubReportObject.SubreportName)
                                For tCounter = 0 To crSubRepDoc.Database.Tables.Count - 1
                                    crSubRepDoc.Database.Tables(tCounter).ApplyLogOnInfo(crtableLogoninfo)
                                Next
                            End If
                        End With
                    Next
                Next
            End If
            ' Zum Schluß wird der bericht dann nur noch angezeigt
            With Me
                'Re setting control
                .ReportSource = Nothing
                'Set the current report object to report
                .ReportSource = cryRpt
            End With
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function
Edited by: MKolowicz on Oct 22, 2010 8:41 AM

Answer 1

See the article [Troubleshooting Guide to Database Connectivity Issues with Crystal Reports in Visual Studio .NET Applications|http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/b0225775-88c4-2c10-bd80-8298769293de].
Also, search these forums and use the search box at the top right of this page. You will get results for KBases, wikis, blogs, articles and more...
Ludek
Follow us on Twitter http://twitter.com/SAPCRNetSup
Got Enhancement ideas? Try the [SAP Idea Place|https://ideas.sap.com/community/products_and_solutions/crystalreports]