Question

If Adodc1.Recordset.RecordCount > 0 Then

If Adodc1.Recordset.RecordCount > 0 Then
n = MsgBox("你确定删除吗？", vbYesNoCancel, "提示信息")
If n = 6 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
End If
这段代码是什么意思？

Answer 1

if Adodc1.Recordset.RecordCount > 0 Then 假如记录数大于0（存在记录）
n = MsgBox("你确定删除吗？", vbYesNoCancel, "提示信息")询问是否删除
If n = 6 Then 如果选择yes是
Adodc1.Recordset.Delete 删除当前记录
Adodc1.Recordset.Update 刷新数据库

Answer 2

确定删除 ，再更新数据（库内将没有刚刚确定删除的数据了）