数据库事务问题

[firmbird]

dim cn as new connection
dim obj1 as recordset
dim obj2 as recordset
cn.open connectionstring
cn.begintrans
obj1.open sql,cn,3,1
do while not obj1.eof
obj2.open sql,cn,3,1 '////该行执行出错
loop
cn.rollbacktrans

为什么上面的语句执行到带注释的那一行时会出现"在手动或分布式事务情况下不能创建新的连接"的错误。

[xixixi9988]

你写的是什么东西

[firmbird]

呵呵，想写得快点，结果写成上面这样了，更正(不会连这几行也看不懂吧)


dim cn as new connection
dim obj1 as recordset
dim obj2 as recordset
cn.open "provider=sqloledb;data source=server;initial catalog=db;user id=uid;password=pwd"
cn.begintrans
obj1.open "select * from table1",cn,adOpenForwardOnly,adLockReadOnly
do while not obj1.eof
obj2.open "select * from table2",cn,adOpenForwardOnly,adLockReadOnly '////该行执行出错
obj1.movenext
loop
cn.rollbacktrans

为什么上面的语句执行到带注释的那一行时会出现"在手动或分布式事务情况下不能创建新的连接"的错误。

[junwhj]

cn.Provider="SQLOLEDB"
cn.Open "..."
....

[ledy]

obj2不能重复open.
do while循环第一次时,obj2已经open....

[xdwlb]

楼上说得对！

[firmbird]

谢谢junwhj(junwhj.51.net)，也谢谢其他各位朋友。呵呵，不过有几位朋友的理解能力稍为逊了一点^_^（怪我没把问题说清楚）

[junwhj]

刚才说错了, 只要设置RecordSet为客户端即可

Dim cn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset

cn.Provider = "SQLOLEDB"
cn.Open "Driver={SQL Server};Server=Develop;Database=BE;Uid=SA;Pwd=;"
cn.BeginTrans

rs1.CursorLocation = adUseClient '*** 增加这一句 ***
rs1.Open "select top 10 style from mstyle", _
cn, _
adOpenForwardOnly, _
adLockReadOnly, _
adCmdText
Do While Not rs1.EOF
rs2.Open "select * from mstylecolor where style='" & rs1("style").Value & "'", _
cn, _
adOpenForwardOnly, _
adLockReadOnly, _
adCmdText
Debug.Print rs2("style").Value
rs2.Close
Set rs2 = Nothing
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing

cn.RollbackTrans
cn.Close
Set cn = Nothing