by sabry (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 25th April 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Open a database and read the records in it.
past the following code
dim db as database
dim rs ad recordset
set db=opendatabase("database.mdb")
set rs=db.openrecordset("select * from tablename")
while not rs.Eof
debug.print rs(0).value
and so on .... for another data fields.
rs.movenext
wend
rs.close
db.close