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则，记录集移动到第一条记录。
总结
