EDMIAPI/DatabaseWithFallback: Handle exception in GetDatatable

This commit is contained in:
Jonathan Jenne 2021-09-13 14:27:31 +02:00
parent f5499e23e3
commit 69c81cf2fc

View File

@ -23,10 +23,18 @@ Public Class DatabaseWithFallback
Dim oResult As DataTable = Nothing Dim oResult As DataTable = Nothing
If ForceFallback = False Then If ForceFallback = False Then
Dim oTableResult As TableResult = _Client.GetDatatableByName(DataTable, FilterExpression, SortByColumn) Dim oTableResult As TableResult
Try
oTableResult = _Client.GetDatatableByName(DataTable, FilterExpression, SortByColumn)
Catch ex As Exception
_Logger.Error(ex)
oTableResult = Nothing
End Try
If oTableResult Is Nothing OrElse oTableResult.OK = False Then If oTableResult Is Nothing OrElse oTableResult.OK = False Then
_Logger.Warn("Datatable [{0}] could not be fetched from AppServer Cache. Falling back to direct Database Access.") _Logger.Warn("Datatable [{0}] could not be fetched from AppServer Cache. Falling back to direct Database Access.")
Return GetDatatableFromDatabase(FallbackSQL, FallbackType)
End If End If
Return oTableResult.Table Return oTableResult.Table