用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 条评论