gpt4 book ai didi

ms-access - 为什么极少数情况下 bof/eof 之一对于新的非空记录集为真

转载 作者:行者123 更新时间:2023-12-03 08:10:07 24 4
gpt4 key购买 nike

 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

最佳答案

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

  • BOF 将为真
  • EOF 将为真
  • RecordCount 将为 0

对于非空的 RecordsetBOFEOF 都不为真,直到您移动到第一个或最后一个记录之外。

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

而不是使用 BOFEOF,您可以在 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

它非常具有防御性,您必须适应您的环境,但它每次都能正常工作。

关于你的第二个问题,打开记录集后测试(BOFEOF)应该比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

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

关于ms-access - 为什么极少数情况下 bof/eof 之一对于新的非空记录集为真,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1015830/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com