EDMI.API: Update for Annette GmbH
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user