CrystalReports prompting for database details

Question

Hello all,
I am posting this issue for the second time.. In my previous post, I didn't get a solution.
For some reason a few of the reports that we run are prompting for database information for no apparent reason. I have provided a screen shot of what the behavior looks like.  Can you please let me know if you have any ideas on what might be causing this?  I have written a number of reports with the same use but for some reason only a few behave in this way.
Any ideas you may have would be helpful.
[Crystal Report DB Login screen|http://img214.imageshack.us/img214/7665/image006cy.jpg]
Thanks in advance
Anoop

Answer 1

Hi..
I am using CrystalRepots 12.2 in my machines and .NET Framework 2.0.
I am using vb.net 2005 for developing applications.
I am using SQL 2005 Database.
Connection using is ADO.NET
Here is the database login source code. Please check it.
<pre>
            Dim c As ConnectionInfo
            Dim crDB As Database
            Dim crTables As Tables
            Dim crTable As Table
            Dim TblLogonInfo As TableLogOnInfo
            Dim crSections As Sections
            Dim crSection As Section
            Dim crReportObjects As ReportObjects
            Dim crReportObject As ReportObject
            Dim crSubreportObject As SubreportObject
            Dim subRepDoc As New ReportDocument
            Dim ServerName As String, DatabaseName As String
                Me.rptDoc.Load(sCRPath, OpenReportMethod.OpenReportByTempCopy)
                ServerName = ActiveCompanyServer
                DatabaseName = ActiveCompanyDB
                c = New ConnectionInfo
                'Set Conenction info for DB
                With c
                    .ServerName = ServerName
                    .DatabaseName = DatabaseName
                    .UserID = "sa"
                    .Password = SAPsaPwd
                End With
                'Associate DB to the report
                crDB = Me.rptDoc.Database
                'Instantiate Tables collection
                crTables = crDB.Tables
                'Loop thru tables in report and set connection information
                For Each crTable In Me.rptDoc.Database.Tables
                    TblLogonInfo = crTable.LogOnInfo
                    TblLogonInfo.ConnectionInfo = c
                    crTable.ApplyLogOnInfo(TblLogonInfo)
                    crTable.Location = c.DatabaseName & ".dbo." & _
                             crTable.Location.Substring(crTable.Location.LastIndexOf(".") + 1)
                Next
                'Set the sections collection with report sections
                crSections = Me.rptDoc.ReportDefinition.Sections
                'Loop through each section and find all the report objects
                'Loop through all the report objects to find all subreport objects, then set the
                'logoninfo to the subreport
                For Each crSection In crSections
                    crReportObjects = crSection.ReportObjects
                    For Each crReportObject In crReportObjects
                        If crReportObject.Kind = ReportObjectKind.SubreportObject Then
                            'If you find a subreport, typecast the reportobject to a subreport object
                            crSubreportObject = CType(crReportObject, SubreportObject)
                            'Open the subreport
                            subRepDoc = crSubreportObject.OpenSubreport(crSubreportObject.SubreportName)
                            crDB = subRepDoc.Database
                            crTables = crDB.Tables
                            'Loop through each table and set the connection info
                            'Pass the connection info to the logoninfo object then apply the
                            'logoninfo to the subreport
                            For Each crTable In crTables
                                With c
                                    .ServerName = ServerName
                                    .DatabaseName = DatabaseName
                                    .UserID = "sa"
                                    .Password = SAPsaPwd
                                End With
                                TblLogonInfo = crTable.LogOnInfo
                                TblLogonInfo.ConnectionInfo = c
                                crTable.ApplyLogOnInfo(TblLogonInfo)
                                crTable.Location = c.DatabaseName & ".dbo." & crTable.Location.Substring(crTable.Location.LastIndexOf(".") + 1)
                            Next
                        End If
                    Next
                Next
</pre>
I had been using the same code from the year 2005(last 5 years). But didn't see this error before.
Also i am getting this error only for 2 or 3 reports.
I guess the issue is with the crystal report design.
Any way please help me.
Thank you
Anoop