[vba access]Peupler un tableau avec le retour d'；联合国记录集

Posted 2021-02-22

How to populate an array with recordset data

'nécessite l'activation de la référence DAO
 
Public Sub Foo()
Dim aFoo As Variant
Dim db As DAO.Database
Dim rst As DAO.Recordset
 
Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset("tblFoo")
 
With rst
    .MoveLast
    .MoveFirst
    aFoo = .GetRows(.RecordCount)
End With
 
rst.Close
db.Close
 
End Sub