EOF和BOF

EOF和BOF

         使用ADO连接数据库进行查询的时候，数据库将查询结果返回查询端，在查询端的内存里面就会有一个列表，这个列表存放的就是查询的结果。

         这个内存中的列表就是数据集。在学生的程序里面mrc就是表示这个数据集。

         Dim mrc As ADODB.Recordset

         比如

         数据集里面有编号为1，2，3，4的4条记录。

         BOF表示当前的指针是指在了数据集的前面，当mrc指向的编号是-1，这样就会符合了bof的情况。

         EOF表示当前的指针是指在了数据集的后面，当mrc的指针指向5，而第五条记录并不存在，这样就会产生了eof的情况。

         如果同时产生了BOF和EOF的情况，就是说mrc的指针既在上界之外也在下届之外，这样只有一种情况，就是mrc所代表的数据集是空的。

         我们在做信管和机房的时候，经常会遇到的一个错误，如下图sql语句查询出来的值是空的，因此数据集也是空的，在读取rs数据集里面的值的时候就会报这个错误。

          使用 if rs.BOF and rs.EOF then 这个判断可以判别mrc里面是否有没有数据集，如果符合这个条件，说明数据集是空的，在程序中就要绕开对mrc里字段的访问。 

判断记录集是否为空:

If mrc.EOF And mrc.BOF Then

    MsgBox"对不起，您要查询的记录集为空！",vbOKOnly + vbExclamation, "提示"

    …………

Else

    x =Trim(mrc.Fields(n))

    …………

End If

上述的代码，近似程序：If mrc.Recordcount = 0 then

         BOF、EOF 属性  

         BOF 指示当前记录位置位于 Recordset 对象的第一个记录之前。   

         EOF 指示当前记录位置位于 Recordset 对象的最后一个记录之后   

         BOF、EOF返回值   

         BOF 和 EOF 属性返回布尔型值，说明如下：   

        使用 BOF 和 EOF 属性可确定 Recordset 对象是否包含记录，或者从一个记录移动到另一个记录时是否超出 Recordset 对象的限制。   

        如果当前记录位于第一个记录之前，BOF 属性将返回 True (-1)，如果当前记录为第一个记录或位于其后则将返回 False (0)。   

        如果当前记录位于 Recordset 对象的最后一个记录之后 EOF 属性将返回 True，而当前记录为 Recordset 对象的最后一个记录或位于其前，则将返回 False。   

如果 BOF 或 EOF 属性都为 True，则表示当前没有任何记录。

第一条和最后一条记录查询：

Private Sub firstCommand_Click()

   mrc.MoveFirst

    CallviewData

End Sub

Private Sub lastCommand_Click()

    mrc.MoveLast

    CallviewData

End Sub

上一条和下一条记录查询：

Private Sub previousCommand_Click()

   mrc.MovePrevious

    If mrc.BOFThen

       mrc.MoveLast

    End If

    CallviewData

End Sub

Private Sub nextCommand_Click()

    mrc.MoveNext

    If mrc.EOFThen

       mrc.MoveFirst

    End If

    CallviewData

End Sub

          如果记录集位于第一条记录之前，即BOF则，记录集移动到最后一条记录。

          如果记录集位于最后一条记录之后，即EOF则，记录集移动到第一条记录。