DatabaseObjectsVB6/SQLFieldValue.cls at master · hisystems/DatabaseObjectsVB6 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SQLFieldValue"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' ___________________________________________________
'
'  © Hi-Integrity Systems 2007. All rights reserved.
'  www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'

Option Explicit

Private pstrName As String
Private pvValue As Variant

Public Property Let Name(ByVal strValue As String)

    pstrName = Trim$(strValue)

End Property

Public Property Get Name() As String

    Name = pstrName

End Property

Public Property Let Value(ByVal vValue As Variant)

    Select Case VarType(vValue)
    Case vbByte, vbCurrency, vbDecimal, vbDouble, vbInteger, vbLong
    Case vbSingle, vbString, vbDate, vbBoolean, vbNull
    'allow for byte arrays
    Case vbByte Or vbArray
    Case Else
        RaiseError dboErrorGeneral, "Invalid datatype"
    End Select

    pvValue = vValue

End Property

Public Property Get Value() As Variant
Attribute Value.VB_UserMemId = 0

    Value = pvValue

End Property