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

最新推荐文章于 2018-02-27 00:31:32 发布

最新推荐文章于 2018-02-27 00:31:32 发布 · 91 阅读

文章标签：

#数据库

本文解析了使用VBA在数据库中删除记录的过程。详细介绍了如何判断待删除记录是否为最后一条，通过移动记录指针来标记位置，完成删除操作，并返回到标记的位置。适用于学习VBA数据库操作的初学者。

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

然后将书签移动到第一个

然后在移动到最后

删除,

找到刚才标记的书签

如果不是最后一个

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