Imports System.Runtime.Serialization

<Serializable>
<DataContract>
<KnownType(GetType(DBNull))>
Public Class TableResult
    Inherits BaseResult

    <DataMember>
    Public Property Table As DataTable

    Public Sub New(Table As DataTable)
        MyBase.New()
        Me.Table = Table
    End Sub

    Public Sub New(ErrorMessage As String)
        MyBase.New(ErrorMessage)
    End Sub
End Class

<Serializable>
<DataContract>
<KnownType(GetType(DBNull))>
Public Class ScalarResult
    Inherits BaseResult

    <DataMember>
    Public Property Scalar As Object

    Public Sub New(Scalar As Object)
        MyBase.New()
        Me.Scalar = Scalar
    End Sub

    Public Sub New(ErrorMessage As String)
        MyBase.New(ErrorMessage)
    End Sub
End Class

<Serializable>
<DataContract>
<KnownType(GetType(DBNull))>
Public Class NonQueryResult
    Inherits BaseResult

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ErrorMessage As String)
        MyBase.New(ErrorMessage)
    End Sub
End Class