Access VBA中的ADO批更新

我认为问题在于您需要显式地使用客户端光标。我怀疑您隐式地使用了服务器端光标。

我更喜欢单独设置记录集对象的属性,因为我认为读取(因此调试)比使用重载 Open 方法。此外,您还可以使用 RecordCount 循环的属性,例如

With rs
  .ActiveConnection = CurrentProject.Connection
  .Source = "dbrammDump"
  .CursorLocation = adUseClient  ' <<< THIS MISSING FROM ORIGINAL CODE
  .CursorType = adOpenKeyset
  .LockType = adLockBatchOptimistic
  .Open

  Dim counter As Long
  For counter = 0 To .RecordCount - 1
      .Delete
      .MoveNext
  Next

  .UpdateBatch

  rowsDel = counter

End With

fwiw我同意这里的其他人的观点,在SQL中使用基于集合的解决方案比上面那样的过程代码更好。

你为什么要这样删除记录,当你可以打电话的时候 myconnection.Execute "DELETE FROM myTable WHERE....." ?

另外,您是如何打开记录集的?粘贴 myrecordset.Open(...) 这里的声明。
看看这个 link 帮助。

您的插入源是否是一个数据集,可在要作为批附加的select语句中使用?如果是这样,那就是你的答案。

如果需要使用ADO代码删除/插入/更新的行数,请使用以下代码。

CurrentProject.Connection.Execute strSQL, lngRecordsAffected, adCmdText