VB实时错误'3021' BOF \EOF

概述            此类错误的出现，是由于在对数据库进行 *** 作时，记录集中的记录为空，或者只有一个记录。 相关代码如下：      Dim intMsgbox As Integer m_vntBookmark = m_rstStudentInfo.Bookmark intMsgbox = MsgBox("真的要删除当前记录吗？", vbOKCancel

此类错误的出现，是由于在对数据库进行 *** 作时，记录集中的记录为空，或者只有一个记录。

相关代码如下：

Dim intMsgBox As Integer        m_vntBookmark = m_rstStudentInfo.Bookmark        intMsgBox = MsgBox("真的要删除当前记录吗？",vbOKCancel,"删除记录")        '确认是否要删除当前记录          If intMsgBox = vbOK Then            m_rstStudentInfo.MoveNext            '根据要删除记录的位置不同，选择不同的删除方式             If m_rstStudentInfo.EOF Then           '如果要删除的为记录集的最后一条记录                m_rstStudentInfo.MoveFirst           '让指针移到了最后一条之后，需要返回到第一条                m_vntBookmark = m_rstStudentInfo.Bookmark     '记录当前书签（位置）                m_rstStudentInfo.MoveLast                                   '返回上一条，将之删除                m_rstStudentInfo.Delete                m_rstStudentInfo.Bookmark = m_vntBookmark      '返回刚才书签的记录位置                Call vIEwData                                                         '显示记录            Else                                                       '如果要删除的不是最后一条                m_vntBookmark = m_rstStudentInfo.Bookmark          '记录当前指针位置                m_rstStudentInfo.MovePrevIoUs                                  '返回上一条将之删除                m_rstStudentInfo.Delete                m_rstStudentInfo.Bookmark = m_vntBookmark          '指针返回刚才书签记录的位置                Call vIEwData            End If

代码相对 *** 作流程如下：

在上述代码中，标记和删除的记录默认不为同一条。故潜在含义是：记录集中必须大于两条记录。所以当出现记录为空或是只有一条时程序报错。

解决方法如下：

If  err=3021  then         If  objrs.bof and objrs.eof then                    MsgBox"没有记录可供删除！"          Else                    Str1=msgBox（“最后一条记录，是否继续删除？”，vbokcancel，“提醒”）                        If str1=vbok then                               msgBox“最后一条记录已删除！”                               Unload me                       Else                              Exit sub                       End if          End ifEnd if 

上述代码中，关键在于理解"objrs.bof and objrs.eof"

BOF：beginning of file，指向的是第一条记录的前一条记录。默认值为true

EOF:end of file ，指向的是最后一条记录的后一条。默认为true

如：记录集中共包含1、2、3、4 四条记录，BOF 则表示的是-1，而EOF 则为5.

故当objrs.bof and objrs.eof 同时满足时，则表示指针指向-1,5两条记录。即表示此记录集为空，没有记录

总结

以上是内存溢出为你收集整理的VB实时错误'3021' BOF \EOF全部内容，希望文章能够帮你解决VB实时错误'3021' BOF \EOF所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。