sql-server - 访问具有 IDENTITY 列的 SQL Server 表时，如何将 dbSeeChanges 选项与 OpenRecordset 一起使用？

Question

Private Sub update ()    
   Dim db As Database
   Set db = CurrentDb
   Dim rs As Recordset

   Set rs = db.OpenRecordset("SELECT * From Table", dbOpenDynaset, dbSeeChanges)
   db.Execute ("UPDATE Table SET Path = '" & A.Value & "' WHERE B = '" & B.Value & "'")

   db.Close
End Sub

当我遇到 vba 访问错误 3622 时(即，在访问具有 IDENTITY 列的 SQL Server 表时，使用 OpenRecordset 的 dbSeeChanges 选项)，建议的解决方案是添加第一行(Set rs=... 请参阅上面的编码)我做了但它没有解决问题。有其他方法可以避免此错误吗？

我是编码新手，希望得到任何帮助。谢谢。

Answer 1

由于 OP 已消失 - 将 dbSeeChanges 添加到命令末尾 (VBA):

DBEngine(0)(0).Execute "UPDATE Table SET Path = '" & A.Value & "' WHERE B = '" & B.Value & "'", dbSeeChanges