VBA访问access数据库实例

1969
2024/3/3 11:20:45
栏目: 编程语言
开发者测试专用服务器限时活动,0元免费领,库存有限,领完即止! 点击查看>>

以下是一个简单的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”的引用。

辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>

推荐阅读: access怎么判断并设置表的主键