Database logon failed

[pkipe1]

My vb.net app contains a CR report that is exported to a .pdf.  The report is generated correctly on two computers, but on the third computer it fails with the subject error.  The PCs on which the app works are Win10 and Win11, and the one on which it doesn't is Win11, and is a brand new Dell.  The app is reporting on data contained in an Azure SQL Server database.  How can I debug this problem?  My development environment is on the Win11 computer on which the report works.  I don't have a development environment on the Win11 computer where I'm encountering the error.  Is there a way I can enable error logging in CR?  The error I'm logging follows:

2025-04-04 17:56:57 Title: clsMonthlyReports._RunReport
2025-04-04 17:56:57 Message: CrystalDecisions.CrystalReports.Engine.LogOnException: Database logon failed. ---> System.Runtime.InteropServices.COMException: Database logon failed.
2025-04-04 17:56:57 at CrystalDecisions.ReportAppServer.Controllers.ReportSourceClass.Export(ExportOptions pExportOptions, RequestContext pRequestContext)
2025-04-04 17:56:57 at CrystalDecisions.ReportSource.EromReportSourceBase.ExportToStream(ExportRequestContext reqContext)
2025-04-04 17:56:57 --- End of inner exception stack trace ---
2025-04-04 17:56:57 at CrystalDecisions.ReportAppServer.ConvertDotNetToErom.ThrowDotNetException(Exception e)
2025-04-04 17:56:57 at CrystalDecisions.ReportSource.EromReportSourceBase.ExportToStream(ExportRequestContext reqContext)
2025-04-04 17:56:57 at CrystalDecisions.CrystalReports.Engine.FormatEngine.ExportToStream(ExportRequestContext reqContext)
2025-04-04 17:56:57 at CrystalDecisions.CrystalReports.Engine.FormatEngine.Export(ExportRequestContext reqContext)
2025-04-04 17:56:57 at CrystalDecisions.CrystalReports.Engine.ReportDocument.ExportToDisk(ExportFormatType formatType, String fileName)
2025-04-04 17:56:57 at AIS_Manager.clsMonthlyReports._RunReport(String aReportName, Boolean aShowProgress, Int32 aRunType)

Any help would be greatly appreciated.  Thanks

[pkipe1]

