Advanced Search

Return to Snippet

Revision: 76798
at July 29, 2019 13:27 by martinbrait
Initial Code 
'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
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    
How to populate an array with recordset data

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
[vba-access] Peupler un tableau avec le retour d'un recordset

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    
array

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic