MS Integration Services und fileOps

SERVICES/DDEDM_NetworkService/DatabaseResult.vb

@@ -0,0 +1,51 @@
+Imports System.Runtime.Serialization
+
+<Serializable>
+<DataContract>
+Public Class TableResult
+    <DataMember>
+    Public Property OK As Boolean
+    <DataMember>
+    Public Property ErrorMessage As String
+    <DataMember>
+    Public Property Table As DataTable
+
+    Public Sub New(OK As Boolean, Table As DataTable, ErrorMessage As String)
+        Me.OK = OK
+        Me.ErrorMessage = ErrorMessage
+        Me.Table = Table
+    End Sub
+End Class
+
+<Serializable>
+<DataContract>
+Public Class ScalarResult
+    <DataMember>
+    Public Property OK As Boolean
+    <DataMember>
+    Public Property ErrorMessage As String
+    <DataMember>
+    Public Property Scalar As Object
+
+    Public Sub New(OK As Boolean, Scalar As Object, ErrorMessage As String)
+        Me.OK = OK
+        Me.ErrorMessage = ErrorMessage
+        Me.Scalar = Scalar
+    End Sub
+End Class
+
+<Serializable>
+<DataContract>
+Public Class NonQueryResult
+    <DataMember>
+    Public Property OK As Boolean
+    <DataMember>
+    Public Property ErrorMessage As String
+
+    Public Sub New(OK As Boolean, ErrorMessage As String)
+        Me.OK = OK
+        Me.ErrorMessage = ErrorMessage
+    End Sub
+End Class
+
+