Here's the entire procedure, in case it helps:

    Public Function _RunReport(ByVal aReportName As String,
                               Optional ByVal aShowProgress As Boolean = False,
                               Optional ByVal aRunType As Integer = RunType.Foreground) As Boolean

        Dim t As Type = MethodBase.GetCurrentMethod().DeclaringType
        Dim sf As New StackFrame()
        Dim mb As MethodBase = sf.GetMethod()
        Dim lsModuleAndMethod As String = t.Name & "." & mb.Name & ": "

        If gbVerbose Then
            If aRunType = RunType.Foreground Then
                Call P_LogProcedure(t.Name, mb.Name)
            Else
                Call P_LogProcedureBackground(t.Name, mb.Name)
            End If
        End If

        Dim liLocation As Integer = 0
        Dim lipk_report As Integer = 0
        Dim lsFileName As String = ""
        Dim lfrmProgress As frmProgress = Nothing
        Dim lsExportPathAndFileName As String = ""

        Try
            Using lclsDatabase As New clsDatabase
                With lclsDatabase
                    liLocation = 1 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                    If .GetReportPK(aReportName, lipk_report, aRunType) Then

                        ' get a data table of groups for report
                        Dim l_dt As New DataTable
                        liLocation = 2 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                        If .GetReportGroupMembers(lipk_report, l_dt, aRunType) Then

                            ' show progress window
                            If aShowProgress Then
                                liLocation = 3 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                                lfrmProgress = New frmProgress(0, l_dt.Rows.Count, "")
                            End If

                            If aRunType = RunType.Foreground Then
                                WriteToLog(lsModuleAndMethod & "Processing started for " & aReportName, True)
                            Else
                                WriteToBackgroundLog(lsModuleAndMethod & "Processing started for " & aReportName)
                            End If

                            Dim lConnectionInfo As New ConnectionInfo
                            With lConnectionInfo
                                .ServerName = gsServer
                                .DatabaseName = gsDatabase
                                .UserID = gsUserID
                                .Password = gsPassword
                                .IntegratedSecurity = False
                            End With

                            ' for each group member
                            For i As Integer = 0 To l_dt.Rows.Count - 1

                                ' show group name being processed in progress window
                                If aShowProgress Then
                                    lfrmProgress.DisplayMessage(l_dt.Rows(i)("group_name"), True)
                                    lfrmProgress.ProgressBarVisible(True)
                                    lfrmProgress.Show()
                                    Application.DoEvents()
                                End If

                                ' write pk_group to the Parms table
                                liLocation = 4 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                                .UpdateParms(lipk_report, CInt(l_dt.Rows(i)("fk_group")), aRunType)

                                ' run the report
                                liLocation = 5 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                                Using lrptTechnicianExpirations As New rptTechnicianExpirations
                                    With lrptTechnicianExpirations
                                        ' clear saved data
                                        liLocation = 6 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                                        .Refresh()

                                        ' override the database connection string info
                                        For Each table As Table In .Database.Tables
                                            With table
                                                .LogOnInfo.ConnectionInfo = lConnectionInfo
                                                If gbVerbose Then
                                                    WriteToLog("table.ServerName = " & .LogOnInfo.ConnectionInfo.ServerName, True)
                                                    WriteToLog("table.DatabaseName = " & .LogOnInfo.ConnectionInfo.DatabaseName, True)
                                                    WriteToLog("table.Password = " & .LogOnInfo.ConnectionInfo.Password, True)
                                                    WriteToLog("table.UserID = " & .LogOnInfo.ConnectionInfo.UserID, True)
                                                End If
                                                .ApplyLogOnInfo(.LogOnInfo)
                                            End With
                                        Next table

                                        For Each subrep As ReportDocument In .Subreports
                                            With subrep
                                                For Each table As Table In .Database.Tables
                                                    With table
                                                        .LogOnInfo.ConnectionInfo = lConnectionInfo
                                                        .ApplyLogOnInfo(.LogOnInfo)
                                                    End With
                                                Next table
                                            End With
                                        Next subrep

                                        ' create the report as a pdf - save in MVIRS Manager\Reports\{group name}\yyyy-mm-dd {report_name} {group_name}.pdf
                                        ' get variable of complete .pdf file name
                                        liLocation = 7 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                                        lsFileName = Format(Now(), DateFormatYMD) & " " & aReportName & " " & l_dt.Rows(i).Item("group_name") & ".pdf"

                                        ' get variable of complete export directory name
                                        liLocation = 8 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                                        Dim lsExportDirectory = GetSetting(Application.ProductName, "frmOptions", "LocalRootDirectory", "")
                                        lsExportDirectory = lsExportDirectory &
                                            "LifeCycle\" & IIf(gbProduction, "prod\", "dev\") & "Reports\" & l_dt.Rows(i).Item("group_name") & "\"
                                        System.IO.Directory.CreateDirectory(lsExportDirectory)

                                        ' export the report
                                        liLocation = 10 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                                        lsExportPathAndFileName = lsExportDirectory & lsFileName
                                        If gbVerbose Then
                                            WriteToLog("lsExportPathAndFileName = '" & lsExportPathAndFileName & "'", True)
                                        End If
                                        .ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, lsExportPathAndFileName)
                                        liLocation = 11 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                                        .Close()

                                        ' e-mail the report
                                        Dim l_dt_group_properties As New DataTable
                                        liLocation = 12 : If gbVerbose Then WriteToLog("Location " & liLocation &
                                                                                       ", fk_group = " & l_dt.Rows(i).Item("fk_group") &
                                                                                       ", l_dt_group_properties.Rows.Count = " & l_dt_group_properties.Rows.Count, True)
                                        lclsDatabase.GetGroup(l_dt.Rows(i).Item("fk_group"), l_dt_group_properties)
                                        Using lclsEmail As New clsEmail
                                            With lclsEmail
                                                liLocation = 13 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
                                                ._SendMonthlyReport(aReportName, l_dt_group_properties, lsExportPathAndFileName, aRunType)
                                            End With
                                        End Using
                                    End With
                                    If aRunType = RunType.Foreground Then
                                        WriteToLog("e-mailed " & Path.GetFileName(lsExportPathAndFileName), True)   ' one report created and sent
                                    Else
                                        WriteToBackgroundLog("e-mailed " & Path.GetFileName(lsExportPathAndFileName))   ' one report created and sent
                                    End If
                                    If aShowProgress Then
                                        lfrmProgress.UpdateProgress(i + 1)
                                        Application.DoEvents()
                                    End If
                                End Using
                            Next i
                            If aRunType = RunType.Foreground Then
                                WriteToLog(lsModuleAndMethod & "Processing complete", True)
                            Else
                                WriteToBackgroundLog(lsModuleAndMethod & "Processing complete")
                            End If
                            If aShowProgress Then
                                Wait(2)
                                lfrmProgress.Dispose()
                                MessageBox.Show("Processing complete", "Run Reports")
                            End If
                            Return True
                        Else
                            If aRunType = RunType.Foreground Then
                                WriteToLog(lsModuleAndMethod & "Unable to get group members for " & aReportName, True)
                            Else
                                WriteToBackgroundLog(lsModuleAndMethod & "Unable to get group members for " & aReportName)
                            End If
                            If aShowProgress Then
                                lfrmProgress.Dispose()
                                MessageBox.Show("Processing failed")
                            End If
                            Return False
                        End If
                    Else
                        If aRunType = RunType.Foreground Then
                            WriteToLog(lsModuleAndMethod & "GetReportPK failed for " & aReportName, True)
                        Else
                            WriteToBackgroundLog(lsModuleAndMethod & "GetReportPK failed for " & lsFileName)
                        End If
                        If aShowProgress Then
                            lfrmProgress.Dispose()
                            MessageBox.Show("Processing failed")
                        End If
                        Return False
                    End If
                End With
            End Using

        Catch ex As Exception
            liLocation = 14 : If gbVerbose Then WriteToLog("Location " & liLocation, True)
            With System.Reflection.MethodBase.GetCurrentMethod()
                If aRunType = RunType.Foreground Then
                    WriteErrorToLog(ex.ToString, .ReflectedType.Name & "." & .Name)
                Else
                    WriteErrorToBackgroundLog(ex.ToString, .ReflectedType.Name & "." & .Name)
                End If
            End With
            Return False

        Finally
            If Not IsNothing(lfrmProgress) Then
                lfrmProgress.Dispose()
            End If
        End Try
    End Function

