用ADO删除Access数据库中的指定记录

612次阅读

没有评论

共计 902 个字符，预计需要花费 3 分钟才能阅读完成。

提醒：本文最后更新于 2019-05-12 19:54，文中所关联的信息可能已发生改变，请知悉！

想要通过 ADO 实现删除 Access 数据库中的指定记录，首先用 ADO 建立与数据库的链接：

Dim rs As New ADODB.Recordset

rs.open "数据表名称", CurrentProject.Connection, , adLockOptimistic

然后遍历所有数据，删除符合条件的项目：

rs.movefirst --------- 跳到第一个数据

While rs.EOF = False ------- 设定循环条件

if rs![条件字段] = **** then rs.Delete --------- 删除符合条件的记录

rs.movenext ---------- 跳跃到下一条记录

wend --------- 结束循环

例如：

Private Sub CmdSheetDelete_Click()
On Error GoTo Err_CmdSheetDelete_Click‘打开“物料清单”表
     Set Rs = New ADODB.Recordset
     StrTemp =“Select * From 物料清单”Rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic‘“物料清单”表中没有记录，则提示记录可删除
     If Rs.RecordCount <= 0 Then
        MsgBox“目前记录为空，无记录可删除！”, vbOKOnly,“提示！”Else
     Rs.MoveFirst‘在“物料清单”表中查找并删除当前记录
        Do While Not (Rs.EOF)
           If (Rs(“父项编号”) = Me![MaterialSheetFrm]![父项编号]) Then
               Rs.Delete
               Rs.Update‘刷新“物料清单 (Bom)”子窗体
               MaterialSheetFrm.Requery
           Else
               Rs.MoveNext
           End If
        Loop
     End If‘释放记录集空间
     Set Rs = Nothing
Exit_CmdSheetDelete_Click:
    Exit Sub
Err_CmdSheetDelete_Click:
    MsgBox Err.Description
    Resume Exit_CmdSheetDelete_Click
End Sub

正文完