EDMI: Add New Database methods

2022-01-10 15:48:58 +01:00
parent 412c683b01
commit 1102542d26
21 changed files with 813 additions and 46 deletions
--- a/Services/EDMIServiceReference/Reference.vb
+++ b/Services/EDMIServiceReference/Reference.vb
@@ -23,6 +23,8 @@ Namespace EDMIServiceReference
     System.SerializableAttribute(),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ScalarResult)),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NonQueryResult)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetDatatableResponse)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetScalarValueResponse)),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NewFileResponse)),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.SetAttributeValueResponse)),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ImportFileResponse)),  _
@@ -117,6 +119,12 @@ Namespace EDMIServiceReference
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.BaseFault)),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.DataTableDoesNotExistFault)),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ObjectDoesNotExistFault)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetDatatableRequest)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetDatatableResponse)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.DatabaseType)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.DatabaseName)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetScalarValueRequest)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetScalarValueResponse)),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NewFileRequest)),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NewFileResponse)),  _
     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.FileProperties)),  _
@@ -163,6 +171,88 @@ Namespace EDMIServiceReference
        Inherits EDMIServiceReference.BaseResponse
    End Class
    
+    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
+     System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
+     System.Runtime.Serialization.DataContractAttribute(Name:="GetDatatableResponse", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _ 
+        "Database.GetDatatable"),  _
+     System.SerializableAttribute()>  _
+    Partial Public Class GetDatatableResponse
+        Inherits EDMIServiceReference.BaseResponse
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private TableField As System.Data.DataTable
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property Table() As System.Data.DataTable
+            Get
+                Return Me.TableField
+            End Get
+            Set
+                If (Object.ReferenceEquals(Me.TableField, value) <> true) Then
+                    Me.TableField = value
+                    Me.RaisePropertyChanged("Table")
+                End If
+            End Set
+        End Property
+    End Class
+    
+    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
+     System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
+     System.Runtime.Serialization.DataContractAttribute(Name:="GetScalarValueResponse", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _ 
+        "Database.GetScalarValue"),  _
+     System.SerializableAttribute(),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.TableResult)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.BaseResponse)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ScalarResult)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NonQueryResult)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(System.DBNull)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(System.Exception)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.UnexpectedErrorFault)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.BaseFault)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.DataTableDoesNotExistFault)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ObjectDoesNotExistFault)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetDatatableRequest)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetDatatableResponse)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.DatabaseType)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.DatabaseName)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetScalarValueRequest)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NewFileRequest)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.NewFileResponse)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.FileProperties)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.UserAttributeValue())),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.UserAttributeValue)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(System.IO.FileInfo)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(System.IO.FileSystemInfo)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.UserState)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.SetAttributeValueRequest)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.SetAttributeValueResponse)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ImportFileRequest)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.ImportFileResponse)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(String())),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetFileObjectRequest)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.GetFileObjectResponse)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.FileObject)),  _
+     System.Runtime.Serialization.KnownTypeAttribute(GetType(EDMIServiceReference.RightsAccessRight))>  _
+    Partial Public Class GetScalarValueResponse
+        Inherits EDMIServiceReference.BaseResponse
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private ScalarField As Object
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property Scalar() As Object
+            Get
+                Return Me.ScalarField
+            End Get
+            Set
+                If (Object.ReferenceEquals(Me.ScalarField, value) <> true) Then
+                    Me.ScalarField = value
+                    Me.RaisePropertyChanged("Scalar")
+                End If
+            End Set
+        End Property
+    End Class
+    
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
     System.Runtime.Serialization.DataContractAttribute(Name:="NewFileResponse", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _ 
@@ -398,6 +488,228 @@ Namespace EDMIServiceReference
        Inherits EDMIServiceReference.BaseFault
    End Class
    
+    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
+     System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
+     System.Runtime.Serialization.DataContractAttribute(Name:="GetDatatableRequest", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _ 
+        "Database.GetDatatable"),  _
+     System.SerializableAttribute()>  _
+    Partial Public Class GetDatatableRequest
+        Inherits Object
+        Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
+        
+        <System.NonSerializedAttribute()>  _
+        Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private ConnectionIdField As Integer
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private DatabaseTypeField As EDMIServiceReference.DatabaseType
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private NamedDatabaseField As EDMIServiceReference.DatabaseName
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private SqlCommandField As String
+        
+        <Global.System.ComponentModel.BrowsableAttribute(false)>  _
+        Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
+            Get
+                Return Me.extensionDataField
+            End Get
+            Set
+                Me.extensionDataField = value
+            End Set
+        End Property
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property ConnectionId() As Integer
+            Get
+                Return Me.ConnectionIdField
+            End Get
+            Set
+                If (Me.ConnectionIdField.Equals(value) <> true) Then
+                    Me.ConnectionIdField = value
+                    Me.RaisePropertyChanged("ConnectionId")
+                End If
+            End Set
+        End Property
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property DatabaseType() As EDMIServiceReference.DatabaseType
+            Get
+                Return Me.DatabaseTypeField
+            End Get
+            Set
+                If (Me.DatabaseTypeField.Equals(value) <> true) Then
+                    Me.DatabaseTypeField = value
+                    Me.RaisePropertyChanged("DatabaseType")
+                End If
+            End Set
+        End Property
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property NamedDatabase() As EDMIServiceReference.DatabaseName
+            Get
+                Return Me.NamedDatabaseField
+            End Get
+            Set
+                If (Me.NamedDatabaseField.Equals(value) <> true) Then
+                    Me.NamedDatabaseField = value
+                    Me.RaisePropertyChanged("NamedDatabase")
+                End If
+            End Set
+        End Property
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property SqlCommand() As String
+            Get
+                Return Me.SqlCommandField
+            End Get
+            Set
+                If (Object.ReferenceEquals(Me.SqlCommandField, value) <> true) Then
+                    Me.SqlCommandField = value
+                    Me.RaisePropertyChanged("SqlCommand")
+                End If
+            End Set
+        End Property
+        
+        Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
+        
+        Protected Sub RaisePropertyChanged(ByVal propertyName As String)
+            Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
+            If (Not (propertyChanged) Is Nothing) Then
+                propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
+            End If
+        End Sub
+    End Class
+    
+    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
+     System.Runtime.Serialization.DataContractAttribute(Name:="DatabaseType", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _ 
+        "Database")>  _
+    Public Enum DatabaseType As Integer
+        
+        <System.Runtime.Serialization.EnumMemberAttribute()>  _
+        MSSQL = 0
+        
+        <System.Runtime.Serialization.EnumMemberAttribute()>  _
+        Oracle = 1
+        
+        <System.Runtime.Serialization.EnumMemberAttribute()>  _
+        ODBC = 2
+    End Enum
+    
+    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
+     System.Runtime.Serialization.DataContractAttribute(Name:="DatabaseName", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _ 
+        "Database")>  _
+    Public Enum DatabaseName As Integer
+        
+        <System.Runtime.Serialization.EnumMemberAttribute()>  _
+        None = 0
+        
+        <System.Runtime.Serialization.EnumMemberAttribute()>  _
+        ECM = 1
+        
+        <System.Runtime.Serialization.EnumMemberAttribute()>  _
+        IDB = 2
+    End Enum
+    
+    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
+     System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
+     System.Runtime.Serialization.DataContractAttribute(Name:="GetScalarValueRequest", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _ 
+        "Database.GetScalarValue"),  _
+     System.SerializableAttribute()>  _
+    Partial Public Class GetScalarValueRequest
+        Inherits Object
+        Implements System.Runtime.Serialization.IExtensibleDataObject, System.ComponentModel.INotifyPropertyChanged
+        
+        <System.NonSerializedAttribute()>  _
+        Private extensionDataField As System.Runtime.Serialization.ExtensionDataObject
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private ConnectionIdField As Integer
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private DatabaseTypeField As EDMIServiceReference.DatabaseType
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private NamedDatabaseField As EDMIServiceReference.DatabaseName
+        
+        <System.Runtime.Serialization.OptionalFieldAttribute()>  _
+        Private SqlCommandField As String
+        
+        <Global.System.ComponentModel.BrowsableAttribute(false)>  _
+        Public Property ExtensionData() As System.Runtime.Serialization.ExtensionDataObject Implements System.Runtime.Serialization.IExtensibleDataObject.ExtensionData
+            Get
+                Return Me.extensionDataField
+            End Get
+            Set
+                Me.extensionDataField = value
+            End Set
+        End Property
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property ConnectionId() As Integer
+            Get
+                Return Me.ConnectionIdField
+            End Get
+            Set
+                If (Me.ConnectionIdField.Equals(value) <> true) Then
+                    Me.ConnectionIdField = value
+                    Me.RaisePropertyChanged("ConnectionId")
+                End If
+            End Set
+        End Property
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property DatabaseType() As EDMIServiceReference.DatabaseType
+            Get
+                Return Me.DatabaseTypeField
+            End Get
+            Set
+                If (Me.DatabaseTypeField.Equals(value) <> true) Then
+                    Me.DatabaseTypeField = value
+                    Me.RaisePropertyChanged("DatabaseType")
+                End If
+            End Set
+        End Property
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property NamedDatabase() As EDMIServiceReference.DatabaseName
+            Get
+                Return Me.NamedDatabaseField
+            End Get
+            Set
+                If (Me.NamedDatabaseField.Equals(value) <> true) Then
+                    Me.NamedDatabaseField = value
+                    Me.RaisePropertyChanged("NamedDatabase")
+                End If
+            End Set
+        End Property
+        
+        <System.Runtime.Serialization.DataMemberAttribute()>  _
+        Public Property SqlCommand() As String
+            Get
+                Return Me.SqlCommandField
+            End Get
+            Set
+                If (Object.ReferenceEquals(Me.SqlCommandField, value) <> true) Then
+                    Me.SqlCommandField = value
+                    Me.RaisePropertyChanged("SqlCommand")
+                End If
+            End Set
+        End Property
+        
+        Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
+        
+        Protected Sub RaisePropertyChanged(ByVal propertyName As String)
+            Dim propertyChanged As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
+            If (Not (propertyChanged) Is Nothing) Then
+                propertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
+            End If
+        End Sub
+    End Class
+    
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.CodeDom.Compiler.GeneratedCodeAttribute("System.Runtime.Serialization", "4.0.0.0"),  _
     System.Runtime.Serialization.DataContractAttribute(Name:="NewFileRequest", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Methods."& _ 
@@ -1451,6 +1763,18 @@ Namespace EDMIServiceReference
            "onse")>  _
        Function ReturnDatatableFromCacheAsync(ByVal Name As String, ByVal FilterExpression As String, ByVal SortByColumn As String) As System.Threading.Tasks.Task(Of EDMIServiceReference.TableResult)
        
+        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatableResponse")>  _
+        Function ReturnDatatable(ByVal pData As EDMIServiceReference.GetDatatableRequest) As EDMIServiceReference.GetDatatableResponse
+        
+        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatableResponse")>  _
+        Function ReturnDatatableAsync(ByVal pData As EDMIServiceReference.GetDatatableRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetDatatableResponse)
+        
+        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalarValue", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalarValueResponse")>  _
+        Function ReturnScalarValue(ByVal pData As EDMIServiceReference.GetScalarValueRequest) As EDMIServiceReference.GetScalarValueResponse
+        
+        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalarValue", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnScalarValueResponse")>  _
+        Function ReturnScalarValueAsync(ByVal pData As EDMIServiceReference.GetScalarValueRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetScalarValueResponse)
+        
        <System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_Firebird", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_FirebirdResp"& _ 
            "onse"),  _
         System.ServiceModel.FaultContractAttribute(GetType(EDMIServiceReference.UnexpectedErrorFault), Action:="http://DigitalData.Services.EDMIService/IEDMIService/ReturnDatatable_FirebirdUnex"& _ 
@@ -1827,6 +2151,22 @@ Namespace EDMIServiceReference
            Return MyBase.Channel.ReturnDatatableFromCacheAsync(Name, FilterExpression, SortByColumn)
        End Function
        
+        Public Function ReturnDatatable(ByVal pData As EDMIServiceReference.GetDatatableRequest) As EDMIServiceReference.GetDatatableResponse Implements EDMIServiceReference.IEDMIService.ReturnDatatable
+            Return MyBase.Channel.ReturnDatatable(pData)
+        End Function
+        
+        Public Function ReturnDatatableAsync(ByVal pData As EDMIServiceReference.GetDatatableRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetDatatableResponse) Implements EDMIServiceReference.IEDMIService.ReturnDatatableAsync
+            Return MyBase.Channel.ReturnDatatableAsync(pData)
+        End Function
+        
+        Public Function ReturnScalarValue(ByVal pData As EDMIServiceReference.GetScalarValueRequest) As EDMIServiceReference.GetScalarValueResponse Implements EDMIServiceReference.IEDMIService.ReturnScalarValue
+            Return MyBase.Channel.ReturnScalarValue(pData)
+        End Function
+        
+        Public Function ReturnScalarValueAsync(ByVal pData As EDMIServiceReference.GetScalarValueRequest) As System.Threading.Tasks.Task(Of EDMIServiceReference.GetScalarValueResponse) Implements EDMIServiceReference.IEDMIService.ReturnScalarValueAsync
+            Return MyBase.Channel.ReturnScalarValueAsync(pData)
+        End Function
+        
        Public Function ReturnDatatable_Firebird(ByVal SQL As String) As EDMIServiceReference.TableResult Implements EDMIServiceReference.IEDMIService.ReturnDatatable_Firebird
            Return MyBase.Channel.ReturnDatatable_Firebird(SQL)
        End Function