[pkipe1]

...and here is the pertinent portion of my log file:

2025-04-04 01:07:13    Location 1
2025-04-04 01:07:13 At clsDatabase:GetReportPK
2025-04-04 01:07:13 At clsDatabase:pfExecuteSQLQueryStatement
2025-04-04 01:07:13    Location 2
2025-04-04 01:07:13 At clsDatabase:GetReportGroupMembers
2025-04-04 01:07:13    Location 3
2025-04-04 01:07:13 At frmProgress:.ctor
2025-04-04 01:07:13    clsMonthlyReports._RunReport: Processing started for Technician Expirations Report
2025-04-04 01:07:13 At frmProgress:DisplayMessage
2025-04-04 01:07:13 At frmProgress:frmProgress_Load
2025-04-04 01:07:13 At frmProgress:ProgressBarVisible
2025-04-04 01:07:13    Location 4
2025-04-04 01:07:13 At clsDatabase:UpdateParms
2025-04-04 01:07:13 At clsDatabase:pfExecuteSQLQueryStatement
2025-04-04 01:07:13 At clsDatabase:pfExecuteSQLNonQueryStatement
2025-04-04 01:07:13    Location 5
2025-04-04 01:07:13    Location 6
2025-04-04 01:07:13    table.ServerName = ais-manager-prod.database.windows.net
2025-04-04 01:07:13    table.DatabaseName = MVIRS_ManagerSQL
2025-04-04 01:07:13    table.Password = q0cvP4#Ar%dr
2025-04-04 01:07:13    table.UserID = ais-admin
2025-04-04 01:07:13    Location 7
2025-04-04 01:07:13    Location 8
2025-04-04 01:07:13    Location 10
2025-04-04 01:07:13    lsExportPathAndFileName = 'C:\ProgramData\Automotive Inspection Systems\AIS Manager\LifeCycle\prod\Reports\Pete\2025-04-04 Technician Expirations Report Pete.pdf'
2025-04-04 01:07:14    clsDatabase.Dispose:  Connection closed.
2025-04-04 01:07:14    Location 14
2025-04-04 01:07:14 =====================================================================================
2025-04-04 01:07:14 Title:      clsMonthlyReports._RunReport
2025-04-04 01:07:14 Message:    CrystalDecisions.CrystalReports.Engine.LogOnException: Database logon failed. ---> System.Runtime.InteropServices.COMException: Database logon failed.
2025-04-04 01:07:14             at CrystalDecisions.ReportAppServer.Controllers.ReportSourceClass.Export(ExportOptions pExportOptions, RequestContext pRequestContext)
2025-04-04 01:07:14             at CrystalDecisions.ReportSource.EromReportSourceBase.ExportToStream(ExportRequestContext reqContext)
2025-04-04 01:07:14             --- End of inner exception stack trace ---
2025-04-04 01:07:14             at CrystalDecisions.ReportAppServer.ConvertDotNetToErom.ThrowDotNetException(Exception e)
2025-04-04 01:07:14             at CrystalDecisions.ReportSource.EromReportSourceBase.ExportToStream(ExportRequestContext reqContext)
2025-04-04 01:07:14             at CrystalDecisions.CrystalReports.Engine.FormatEngine.ExportToStream(ExportRequestContext reqContext)
2025-04-04 01:07:14             at CrystalDecisions.CrystalReports.Engine.FormatEngine.Export(ExportRequestContext reqContext)
2025-04-04 01:07:14             at CrystalDecisions.CrystalReports.Engine.ReportDocument.ExportToDisk(ExportFormatType formatType, String fileName)
2025-04-04 01:07:14             at AIS_Manager.clsMonthlyReports._RunReport(String aReportName, Boolean aShowProgress, Int32 aRunType)
2025-04-04 01:07:14 =====================================================================================

