57 lines
1.0 KiB
VB.net
57 lines
1.0 KiB
VB.net
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
|
|
|
|
|