"Identity cannot be determined for newly inserted rows" 在 ADO RecordSet AddNew 和 Update 之后

Question

当我在 .vbs 文件中调用 AddNew 和 Update 后尝试编辑 ADO RecordSet 记录的字段时，我收到错误消息 "Identity cannot be determined for newly inserted rows"。但是，我能够访问从数据库返回的主键。

我不是在寻找解决方法（例如关闭记录集并通过其 ID 检索记录），我只是真的很想了解为什么会出现此错误。我已经在测试文件中简化了我的代码以排除任何其他问题。您在下面看到的是我正在执行的确切代码，不包含任何文件（我已经从连接字符串中删除了凭据）。

Dim connString : connString = "Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=localhost;Initial Catalog=;User Id=;Password="

Dim conn, rsTaskLog, sSQL

Set conn = CreateObject("ADODB.Connection")
conn.Open connString

' Create a new task log entry.
Set rsTaskLog = CreateObject("ADODB.Recordset")
sSQL = "SELECT * FROM Test"
rsTaskLog.Open sSQL, conn, 1, 3, 1 'adOpenKeyset, adLockOptimistic, adCmdText
rsTaskLog.AddNew
rsTaskLog.Update

' Set the task log result.
rsTaskLog.Fields("test_int").Value = 1 ' Error occurs on this line.
rsTaskLog.Update

rsTaskLog.Close
Set rsTaskLog = Nothing

更新：

我能够通过在第一次更新后添加以下行来使此代码工作：

rsTaskLog.AbsolutePosition = rsTaskLog.AbsolutePosition

关于移动当前记录的一些事情是将 RecordSet 放回到可以编辑的状态（MoveLast 和 MoveFirst 也有效）。任何人都知道导致这种情况的幕后发生的事情吗？

Answer 1

我想出的解决方案是在 RecordSet 上调用第一次更新后立即添加以下代码行：

rsTaskLog.AbsolutePosition = rsTaskLog.AbsolutePosition

出于某种原因，移动光标位置会使 RecordSet 回到可以再次调用 Update 而不会产生错误的状态（MoveFirst 和 MoveLast 也有效，但通过将 AbsolutePosition 设置为自身，我们能够保持当前位置）。我不完全确定这里的幕后发生了什么，如果您知道，请随时在评论中详细说明。

"Identity cannot be determined for newly inserted rows" 在 ADO RecordSet AddNew 和 Update 之后

"Identity cannot be determined for newly inserted rows" after ADO RecordSet AddNew and Update

vbscript

ado

recordset

asp-classic