VB.Net – SQL Transaktion einleiten mit BeginTransaction()

Transaktionen bieten die Möglichkeit, eine Reihe von Datenbankänderungen in einem logischen Vorgang zu gruppieren. Nachdem Änderungen an der Datenbank vorgenommen wurden, kann für diese Änderungen als Ganzes ein Commit ausgeführt oder sie können als Ganzes abgebrochen werden. Microsoft SQL Server unterstützt Transaktionen. Sie können Transaktionen auf unterschiedliche Weisen verwenden. Hier stelle ich Ihnen die Vorgehensweise in VB.Net vor.

So wird es gemacht:

    '============================================
    ' VB.NET Beispiel in Visual Basic .Net
    ' © wilfried.bitz@bridgesolution.de
    '============================================
 
    Public Function SQL_TRANS_Start( _
        ByRef mySqlCon As SqlConnection, _
        ByRef mySqlTrans As SqlTransaction, _
        ByRef mySqlCom As SqlCommand, _
        ByVal myLP As LP_Structure) As Boolean
 
        Dim strProzedur As String = "SQL_Transaction_Start"
        SQL_TRANS_Start = Nothing
 
        Try
 
            '1.
            mySqlCon = _
                SQL_ConnectionInit(myLP, True)
            '2.
            mySqlCom = mySqlCon.CreateCommand()
            '3.
            mySqlTrans = mySqlCon.BeginTransaction("TEST")
            '4.
            mySqlCom.Connection = mySqlCon
            mySqlCom.Transaction = mySqlTrans
 
            SQL_TRANS_Start = True
 
        Catch ex As Exception
            ErrorHandler( _
                    ex, mStrModul, strProzedur, "", gLNG_ErrorMessageId)
 
        End Try
 
 
    End Function

Einleiten der Transaktion:

    '============================================
    ' VB.NET Beispiel in Visual Basic .Net
    ' © wilfried.bitz@bridgesolution.de
    '============================================
 
               '================================
                'START ##########################
                '================================
                'SQL Transaktion einleiten
                Dim blnRollBack As Boolean
                Dim mySqlCon As SqlConnection = Nothing
                Dim mySqlTrans As SqlTransaction = Nothing
                Dim mySqlCom As SqlCommand = Nothing
                Dim blnTransOK As Boolean = _
                    SQL_TRANS_Start( _
                        mySqlCon, mySqlTrans, _
                        mySqlCom, gLP)
                If blnTransOK Then
                End If
                '================================

SQL Transaktion abschließen:

 
     'Änderungen verwerfen
     mySqlTrans.Rollback()
 
     'Änderungen speichern
     mySqlTrans.Commit()

Spendierst du mir eine Tasse Kaffee? Ich würd mich riesig freuen. DANKE !! 🙂


Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.