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

想要通过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

版权声明:
作者:水东柳
链接:https://shuidl.com/1442.html
来源:水东柳博客
文章版权归作者所有,未经允许请勿转载。

THE END
分享
二维码
打赏
< <上一篇
下一篇>>