为什么对于新的非空记录集，bof/eof 之一偶尔会成立

Question

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

2个问题：

1. 上面的测试可能会错误地评估为 false，但只有极少数（我的代码中潜伏着一个测试，今天它失败了，我相信这是 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为真，直到超出第一个或最后一个记录。

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

您可以测试：记录集是否为空，而不是使用BOFor 。 如果记录集不为空，通常会在记录集打开后立即返回；在这种情况下，这并不是一个昂贵的操作。真正返回实际记录数的 唯一方法是发出before 调用以强制加载所有记录。EOFRecordcount0
1Recordcount
MoveLastRecordcount

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

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

这将使整个事情变得更加稳健。