用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