不能手动或分布事务方式下创建新的连接

2013-06-20 03:23:37 441 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

22、Camunda 补偿事件、事务子流程、分布式事务一致性 Camunda 补偿事件、事务子流程、分布式事务一致性补偿事件 Compensation Event事务子流程事务子流程如果没有暂停点事务子流程中补偿事件子流程不会触发Camunda 如何保证分布式事务一致性错误事件+补偿事件就可以完成事务一致性，为什么还需要有个事务子流程？参考资料补偿事件 Compensation Event 1、按照补偿事件的定义，补偿事件只会在他标识的task成功执行完毕之后才有可能被触发； 2、如果他标识的task出现异常，会触发边界异常中断事件，这个补偿事件不会触发(Task 阅读详情

代码挺多,简单概括如下:
采用事务,如果把事务语句去掉,程序可以执行,但是
加上事务就出现:"不能手动或分布事务方式下创建新的连接" 的错误
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset
Dim rs5 As New ADODB.Recordset

cnn.ConnectionString = "Provider=SQLOLEDB;" _
& "server=127.0.0.1;" _
& "User ID=sa;" _
& "Password =qwe;" _
& "DNS=power_mis;" _
& "Initial Catalog =cpk"
cnn.Open
On Error GoTo err_proc
cnn.BeginTrans
sql = "select * from T1" "
rs.Open sql, cnn, 3, 2
SQL1 = "select * from T2"
rs1.Open SQL1, cnn, 3, 2
SQL2 = "select * from T3"
rs2.Open SQL2, cnn, 3, 2
SQL3 = "select * from T3"
rs3.Open SQL3, cnn, 3, 2
'下面是判断
if rs.RecordCount =0 then
.....
else
if rs1.RecordCount =0 then
..........
else
if rs2.RecordCount=0 then
......
else
if rs3.RecordCount =0 then
.......
else

sql4="update T5 set ...."
cnn.Execute sql4
sql5="update T6 set ...."
cnn.Execute sql5
sql6="insert into....."
cnn.Execute sql6
cnn.CommitTrans
rs.Close
rs1.Close
rs2.Close
rs3.Close
Set rs = Nothing
Set rs1 = Nothing
Set rs2 = Nothing
Set rs3 = Nothing
cnn.Close
Set cnn = Nothing
exit Sub
end if
end if
end if
end if
cnn.RollbackTrans
MsgBox Err.Description
MsgBox "出现错误保存失败!,请重新操作", 48, "提示"
Exit Sub

...全文