Connection of vb6.0 with access 2003

Closed
Report
-
 uyu -
Hello,
Please tell me how to connect vb6.0 with ms access 2003?

2 replies

Posts
8
Registration date
Monday October 5, 2009
Status
Member
Last seen
November 9, 2009
12
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
0