Connection of vb6.0 with access 2003

Closed
parul - Nov 9, 2009 at 07:29 AM
 uyu - Apr 5, 2010 at 12:14 AM
Hello,
Please tell me how to connect vb6.0 with ms access 2003?

2 replies

bytelogik Posts 8 Registration date Monday October 5, 2009 Status Member Last seen November 9, 2009 12
Nov 9, 2009 at 03:27 PM
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
ur
0