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

然后将书签移动到第一个
然后在移动到最后

删除,
找到刚才标记的书签

如果不是最后一个
标记下一个,因为删除以后就要移动到下一个

在回来
删除

找回刚才标记的书签

显示记录