VBA 删除access数据库记录

发布网友 发布时间：2022-04-21 22:04

我来回答

共3个回答

热心网友 时间：2022-04-14 15:23

删除/插入 (delete/insert) 利用的是CurrentDb.Execute(stSql)。
代码如下：
[plain] view plaincopy
'拼写删除指定PR Number的SQL文
stSql = "DELETE FROM [000_BASTS] WHERE [PR NR] = '" & pr_nr & "'"
'执行SQL文
CurrentDb.Execute (stSql)

热心网友 时间：2022-04-14 16:41

'// 创建ADO记录集对象
Set adoRt = CreateObject("ADODB.RecordSet")

'// 设置SQL 语句

strSQL = "SELECT * FROM TMB WHERE False"

With adoRt
'// 设置需要连接数据库
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\TM.mdb"
.CursorLocation = 3
.CursorType = 1
.LockType = 3

'// 设置SQL语句
.Source = strSQL
'// 准备打开记录集
.Open

'删除TMB表中的所有记录
if adort.recordcount<>0 then
adort.movefirst
do while not adort.eof
adort.delete
adort.movenext
loop
endif

'// 新增记录
.AddNew
'// 赋值
.Fields("TMZF").Value = Range("识别号")
'// 更新
.Update

'// 判断并关闭记录
If .State = 1 Then
.Close
End If
End With

'// 从内存中释放
Set adoRt = Nothing
End Sub

热心网友 时间：2022-04-14 18:16

adoRt.execute("delete from tmb")