以下是一个简单的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”的引用。
亿速云「云数据库 MySQL」免部署即开即用,比自行安装部署数据库高出1倍以上的性能,双节点冗余防止单节点故障,数据自动定期备份随时恢复。点击查看>>
推荐阅读:vb连接access数据库实例及查询实例