25 lines
501 B
VB.net
25 lines
501 B
VB.net
Public Class cSQLVariable
|
|
|
|
Private TextSQLName As String
|
|
Private ValueSQLVALUE As Object
|
|
|
|
Public Sub New(ByVal Text As String, ByVal Value As Object)
|
|
Me.TextSQLName = Text
|
|
Me.ValueSQLVALUE = Value
|
|
|
|
End Sub
|
|
|
|
Public ReadOnly Property Text() As String
|
|
Get
|
|
Return TextSQLName
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Value() As Object
|
|
Get
|
|
Return ValueSQLVALUE
|
|
End Get
|
|
End Property
|
|
|
|
|
|
End Class |