VBA宏 Access自身查询/删除/插入数据库(亲自实践)

最新推荐文章于 2025-04-01 15:44:56 发布

原创

最新推荐文章于 2025-04-01 15:44:56 发布 · 1.2w 阅读

10 ·

CC 4.0 BY-SA版权

本文介绍了如何使用VBA宏在Access中直接操作数据库，包括利用CurrentDb.OpenRecordset进行查询，以及通过CurrentDb.Execute进行删除和插入操作。

Access自身查询数据库,可以利用 CurrentDb 的方法,其中

1.查询 (select) 利用的是CurrentDb.OpenRecordset(stSql)

    Dim rs As Object
    Dim stSql As String

    '拼写取得TABLE内容的SQL文
    stSql = "SELECT Place FROM [TABLE] "
    '执行SQL文
    Set rs = CurrentDb.OpenRecordset(stSql)

    '如果查询为空,那么退出程序
    If rs.BOF And rs.EOF Then
        MsgBox "Query is NULL, Please check.", vbCritical

    End If
    '结果集返回第一条记录
    rs.MoveFirst
    'PLACE数据有效性check
    For j = 0 To rs.RecordCount - 1
        '确认PLACE内容在查询中
         If place = rs.Fields("Place") Then
            repeatFlg = True
                
            Exit For
        End If

        rs.MoveNext
    Next j

2.删除/插入 (delete/insert) 利用的是CurrentDb.Execute(stSql)