Related:
- Vb6 forum
- Ms access free download - Download - Databases
- Access and downloading - Guide
- Wifi connection - Guide
- Oidc.idp.clogin.att.com unexpectedly closed the connection. ✓ - Network Forum
- Ps3 internet connection failed ✓ - PS3 & PS4 Forum
2 responses
bytelogik
Posts
8
Registration date
Monday 5 October 2009
Status
Member
Last seen
9 November 2009
12
9 Nov 2009 à 15:27
9 Nov 2009 à 15:27
Add DAO 3.6 Reference to your project
Dim dbDef As Database
Dim rsDef As Recordset
Set dbDef = DBEngine.OpenDatabase(YourDatabasePath", False, False) 'ex: your databasepath = "c:\something.mdb"
Set rsDef = dbDef.OpenRecordset("select * from yourtable") 'ex: yourtable name of table in the database you want to access
do while not rsDef.EOF
'read records
rsDef.MoveNext
loop
Set rsDef = Nothing
Set dbDef = Nothing
Dim dbDef As Database
Dim rsDef As Recordset
Set dbDef = DBEngine.OpenDatabase(YourDatabasePath", False, False) 'ex: your databasepath = "c:\something.mdb"
Set rsDef = dbDef.OpenRecordset("select * from yourtable") 'ex: yourtable name of table in the database you want to access
do while not rsDef.EOF
'read records
rsDef.MoveNext
loop
Set rsDef = Nothing
Set dbDef = Nothing
