AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

EDMIService: Add GetCachedTables

Browse Source
This commit is contained in:
Jonathan Jenne 2022-01-12 10:41:14 +01:00
parent 3d6a012bea
commit f3560c60c7
3 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Service.EDMIService/EDMIService.vb
View File

@ -91,7 +91,16 @@ Public Class EDMIService
#End Region
#Region "=== Database ==="
Public Function ReturnDatatableFromCache(Name As String, FilterExpression As String, SortByColumn As String) As TableResult Implements IEDMIService.ReturnDatatableFromCache
Public Function GetCachedTables() As List(Of String) Implements IEDMIService.GetCachedTables
Try
Return GlobalState.GetCachedTables()
Catch ex As Exception
_Logger.Error(ex)
Return New List(Of String)
End Try
End Function
Public Function GetDatatableFromCache(Name As String, FilterExpression As String, SortByColumn As String) As TableResult Implements IEDMIService.GetDatatableFromCache
Dim oReturnDatatableFromCache As New GetDatatableFromCache.GetDatatableFromCacheMethod(LogConfig, MSSQL_IDB, MSSQL_ECM, GlobalState)
Dim oResult = oReturnDatatableFromCache.Run(New GetDatatableFromCache.GetDatatableFromCacheRequest With {
.DataTable = Name,
@ -106,13 +115,13 @@ Public Class EDMIService
End If
End Function
Public Function ReturnDatatable(pData As GetDatatable.GetDatatableRequest) As GetDatatable.GetDatatableResponse Implements IEDMIService.ReturnDatatable
Public Function GetDatatable(pData As GetDatatable.GetDatatableRequest) As GetDatatable.GetDatatableResponse Implements IEDMIService.GetDatatable
_Logger.Debug("Start of Method [ReturnDatatable]")
Dim oGetDatatable As New GetDatatable.GetDatatableMethod(LogConfig, MSSQL_IDB, MSSQL_ECM, GlobalState)
Return oGetDatatable.Run(pData)
End Function
Public Function ReturnScalarValue(pData As GetScalarValue.GetScalarValueRequest) As GetScalarValue.GetScalarValueResponse Implements IEDMIService.ReturnScalarValue
Public Function GetScalarValue(pData As GetScalarValue.GetScalarValueRequest) As GetScalarValue.GetScalarValueResponse Implements IEDMIService.GetScalarValue
_Logger.Debug("Start of Method [ReturnScalarValue]")
Dim oGetScalarValue As New GetScalarValue.GetScalarValueMethod(LogConfig, MSSQL_IDB, MSSQL_ECM, GlobalState)
Return oGetScalarValue.Run(pData)

16
Service.EDMIService/GlobalState.vb
View File

@ -33,6 +33,22 @@ Public Class GlobalState
FirstOrDefault()
End Function
Public Function GetCachedTables() As List(Of String)
Try
Dim oTables As DataTableCollection = TableStore.Tables
Dim oList As New List(Of String)
For Each oTable As DataTable In oTables
oList.Add(oTable.TableName)
Next
Return oList
Catch ex As Exception
_Logger.Error(ex)
Return New List(Of String)
End Try
End Function
Public Function GetConnectionString(pConnectionId As Long) As String
Dim oConnection = GetConnection(pConnectionId)
Dim oBuilder As New SqlConnectionStringBuilder With {

9
Service.EDMIService/IEDMIService.vb
View File

@ -15,16 +15,19 @@ Interface IEDMIService
#End Region
#Region "Database"
<OperationContract>
Function GetCachedTables() As List(Of String)
<OperationContract>
<FaultContract(GetType(UnexpectedErrorFault))>
<FaultContract(GetType(DataTableDoesNotExistFault))>
Function ReturnDatatableFromCache(Name As String, FilterExpression As String, SortByColumn As String) As TableResult
Function GetDatatableFromCache(Name As String, FilterExpression As String, SortByColumn As String) As TableResult
<OperationContract>
Function ReturnDatatable(pData As GetDatatable.GetDatatableRequest) As GetDatatable.GetDatatableResponse
Function GetDatatable(pData As GetDatatable.GetDatatableRequest) As GetDatatable.GetDatatableResponse
<OperationContract>
Function ReturnScalarValue(pData As GetScalarValue.GetScalarValueRequest) As GetScalarValue.GetScalarValueResponse
Function GetScalarValue(pData As GetScalarValue.GetScalarValueRequest) As GetScalarValue.GetScalarValueResponse
#End Region
#Region "Database (Firebird)"