connot create new connection because in manual or distributed transaction mode. 为什么？

[mosuo]

事务处理时会出现这个错误，去掉事务处理，就可以了。

[lilaclone]

把你加事务处理的那段代码贴出来看有什么错误

[mosuo]

有点长，里面调用了好多过程。

[yunfeng007]

把你出错的那行代码贴出来看看！

[mosuo]

Private Sub SetApproversUser(myconn As ADODB.Connection, FNo As String, iNo As String, newid As String)
Dim rs1 As ADODB.Recordset
Set rs1 = CreateObject("adodb.recordset")
Dim strSql As String
strSql = "SELECT * FROM FAU where (FAN= " & FNo & ")"
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenDynamic
rs1.Open strSql, myconn, adOpenStatic, adLockOptimistic
Do While Not rs1.EOF
strSql = " INSERT [IAN]" _
& "([INo]," _
& "[Io]," _
& "[UType]," _
& "[UNo]," _
& "[Vn]," _
& "[AResult]" _
& " ) " _
& " Values ( " _
& newid & "," _
& itemNo & "," _
& rs1("Atype") & "," _
& rs1("Ano") & "," _
& "0.1," _
& "0" _
& ")"
myconn.Execute strSql
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing
End Sub


招行这个过程时出错。

[mosuo]

第二次调用这个过程时出错。

[rgbcn]

解决