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

860次阅读
没有评论

共计 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
正文完
 0
水东柳
版权声明:本站原创文章,由 水东柳 于2019-01-06发表,共计902字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
评论(没有评论)