“事务不能有多个具有此游标类型的记录集。”错误

Question

我在我的经典 asp 应用程序中收到以下错误：

用于 ODBC 驱动程序的 Microsoft OLE DB 提供程序错误“80004005”

事务不能有多个具有此游标类型的记录集。 更改游标类型、提交事务或关闭其中一项 记录集。

我正在努力将代码从 Oracle 迁移到 SQL Server 2008，这是我在整个应用程序中不断看到的一个问题。

似乎找不到任何修复方法。

此代码块中的特殊情况：（我更改了选择以使其更短）

Set MyConn  = Server.CreateObject("ADODB.Connection") 
Call OpenORPSConnect(MyConn)
ql = "Select username from mytable"
set rs = MyConn.Execute(sql)
if not rs.EOF then username = rs(0)
if username = "" then username = theUser
rs.close()
set rs = nothing

MyConn.BeginTrans()

sql = "Select someReport from MyTable"
set rs = MyConn.Execute(sql)

do while not rs.EOF
TIMESTAMP       = rs("TIMESTAMP")
rev      = rs("REV")

select case whatChange
    case "Target date"
       sql = "Insert into " & caJustTable & _
                 " (TEXT, TIMESTAMP, CURRENTFLAG)" & _
            " Values ( Text& "','" & COPY_TS & "', 'Y')""
MyConn.Execute(sql) 
    end select

sql = "update table, set this to that"
MyConn.Execute(sql) <-------- error happens here sometimes....

end if
rs.movenext
loop

rs.close()
set rs = nothing

Answer 1

既然在评论中回答了这个问题，我想把它变成一个更好的答案

你的问题似乎是 MyConn.BeginTrans() 没有 MyConn.CommitTrans( ) 或 MyConn.RollbackTrans() 在您的选择案例中的 Insert 语句之后；因此，当您尝试更新数据时会引发错误。如果您在插入执行后提交或回滚，那么您的下一次执行应该可以正常工作。事实上，MyConn.BeginTrans() 位于简单的 select 语句之前，您可能会考虑将其移到 select 之后。

我会做这样的事情（如果你想使用事务）：

'MyConn.BeginTrans()

sql = "Select someReport from MyTable"
set rs = MyConn.Execute(sql)

do while not rs.EOF
   TIMESTAMP = rs("TIMESTAMP")
   rev = rs("REV")

  select case whatChange
    case "Target date"
        MyConn.BeginTrans()
        sql = "Insert into " & caJustTable & _
                 " (TEXT, TIMESTAMP, CURRENTFLAG)" & _
            " Values ( Text& "','" & COPY_TS & "', 'Y')""
        MyConn.Execute(sql) 
        MyConn.CommitTrans() 'You'll want to validate your data inserts properly before committing
    end select

    MyConn.BeginTrans()
    sql = "update table, set this to that"
    MyConn.Execute(sql) <-------- error happens here sometimes....
    MyConn.CommitTrans()'You'll want to validate your data inserts properly before committing

  end if
  rs.movenext
loop

rs.close()
set rs = nothing

事务通常用于插入/更新或删除数据。既然您评论过，您不知道为什么 BeginTrans() 语句在那里，那么是的，您可以将其完全删除，但我建议您阅读事务并确保在稍后发生的插入和更新语句之后不需要它代码。

以下是 SQL 事务的参考：

http://www.firstsql.com/tutor5.htm

Answer 2

我认为 MyConn 最终可能需要关闭。这是你可以尝试的吗？

Answer 3

您在连接上已经有一个打开的记录集，所以我认为问题是您的数据库不支持在同一连接上执行其他操作，直到记录集关闭为止。作为修复，我建议使用以下三个选项之一：

1. 使用第二个连接（在其上运行事务）来运行更新表的 sql 语句。

2. 在循环记录集时将所有语句收集到列表中，关闭记录集，然后运行语句（使用相同的连接）。

3. 或者将数据拉入数据表并循环遍历该数据表而不是打开的记录集。