Binaryworld - SetCommandsTransaction - Assign a transaction to the DataAdapter's com ... [ VB.net -> ADO.net ]

' Assign the same transaction to the Update/Delete/Insert commands of all the
' OleDb/SqlAdapters passed in input
' Note: all the DataAdapters must be of the same type (OleDb or Sql)
' Note: requires Imports System.Data.OleDb and Imports System.Data.SqlClient
'
' Example: SetCommandsTransaction(tran, da1, da1)

Sub SetCommandsTransaction(ByVal tran As IDbTransaction, _
  ByVal ParamArray adapters() As IDataAdapter)
  If adapters.Length = 0 Then Return
  If TypeOf adapters(0) Is OleDbDataAdapter Then
    Dim daOledb As OleDbDataAdapter
    For Each daOledb In adapters
      If Not daOledb.UpdateCommand Is Nothing Then _
        daOledb.UpdateCommand.Transaction = tran
      If Not daOledb.InsertCommand Is Nothing Then _
        daOledb.InsertCommand.Transaction = tran
      If Not daOledb.DeleteCommand Is Nothing Then _
        daOledb.DeleteCommand.Transaction = tran
    Next
  ElseIf TypeOf adapters(0) Is SqlDataAdapter Then
    Dim daSql As SqlDataAdapter
    For Each daSql In adapters
      If Not daSql.UpdateCommand Is Nothing Then _
        daSql.UpdateCommand.Transaction = tran
      If Not daSql.InsertCommand Is Nothing Then _
        daSql.InsertCommand.Transaction = tran
      If Not daSql.DeleteCommand Is Nothing Then _
        daSql.DeleteCommand.Transaction = tran
    Next
  End If
End Sub