Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public Function GetTest(dDate As Date) As clsTest()
Dim lRc As ADODB.Recordset
Dim lTest() As clsTest
 
    If lNoTechnicien <> cINDEFINI Then
        Set lRc = New ADODB.Recordset
        lRc.Open "SELECT TPL_NUMERO FROM TEST_PLANIFIE ", gConnexion, adOpenForwardOnly, adLockReadOnly
        While Not lRc.EOF
            If IsDim(lTest) Then
                ReDim Preserve lTest(1 To UBound(lTest) + 1)
            Else
                ReDim lTest(1 To 1)
            End If
            Set lTest(UBound(lTest)) = New clsTest
 
            lRc.MoveNext
        Wend
        lRc.Close
        Set lRc = Nothing
 
        GetTest = lTest
    End If
End Function