VBA访问access数据库实例

以下是一个简单的VBA访问Access数据库的示例：

Sub AccessDBExample()     Dim db As DAO.Database     Dim rs As DAO.Recordset     Dim strSQL As String          ' 连接到Access数据库     Set db = OpenDatabase("C:\path\to\your\database.accdb")          ' 构建SQL查询语句     strSQL = "SELECT * FROM TableName"          ' 执行查询语句并获取结果集     Set rs = db.OpenRecordset(strSQL)          ' 遍历结果集并输出数据     Do Until rs.EOF         Debug.Print rs.Fields("FieldName").Value         rs.MoveNext     Loop          ' 关闭结果集和数据库连接     rs.Close     db.Close          ' 释放对象变量     Set rs = Nothing     Set db = Nothing End Sub 

注意：在使用此示例之前，您需要将代码中的"C:\path\to\your\database.accdb"替换为实际的Access数据库文件路径，将"TableName"替换为实际的表名和"FieldName"替换为实际的字段名。

此示例使用了DAO对象模型（Data Access Objects），因此您需要在VBA编辑器的“工具”菜单中的“引用”中添加对“Microsoft DAO 3.6 Object Library”的引用。