ms-access - 为什么极少数情况下 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 都不为真，直到您移动到第一个或最后一个记录之外。

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

而不是使用 BOF 或 EOF，您可以在 Recordcount 上进行测试:它总是 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

这将使整个事情更加健壮。