事务错误提交（）时，选择内幕交易

Question

已被执行我在交易中的桌面应用程序的提交收到此错误：

这OleDbTransaction已完成;它不再可用。

我发现有类似的错误的其他职位表明，如果它需要很长时间或包含大量的数据，可能会发生这种情况。这里不是这种情况。日志记录告诉我，从开始到提交需要140毫秒，并且在事务内部执行大约10条命令。

它使用的是Oracle数据库。

这个类是我的数据库类的简化版本：

Class MyDatabase 
Private mConnection AS OleDbConnection 
Private mTransaction AS OleDbTransaction 

Function Value(ByVal piSql As String) As Integer 
    Try 
    Dim lCommand As OleDbCommand 
    lCommand = New OleDbCommand(piSql, mConnection) 
    If mTransaction IsNot Nothing Then 
     lCommand.Transaction = mTransaction 
    End If 
    Dim lValue = lCommand.ExecuteScalar() 
    If Not lValue Is Nothing Then 
     WriteLog(lValue.ToString(), 3, "Value Returned") 
     Return lValue.ToString() 
    Else 
     WriteLog("<null>", 3, "Value Returned (null)") 
     Return "" 
    End If 
    Catch ex As Exception 
     WriteLog(ex.Message) 
    End Try 
End Function 
Function ExecuteSql(ByVal piSql As String) As Integer 
    Try 
    Dim lCommand As OleDbCommand 
    lCommand = New OleDbCommand(piSql, mConnection) 
    If mTransaction IsNot Nothing Then 
     lCommand.Transaction = mTransaction 
    End If 
    Return lCommand.ExecuteNonQuery() 
    Catch ex As Exception 
    WriteLog(ex.Message) 
    End Try 
End Function 

Public Sub BeginTransaction() 
    Try 
    mTransaction = mConnection.BeginTransaction() 
    Catch ex As Exception 
    WriteLog(ex.Message) 
    End Try 
End Sub 

Public Sub Commit() 
    If Not mTransaction Is Nothing Then 
    Try 
     mTransaction.Commit() 
    Catch ex As Exception 
     WriteLog(ex.Message) 
    End Try 
    mTransaction.Dispose() 
    mTransaction = Nothing 
    End If 
End Sub 

Public Sub Rollback() 
    If Not mTransaction Is Nothing Then 
    Try 
     mTransaction.Rollback() 
    Catch ex As Exception 
     WriteLog(ex.Message) 
    End Try 
    mTransaction.Dispose() 
    mTransaction = Nothing 
    End If 
End Sub 

End Class 

调用代码（简化）：

mDatabase.BeginTransaction() 
mOrderId = mDatabase.Value("select max(order_id) from ler_order") 
mDatabase.ExecuteSql("insert into ler_order (order_id,status,message,plotter,reference,paper_size,orientation,plot_scale,format,usr,email,no_of_copies,date_time,uservar1,uservar2,uservar3,ell,nll,eur,nur,coord_type,graveforespoergselanmodningid,graveforespoergselnr,oprettetdato,aendretdato,graveartnavn,andengraveart,lek_virksomhed,lek_navn,lek_adresse,lek_postnr,lek_postdistrikt,lek_land,lek_telefon,lek_mobiltelefon,lek_telefax,lek_email,ga_navn,ga_adresse,ga_postnr,ga_postdistrikt,ga_land,ga_telefon,ga_mobiltelefon,ga_telefax,ga_email,gak_id,gak_virksomhed,gak_navn,gak_adresse,gak_postnr,gak_postdistrikt,gak_land,gak_telefon,gak_mobiltelefon,gak_telefax,gak_email,emailafsendt,konverteringsstatus) values (101633,0,null,'LER','10d6d8bc-b9b2-44bb-84bf-ceca42a0970a',null,0,0,null,null,null,0,'09-05-2011 13:25:33',null,null,'VAND',-259954.967,145092.123,-259802.657,145147.225,1,'10d6d8bc-b9b2-44bb-84bf-ceca42a0970a',425950,'09-05-2011 13:20:27','09-05-2011 13:20:58','Gravemaskine',null,null,'Ledningsoplysning','Kokbjerg',null,'Kolding',null,'59 23 44 55',null,null,'info@mail.com','FORSYNINGSLEDNINGER','vej 12','1700','Nyberg','NO','21491697',null,null,'mail@info.com','051055f4-ea2a-4cb3-a016-6f6477e6a342','MUNCK FORSYNINGSLEDNINGER A/S','Jon Andersen','vej 38 B','7100','Vejle','NO',null,'23681515','76409220','mail@info.com','09-05-2011 13:20:58','OK')") 
mDatabase.ExecuteSql("delete from ler_order_coord where order_id = 101633") 
mDatabase.ExecuteSql("insert into ler_order_coord (order_id,polygon_no,seq_no,east,north) values (101633,1,1,-259954.967,145120.599)") 
mDatabase.ExecuteSql("insert into ler_order_coord (order_id,polygon_no,seq_no,east,north) values (101633,1,2,-259951.933,145092.123)") 
mDatabase.ExecuteSql("insert into ler_order_coord (order_id,polygon_no,seq_no,east,north) values (101633,1,3,-259802.657,145111.956)") 

mDatabase.Commit() 'This is where the error occurs 

编辑： 因为我是如何解决这个见my answer。
我对此有一个后续问题：是否不允许在这样的事务内部运行select？或者可以通过在特定的隔离级别运行事务来完成（我发现BeginTransaction方法有一个可选的参数来做到这一点）？或者其他一些溶剂..？就我而言，在事务启动之前移动select来运行并不是问题，但是如果您需要运行必须在事务内部运行的select，那该怎么办？

Answer 1

我找到了答案另一个问题，这让我前进的道路： How to check if Dotnet transaction is rolled back?

我实现了TransactionScope会对我的交易更好的控制，我注意到在日志中说，一个新的错误消息：

事务管理器不可用。 （异常来自HRESULT：0x8004D01B）

这个错误被触发的select语句：

mOrderId = mDatabase.Value("select max(order_id) from ler_order") 

我搬到选择到交易开始之前，而现在它的作品！

编辑：
我发现，是什么引发这种错误可能不会一直使用TransactionScope，但我试图设置lCommand.Transaction = mTransaction上的选择命令。当命令不是动作命令时，这显然是不允许的。然而，这不是原始问题，因为在我尝试在select命令上设置活动事务之前，Commit上的错误在那里。这只是我试图修复它的方法而已。