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

lewis 1年前 (2024-04-25) 阅读数 17 #技术

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

SubAccessDBExample()
DimdbAsDAO.Database
DimrsAsDAO.Recordset
DimstrSQLAsString

'连接到Access数据库
Setdb=OpenDatabase("C:\path\to\your\database.accdb")

'构建SQL查询语句
strSQL="SELECT*FROMTableName"

'执行查询语句并获取结果集
Setrs=db.OpenRecordset(strSQL)

'遍历结果集并输出数据
DoUntilrs.EOF
Debug.Printrs.Fields("FieldName").Value
rs.MoveNext
Loop

'关闭结果集和数据库连接
rs.Close
db.Close

'释放对象变量
Setrs=Nothing
Setdb=Nothing
EndSub

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

此示例使用了DAO对象模型（DataAccessObjects），因此您需要在VBA编辑器的“工具”菜单中的“引用”中添加对“MicrosoftDAO3.6ObjectLibrary”的引用。

版权声明

本文仅代表作者观点，不代表博信信息网立场。

上一篇：Rancher2.0是什么平台下一篇：8、泛型程序设计与c++标准模板库2.4列表容器(c++通过和类模板来支持泛型程序设计)

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

版权声明

作者文章