vba连接mdb数据库
时间: 2023-07-05 15:28:56 浏览: 90
要使用VBA连接MDB(Access 2003及之前版本)数据库,可以使用以下步骤:
1. 在VBA中添加Microsoft DAO 3.6 Object Library:在VBA的工具菜单中选择“引用”,勾选“Microsoft DAO 3.6 Object Library”。
2. 创建DAO.DBEngine对象:使用DAO.DBEngine对象来连接Access数据库。
3. 打开数据库:使用DAO.Database对象的Open方法打开数据库。
4. 执行SQL语句:使用DAO.Recordset对象来执行SQL语句。
以下是一个简单的VBA连接MDB数据库的示例代码:
```
Dim db As DAO.Database
Dim rs As DAO.Recordset
'创建DBEngine对象
Dim dbEngine As DAO.DBEngine
Set dbEngine = New DAO.DBEngine
'打开数据库
Set db = dbEngine.OpenDatabase("C:\myFolder\myDatabase.mdb")
'执行SQL语句
Set rs = db.OpenRecordset("SELECT * FROM myTable")
'遍历结果集
Do Until rs.EOF
Debug.Print rs("myField")
rs.MoveNext
Loop
'关闭连接
rs.Close
db.Close
```
这个示例代码中,我们首先创建了一个DAO.DBEngine对象。然后使用OpenDatabase方法打开数据库,执行SQL语句并遍历结果集。最后关闭连接和结果集。注意,这种方法只适用于Access 2003及之前版本的MDB文件。如果要连接Access 2007及更高版本的ACCDB文件,需要使用ADO连接。