55 lines
1.2 KiB
VB.net
55 lines
1.2 KiB
VB.net
Imports System.Runtime.Serialization
|
|
|
|
<Serializable>
|
|
<DataContract>
|
|
<KnownType(GetType(DBNull))>
|
|
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>
|
|
<KnownType(GetType(DBNull))>
|
|
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>
|
|
<KnownType(GetType(DBNull))>
|
|
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
|
|
|
|
|