不允许新交易 [英] New transaction is not allowed

问题描述

我的VB.net应用程序，保存功能时发生错误



transaction = roConform.BeginTransaction（）



错误：

不允许新事务，因为会话中还有其他线程运行



Code ::

 Private Sub tolSave_Click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理tolSave.Click 
调用SaveData（）
 End Sub 
 
 Private Sub SaveData（）
 Dim dsLogin As DataSet 
 Dim amount As Double 
 Dim credit As Boolean 
 Try 
 If（UserPower = 1）那么
如果SaveFlag = False那么
 
 transaction = roConform.BeginTransaction（）
 dsLogin = clsBrand.AddMember（roConform，transaction，1,0，txtSerialNo.Text，Format（dtpAdmitDate） .Value，dd / MMM / yyyy），txtAngamNo.Text，txtName.Text，txtSirname.Text，txtHouse.Text，txtP lace.Text，txtaddress.Text，txtpostoffice.Text，cmbdistrict.Text，amount，credit，txtRemarks.Text，cmbunit.Text，txtph.Text，txtmob.Text，txtnameeng.Text）
 transaction.Commit（）
 MsgBox（成功保存！）
 ElseIf SaveFlag = True然后
 transaction = roConform.BeginTransaction（）
 dsLogin = clsBrand.AddMember（roConform，transaction，2，rowid，txtSerialNo .Text，Format（dtpAdmitDate.Value，dd / MMM / yyyy），txtAngamNo.Text，txtName.Text，txtSirname.Text，txtHouse.Text，txtPlace.Text，txtaddress.Text，txtpostoffice.Text，cmbdistrict.Text， amount，credit，txtRemarks.Text，cmbunit.Text，txtph.Text，txtmob.Text，txtnameeng.Text）
 transaction.Commit（）
 MsgBox（Successfully Updated！）
 End如果
结束如果
 Catch ex As Exception 
 transaction.Rollback（）
 MsgBox（ex.Message）
结束尝试
结束子

如何解决它

解决方案

阅读错误信息。想想它意味着什么。想想它要求你做什么。你有其他线程正在运行，并且由于某种原因，这不是正常的。找到解决方案的最佳方法，将错误消息放在引号中并谷歌。

我确实谷歌这个问题，我找到了你的解决方案克里斯蒂安。谢谢！

I My VB.net application , saving function an error occurred when

transaction = roConform.BeginTransaction()

Error:
New transaction is not allowed because there are other threads running in the session

Code::

Private Sub tolSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tolSave.Click
        Call SaveData()
 End Sub

 Private Sub SaveData()
        Dim dsLogin As DataSet
        Dim amount As Double
        Dim credit As Boolean        
        Try
            If (UserPower = 1) Then
                If SaveFlag = False Then

                    transaction = roConform.BeginTransaction()
                    dsLogin = clsBrand.AddMember(roConform, transaction, 1, 0, txtSerialNo.Text, Format(dtpAdmitDate.Value, "dd/MMM/yyyy"), txtAngamNo.Text, txtName.Text, txtSirname.Text, txtHouse.Text, txtPlace.Text, txtaddress.Text, txtpostoffice.Text, cmbdistrict.Text, amount, credit, txtRemarks.Text, cmbunit.Text, txtph.Text, txtmob.Text, txtnameeng.Text)
                    transaction.Commit()
                    MsgBox("Successfully Saved !")
                ElseIf SaveFlag = True Then
                    transaction = roConform.BeginTransaction()
                    dsLogin = clsBrand.AddMember(roConform, transaction, 2, rowid, txtSerialNo.Text, Format(dtpAdmitDate.Value, "dd/MMM/yyyy"), txtAngamNo.Text, txtName.Text, txtSirname.Text, txtHouse.Text, txtPlace.Text, txtaddress.Text, txtpostoffice.Text, cmbdistrict.Text, amount, credit, txtRemarks.Text, cmbunit.Text, txtph.Text, txtmob.Text, txtnameeng.Text)
                    transaction.Commit()
                    MsgBox("Successfully Updated !")
                End If
            End If        
        Catch ex As Exception
            transaction.Rollback()
            MsgBox(ex.Message)
        End Try
    End Sub

How to resolve it

解决方案

Read the error message. Think about what it means. Think what it's asking you to do. You have other threads running, and for some reason that's not OK. Best way to find a solution, put the error message in quotes and google it.

I did google this issue and I found your solution Christian. Thanks!

这篇关于不允许新交易的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！