Question

 set recordsetname = databasename.openrecordset(SQLString)
    if recordsetname.bof <> true and recordsetname.eof <> true then
    'do something
    end if

2个问题：

上述测试可能会错误地评估错误，但非常罕见（我有一个潜伏在我的代码中，它今天失败了，我相信这是5年来第一次使用 - 这就是我发现它的方式）。为什么非常偶然的一个bof / eof对于非空记录集是真的。似乎很少见，我想知道它为什么会发生。

这是一个万无一失的替代品：

if recordsetname.bof <> true or recordsetname.eof <> true then

编辑以添加代码的详细信息：

客户有订单，每个订单都以BeginOrder商品开头，以EndOrder商品结尾，其间是订单中的商品。

SQL是：

' ids are autoincrement long integers '
SQLString = "select * from Orders where type = OrderBegin or type = OrderEnd"           

Dim OrderOpen as Boolean
OrderOpen = False

Set rs = db.Openrecordset(SQLString)
If rs.bof <> True And rs.eof <> True Then
    myrec.movelast
    If rs.fields("type").value = BeginOrder Then
         OrderOpen = True
    End If
End If

If OrderOpen F False Then
    'code here to add new BeginOrder Item to Orders table '
End If

ShowOrderHistory 'displays the customer's Order history '

在这种情况下看起来这个

BeginOrder
Item a
Item b
...
Item n
EndOrder

BeginOrder
Item a
Item b
...
Item n
EndOrder

BeginOrder
Item a
item b
...
Item m

BeginOrder     <----should not be there as previous order still open

Answer 1

文档明确指出，如果您打开一个没有记录的Recordset：

BOF将是真的
EOF将是真的
RecordCount将为0

对于非空Recordset，BOF和EOF均为真，直到您超出第一个或最后一个记录为止。

可能是有时候，其他人可能会不时添加/删除记录到您刚刚打开的记录集中的一个表并更改结果集吗？这可能是竞争条件的结果。

您可以在BOF上进行测试，而不是使用EOF或Recordcount：如果记录集为空，则始终为0。如果记录集不为空，则通常在记录集打开后立即返回1;在这种情况下，Recordcount并不是一项昂贵的操作真正返回实际记录数的唯一方法是在调用MoveLast之前发出Recordcount以强制加载所有记录。

通常，如果我需要以只读方式遍历结果集：

Dim db as DAO.Database
Dim rs as DAO.RecordSet

Set db = CurrentDB()
Set rs = db.OpenRecordSet("...", dbOpenForwardOnly)
If Not (rs Is Nothing) Then
    With rs
       Do While Not .EOF
            ' Do stuff '
            .MoveNext
       Loop
       .Close
    End With
    Set rs = Nothing
End If
Set db = Nothing

如果我不需要遍历记录，只是测试是否返回了任何内容：

Set rs = db.OpenRecordSet("...", dbOpenForwardOnly)
If Not (rs Is Nothing) Then
    With rs
       If .RecordCount > 0 Then
          ' We have a result '
       Else
          ' Empty resultset '
       End If
       .Close
    End With
    Set rs = Nothing
End If
Set db = Nothing

这是非常防守的，你必须适应你的情况，但每次都能正常运作。

关于你的第二个问题，打开记录集后测试（BOF或EOF）应该比And版本更加万无一失，尽管我自己使用Recordcount

按照修改后的问题进行修改：

从您添加到问题中的代码中，我看到了一些问题，主要问题是您的SQL语句缺失并且ORDER BY条款。
问题是您希望结果集在Begin Order后跟End Order序列，但您的SQL语句并不能保证这一点。
在大多数情况下，由于您使用自动增量作为ID，数据库引擎将以该自然顺序返回数据，但无法保证：

总会发生这种情况
原始数据以预期的顺序保存，导致ID处于“错误”的顺序。

因此，只要您对结果集的顺序有所期望，就必须明确地对其进行排序。

我还要重构这段代码：

' ids are autoincrement long integers '
SQLString = "select * from Orders where type = OrderBegin or type = OrderEnd"           

Dim OrderOpen as Boolean
OrderOpen = False

Set rs = db.Openrecordset(SQLString)
If rs.bof <> True And rs.eof <> True Then
   myrec.movelast
    If rs.fields("type").value = BeginOrder Then
        OrderOpen = True
    End If
End If

进入一个类似于：

的独立功能

' Returns true if the given CustID has a Open Order, '
' false if they are all closed.'
Public Function IsOrderOpen(CustID as Long) As Boolean
    Dim result as Boolean
    result = False

    Dim sql as String
    ' Here I assume that the Orders table has a OrderDateTime field that '
    ' allows us to sort the order in the proper chronological sequence '
    ' To avoid loading the complete recordset, we sort the results in a way '
    ' that will return the last used order type as the first record.'
    sql = sql & "SELECT Type " 
    sql = sql & "FROM Orders "
    sql = sql & "WHERE ((type = OrderBegin) OR (type = OrderEnd)) "
    sql = sql & "      AND (CustID=" & CustID & ")"
    sql = sql & "ORDER BY OrderDateTime DESC, Type DESC;"

    Dim db as DAO.Database
    Dim rs as DAO.Recordset
    Set db = CurrentDB()
    Set rs = db.Openrecordset(sql, dbOpenForwardOnly)

    If Not (rs Is Nothing) Then
        If rs.RecordCount > 0 Then
            result = (rs!type = BeginOrder)
        End If
        rs.Close
    End If

    Set rs = Nothing
    Set db = Nothing

    IsOrderOpen = result
End Function

这会使整个事情变得更加强大。

Answer 2

我一直使用的模式是：

Set rs = db.OpenRecordset(...)

Do while Not rs.EOF

    ' Rest of your code here.

    rs.MoveNext
Loop

我从未见过这种失败（还是！）。这在此处描述：How to: Detect the Limits of a DAO Recordset

顺便说一下，Allen Browne的VBA陷阱：Working with Recordsets可能会引起人们的兴趣。

Answer 3

@Renaud Bompuis的回答非常好。让我强调DAO记录计数对于非空记录集永远不会为零，这是我在确定记录集是否已返回记录时唯一测试的。我使用.EOF来循环记录，但是在我已经测试过是否有记录返回之前，不要开始单步执行记录。

Answer 4

我偶尔会遇到完全相同的访问错误（今天在Access 2007链接到sql server后端）其中的语句

如果rst.bof和rst.eof

尽管第一个表示空记录集，

的计算结果为false。当它发生时，VBA启动并且立即窗格中的调试器显示，确实rst.bof是真的并且rst.eof是真的，所以它似乎发生了一毫秒然后被纠正，但是在一个人测试了逻辑之后。

Answer 5

这是DAO，对吗？我自己更像是一个ADO人，但IIRC有情况（动态集？）你需要导航EOF以便评估最终的行数。在这种状态下，EOF是否属实，BOF是假的（因为它还没有被导航）但是一旦BOF被导航它就是真的（显然）并且EOF仍然是真的。假设零行预期的初始状态是假设是瞬时的，但是五年一次的怪胎计时事件意味着你在一个非常早期的初始状态中捕获它？

Answer 6

Here's a possible solution

可能是您的表单或模块已损坏。导出/导入受影响的模块或表单，或尝试/ decompile选项。在我的情况下，一个查询在它不应该出现时返回空白，但我认为核心问题可能类似。

为什么极端偶尔会有一个bof / eof对于一个新的非空记录集是真的

6 个答案: