数据库删除记录核心语句 解读 (vb6.0)

str2$ = MsgBox("是否删除当前记录?", vbOKOnly + vbExclamation, "提示") If str2$ = vbOK Then mrc.MoveNext If mrc.EOF Then mrc.MoveFirst myBookMark = mrc.Bookmark mrc.MoveLast mrc.Delete mrc.Bookmark = myBookMark Call viewData Else myBookMark = mrc.Bookmark mrc.MovePrevious mrc.Delete '??????????? mrc.Bookmark = myBookMark Call viewData End If Else mrc.Bookmark = myBookMark Call viewData End If

解读

首先

先测试是否要删除的记录为最后一条记录

用movenext

如果为最后,则先把当前记录移动到第一个

Movefirst

然后将书签移动到第一个

然后在移动到最后

删除,

找到刚才标记的书签

如果不是最后一个

标记下一个,因为删除以后就要移动到下一个

在回来

删除

找回刚才标记的书签

显示记录