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

来源：互联网发布：百度申诉网络异常编辑：程序博客网时间：2024/05/21 18:55

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)

        '拼写删除指定PR Number的SQL文        stSql = "DELETE FROM [000_BASTS] WHERE [PR NR] = '" & pr_nr & "'"        '执行SQL文        CurrentDb.Execute (stSql)