东流西上
故在柳溪,水东有柳

用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
赞(0) 打赏
转载请注明出处:水东柳博客 » 用ADO删除Access数据库中的指定记录
分享到: 更多 (0)

评论 抢沙发

6 + 4 =
  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