为什么极少数情况下 bof/eof 之一对于新的非空记录集是正确的

Question

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

2 个问题：

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

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

   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 在超出第一条或最后一条记录之前都不为真。

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

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

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

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

这是 DAO，对吧？我自己更像是一个 ADO 人，但 IIRC 在某些情况下（动态集？）您需要导航 EOF 以便评估最终的行数。在这种状态下，EOF 是否为真，BOF 是否为假（因为它尚未被导航），但一旦 BOF 被导航，它就为真（显然）并且 EOF 仍然为真。大概零行时的初始状态应该是瞬时的，但五年一次的怪异时间事件意味着您在非常早期的初始状态中捕获了它？

Answer 5

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

如果 rst.bof 和 rst.eof

尽管 rst 代表一个空的记录集，但评估为 false。当它发生时，VBA 启动并且直接窗格中的调试器显示，确实 rst.bof 为真，rst.eof 为真，所以它似乎发生了一毫秒，然后被纠正，但在测试了逻辑之后。

Answer 6

Here's a possible solution

可能是您的表单或模块已损坏。导出/导入受影响的模块或表单，或尝试 /decompile 选项。在我的例子中，一个不应该有的查询返回为空，但我认为核心问题可能是相似的。