vb如何调用access数据库

Question

请详细说明,谢谢!

Answer 1

'先引用dao350（access97）,或者dao360（access2000）
option explicit
private MyData as dao.database,MyRs as dao.recordset  '定义变量
Sub Form_load
   set mydata=OpenDatabase(app.path & "\test.mdb")    '打开数据库
   set myrs=mydata.open("select * from t_test")       '打开数据库中的表
   msgbox myrs!testFields                             '得到数据表中的字段值
   myrs.close                                         '释放该数据表对象
   mydata.close                                       '关闭数据库对象
end sub

Answer 2

'ADO的方法,先引用ado2.5
Dim cn As New Connection
Dim rs As New Recordset
cn.CursorLocation = adUseClient
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "c:\costume.mdb"
cn.Openrs.Open "select * from table1", cn, 1, 1Set DataGrid1.DataSource = rs

Answer 3

上面几位说的都不错，但不要忘了安装sp5先，要不就会出现问题
然后就如天行所说的那样就差不多
 Dim cnt as adodb.connection
set cnt=new adodb.connection
cnt.open""
之类的

Answer 4

可以用ADO或DAO来做。
楼上都已给出了说明不过在引用这些之前要先引用相应的对象库。在“工程”--->“引用”--->"..........."