[jhonndee · Accepted solution]

Make sure the Crystal Reports Runtime for .NET (matching your development version) is installed on that machine. Also, check that the report’s database credentials are being applied programmatically before export—reports that work locally may fail elsewhere if credentials are hardcoded or missing. Finally, verify the target PC has access to Azure SQL (firewall, connection string, and drivers like OLE DB or SQL Native Client).

[pkipe1 · Accepted solution]

1. SAP Crystal Reports runtime engine for .NET Framework (32-bit) version 13.0.33.4485 is installed on both machines. (See "runtime engines" below)

2.  The report runs correctly on my development machine (CDS001), as well as a third machine (CDS005), just not the one I'm having trouble with (CDS002).  So the credentials handling for the report must be working, no?

3.  I'm able to populate the app containing the report in question with all of my customer data from the Azure SQL Server database, so the firewall, connection string, and drivers must all be correct.

I just checked runtime engines installed on all three machines:

CDS001 (dev)     32-bit 13 SP33 ver 13.0.33.4485
                 64-bit 13 SP33 ver 13.0.33.4485
CDS005 (prod)    32-bit 13 SP27 ver 13.0.27.3480
                 64-bit 13 SP20 ver 13.0.20.2399
CDS002 (problem) 32-bit 13 SP33 ver 13.0.33.4485

I added the 64-bit 13.0.33.4485 to CDS002, but the problem remains.

[DonWilliams · Accepted solution]

sorry for the delay. I suggest enabling SQL logging on the DB server and then try to connect and refresh the report to see what the Server is saying why it's failing to connect. The errors are not gererated by CR, CR is simply passing the error from the Client to you...

FYI, SP 38 was just released so I suggest upgrading to the latest version

[DonWilliams]

Hello,

Firstly you should keep your app up to date, SP 37 is available now, you are on a quite old SP... AND NEVER mix SP's, 32 and 64 bit must match same SP level.

You can get from here:

https://help.sap.com/docs/SUPPORT_CONTENT/crystalreports/3354091173.html

The reason to keep up to date is for security fixes as well as DB Client support etc.

Also note, CR for VS will no longer ship 32 bit runtime at the end of this year (2025) so you need to convert your Project to 64 bit.

To log CR database calls see this KBA:

1603398 - How to trace data source connections in Crystal Reports using crlogger? [Video]

The error message you are getting is being returned from your DB Client, CR is simply passing the error info through from the Client. Logging CR likely won't give you any more info.

You need to debug from the Server to see why it's failing to connect.

Try using an Admin Account, that usually works, if it doesn't it due to connection values.