dotConnect for Mailchimp Documentation
Devart.Common Namespace / DbConnectionBase Class / TransactionStateChanged Event
Example

In This Topic
TransactionStateChanged Event
In This Topic
Occurs when the state of the transaction is changed.
Syntax
'Declaration
 
Public Event TransactionStateChanged As TransactionStateChangedEventHandler
 
Example
This sample demonstrates how to use the TransactionStateChanged and TransactionStateChanging events.
MailChimpConnection connection = new MailChimpConnection(
     "api key=8b10fe893c9732d12befe0b7d846ffcb-us10;");
     connection.TransactionStateChanged += new TransactionStateChangedEventHandler(connection_TransactionStateChanged);
     connection.TransactionStateChanging += new TransactionStateChangingEventHandler(connection_TransactionStateChanging);
     connection.Open();

     // ...
MailChimpTransaction tr = connection.BeginTransaction();
     // ...
     tr.Commit();
     // ...

void connection_TransactionStateChanging(object sender, TransactionStateChangingEventArgs e) {

        if (e.Action == TransactionAction.Commit) {
                // do somthing...
        }
}

void connection_TransactionStateChanged(object sender, TransactionStateChangedEventArgs e) {
     
        if (e.Action == TransactionAction.Commit) {
                // do somthing...
        }
}
Dim connection As New MailChimpConnection( _
    "api key=8b10fe893c9732d12befe0b7d846ffcb-us10;")
AddHandler connection.TransactionStateChanged, New TransactionStateChangedEventHandler(AddressOf &_ Me.connection_TransactionStateChanged)
        AddHandler connection.TransactionStateChanging, New TransactionStateChangingEventHandler(AddressOf &_ Me.connection_TransactionStateChanging)
        connection.Open()
        '...
        Dim Transaction As MailChimpTransaction
        Transaction = connection.BeginTransaction()
        '...
        Transaction.Commit()
        '...

        Private Sub connection_TransactionStateChanged(ByVal sender As Object, ByVal e As TransactionStateChangedEventArgs)
        If (e.Action = TransactionAction.Commit) Then
                '...
        End If
End Sub

Private Sub connection_TransactionStateChanging(ByVal sender As Object, ByVal e As TransactionStateChangingEventArgs)
        If (e.Action = TransactionAction.Commit) Then
                '...
        End If
End Sub
See Also