by Issam Qadan (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 3rd August 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Load an already opened recordset field item into an dynamic array
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
No comments have been posted about Load an already opened recordset field item into an dynamic array. Why not be the first to post a comment about Load an already opened recordset field item into an dynamic array.