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