• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Opening a MS-Access Database 7.0(MDB) very easy. by Noel M. Resende

Opening a MS-Access Database 7.0(MDB) very easy. by Noel M. Resende

Opening a MS-Access Database 7.0(MDB) very easy. by Noel M. Resende

API Declarations


dim db as database
dim rs as recordset
dim sqlcommand as string
dim path as string
dim file as string



Rate Opening a MS-Access Database 7.0(MDB) very easy. by Noel M. Resende

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Set rs = db.OpenRecordset(STRVALUE)
End Function

Private sub Form_Load()
path = "c:\vg\database\" 'put your database path here
file = "geral.mdb" ' Access database file
Set db = OpenDatabase(path+file) 'open database
sqlcommand = "select * from customers where id=300" 'define the Sql command
Query(sqlcommand) ' execute the sql command
msgbox rs!customer_name 'show a field
End Sub