VBA通过迭代ADODB结果集来删除记录

Question

我正在尝试遍历ADODB结果集并在条件为真时删除记录。但是，当我这样做时，只删除记录的第一个字段，其余的记录仍然存在。

任何想法？ 我有以下代码：

Set ytdRS = New ADODB.Recordset
ytdRS.Source = SQL_YTD
ytdRS.CursorType = adOpenStatic
ytdRS.LockType = adLockBatchOptimistic

rst.MoveFirst
Do Until rst.EOF
  if (value = 1) then  
    rst.Delete
    rst.MoveNext
  end if    
Loop

Answer 1

我看不到的一件事是ytdRS.Open命令。这可能是（问题的一部分）吗？

编辑：其他一些事情：

1. 你在这个块（ytdRS）中没有使用相同的记录集名称，所以我不确定你的意图是使用两个不同的记录集（我假设它不是）
2. 我不确定“Value”是否是记录集中字段的值（即ytdRS!FieldName.Value）或变量名。在这种情况下，它是一个变量名。
3. 无论哪种方式，你都可以通过在if语句中使用MoveNext来保证你无限循环，因为你的Recordset不会移动到下一条记录，除非{{1} }等于1。
4. 我不得不更改CursorType和LockType以使您的示例在测试表上工作。我不认为adOpenStatic会允许你删除记录（我相信它会为你提供一个静态或不可更改的游标）。当您遇到更新数据时出现问题，通常似乎是adOpenKeyset。您用于锁定的adLockBatchOptimistic假定您以批处理模式运行;通常adLockOptimistic工作正常。有关删除方法和批处理操作的详细信息，请参阅here。

以下代码对我有用;您必须根据具体应用进行编辑。特别是，您需要修改Value，ytdRS.Source方法中的ActiveConnection:=和Open()行，以对应代码块中的“值”语句你发布了。

希望这有帮助！

如果您有任何疑问，请与我们联系。

ytdRs![Order ID].Value = 36