数据库删除记录核心语句 解读 (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

然后将书签移动到第一个

然后在移动到最后

删除,

找到刚才标记的书签

如果不是最后一个

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

在回来

删除

找回刚才标记的书签

显示记录