EDMI.API: Update for Annette GmbH

This commit is contained in:
Jonathan Jenne
2021-11-25 15:54:48 +01:00
parent 7a1c135b1f
commit 3149b8fa35
15 changed files with 393 additions and 692 deletions

View File

@@ -33,20 +33,6 @@ Public Class DatabaseWithFallback
_DatabaseIDB = DatabaseIDB
End Sub
''' <summary>
''' Attempt at making loading big tables less annoying
''' </summary>
''' <returns></returns>
Public Function GetDatatable(pTable As TableType, Optional FilterExpression As String = "", Optional SortByColumn As String = "", Optional ForceFallback As Boolean = False)
Dim oTable = Tables.Where(Function(t) t.DatabaseType = pTable).SingleOrDefault()
If oTable Is Nothing Then
Return Nothing
Else
Return GetDatatable(oTable.TableName, oTable.SQLCommand, oTable.DatabaseType, FilterExpression, SortByColumn, ForceFallback)
End If
End Function
Public Function GetDatatable(pDataTableName As String, pFallbackSQL As String, pFallbackType As Constants.DatabaseType, Optional pFilterExpression As String = "", Optional pSortByColumn As String = "", Optional pForceFallback As Boolean = False) As DataTable
Try
Dim oResult As DataTable = Nothing