EDMIAPI: Add more database methods

Modules.EDMIAPI/Client.vb

@@ -576,6 +576,20 @@ Public Class Client
         End Try
     End Function
 
+    Public Function GetDatatableFromECM(pSQL As String, Optional pConnectionId As Integer = 0) As GetDatatableResponse
+        Try
+            Dim oResponse = Channel.ReturnDatatable(New GetDatatableRequest() With {
+                .SqlCommand = pSQL,
+                .NamedDatabase = DatabaseName.ECM,
+                .ConnectionId = pConnectionId
+            })
+            Return oResponse
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
     Public Async Function GetDatatableFromIDBAsync(pSQL As String, Optional pConnectionId As Integer = 0) As Task(Of GetDatatableResponse)
         Try
             Dim oResponse = Await Channel.ReturnDatatableAsync(New GetDatatableRequest() With {
@@ -590,6 +604,20 @@ Public Class Client
         End Try
     End Function
 
+    Public Async Function GetDatatableFromECMAsync(pSQL As String, Optional pConnectionId As Integer = 0) As Task(Of GetDatatableResponse)
+        Try
+            Dim oResponse = Await Channel.ReturnDatatableAsync(New GetDatatableRequest() With {
+                .SqlCommand = pSQL,
+                .NamedDatabase = DatabaseName.ECM,
+                .ConnectionId = pConnectionId
+            })
+            Return oResponse
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
     Public Function GetScalarValueFromIDB(pSQL As String, Optional pConnectionId As Integer = 0) As GetScalarValueResponse
         Try
             Dim oResponse = Channel.ReturnScalarValue(New GetScalarValueRequest() With {
@@ -604,6 +632,20 @@ Public Class Client
         End Try
     End Function
 
+    Public Function GetScalarValueFromECM(pSQL As String, Optional pConnectionId As Integer = 0) As GetScalarValueResponse
+        Try
+            Dim oResponse = Channel.ReturnScalarValue(New GetScalarValueRequest() With {
+                .SqlCommand = pSQL,
+                .NamedDatabase = DatabaseName.ECM,
+                .ConnectionId = pConnectionId
+            })
+            Return oResponse
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
     Public Async Function GetScalarValueFromIDBAsync(pSQL As String, Optional pConnectionId As Integer = 0) As Task(Of GetScalarValueResponse)
         Try
             Dim oResponse = Await Channel.ReturnScalarValueAsync(New GetScalarValueRequest() With {
@@ -618,6 +660,20 @@ Public Class Client
         End Try
     End Function
 
+    Public Async Function GetScalarValueFromECMAsync(pSQL As String, Optional pConnectionId As Integer = 0) As Task(Of GetScalarValueResponse)
+        Try
+            Dim oResponse = Await Channel.ReturnScalarValueAsync(New GetScalarValueRequest() With {
+                .SqlCommand = pSQL,
+                .NamedDatabase = DatabaseName.ECM,
+                .ConnectionId = pConnectionId
+            })
+            Return oResponse
+        Catch ex As Exception
+            Logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+
     Public Function GetDatatableByName(DatatableName As String, Optional FilterExpression As String = "", Optional SortByColumn As String = "") As TableResult
         Try
             Dim oResponse = Channel.ReturnDatatableFromCache(DatatableName, FilterExpression, SortByColumn)