• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Load an already opened recordset field item into an dynamic array

Load an already opened recordset field item into an dynamic array

Load an already opened recordset field item into an dynamic array

Rate Load an already opened recordset field item into an dynamic array

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

                       ByVal curRC As ADODB.Recordset, _
                       ByVal curField) As Integer
                       
    Dim i       As Integer
    
    On Error goto LOC_ERROR

    i = 0
    
    With curRC
        ReDim CurArray(.RecordCount)
        Do Until .EOF
            CurArray(i) = .Fields(curField)
            .MoveNext
            i = i + 1
        Loop
        .Close
    End With
    
    LoadRCToArray = 1
    Exit Function

LOC_ERROR:
    MsgBox Err.Description
    LoadRCToArray = 0

End Function