DatabaseObjectsVB6/SQLSelectGroupByFields.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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "SQLSelectGroupByFields"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
' ___________________________________________________
'
'  © Hi-Integrity Systems 2007. All rights reserved.
'  www.hisystems.com.au - Toby Wicks
' ___________________________________________________
'

Option Explicit

Private pcolGroupByFields As Collection

Public Function Add( _
    Optional ByVal strFieldName As String, _
    Optional ByVal objTable As SQLSelectTable) As SQLSelectGroupByField

    Dim objFieldOrder As SQLSelectGroupByField
    Set objFieldOrder = New SQLSelectGroupByField

    With objFieldOrder
        Set .Table = objTable
        .Name = strFieldName
    End With

    pcolGroupByFields.Add objFieldOrder

    Set Add = objFieldOrder

End Function

Public Property Get Item(ByVal vIndex As Variant) As SQLSelectGroupByField
Attribute Item.VB_UserMemId = 0

    Select Case VarType(vIndex)
    Case vbInteger, vbLong
        Set Item = pcolGroupByFields(vIndex)
    Case vbString
        Set Item = pcolGroupByFields(FieldNameIndex(vIndex))
    Case Else
        RaiseError dboErrorNotIntegerOrString
    End Select

End Property

Public Function Exists(ByVal strFieldName As String) As Boolean

    Exists = FieldNameIndex(strFieldName) <> 0

End Function

Public Sub Delete(ByRef objGroupByField As SQLSelectGroupByField)

    If Not CollectionRemoveItem(pcolGroupByFields, objGroupByField) Then
        RaiseError dboErrorObjectDoesNotExist
    End If
    Set objGroupByField = Nothing

End Sub

Public Property Get Count() As Integer

    Count = pcolGroupByFields.Count

End Property

Public Property Get Enumerator() As IUnknown
Attribute Enumerator.VB_UserMemId = -4

    Set Enumerator = pcolGroupByFields.[_NewEnum]

End Property

Friend Property Get SQL(ByVal eConnectionType As ConnectionTypeEnum) As String

    Dim intIndex As Integer
    Dim strSQL As String

    For intIndex = 1 To Me.Count
        strSQL = strSQL & Me.Item(intIndex).SQL(eConnectionType)
        If intIndex <> Me.Count Then
            strSQL = strSQL & ", "
        End If
    Next

    SQL = strSQL

End Property

Private Sub Class_Initialize()

    Set pcolGroupByFields = New Collection

End Sub

Private Function FieldNameIndex( _
    ByVal strFieldName As String) As Integer

    Dim intIndex As Integer
    Dim objGroupByField As SQLSelectGroupByField

    strFieldName = Trim$(strFieldName)

    For intIndex = 1 To Me.Count
        Set objGroupByField = pcolGroupByFields(intIndex)
        If StrComp(objGroupByField.Name, strFieldName, vbTextCompare) = 0 Then
            FieldNameIndex = intIndex
            Exit For
        End If
    Next

End Function