[VB2005] Transazioni

Class A
  Sub DoSomthing()
  End Sub
End Class

Class B
  Sub DoSomthing()
  End Sub
End Class

Class MyClass
  Sub Main
    Dim classA As A
    Dim classB As B

    'Volevo mettere in transazione queste 2 chiamate
    classA.DoSomeThing
    classB.DoSomeThing
    'Se fallisce il metodo della classe B devo fare il rollback anche per la classe A
  End Sub
End Class

'interfaccia comune a tutte le classi che devono eseguire qualcosa
interface Exec
      function Exec() as boolean
      function RollBack() as boolean
end interface

' Alcune classi che implementano i due metodi
class A
      implements InterfaceExec
      function Exec
            // Codice da eseguire
            if OK return true
            else return false
      end sub

      sub RollBack
         // Codice di rollback
      end sub
 
end class

class B
      implements InterfaceExec
      function Exec
            // Codice da eseguire
            if OK return true
            else return false
      end sub

      sub RollBack
         // Codice di rollback
      end sub
 
end class

class Master
                 public ToExec as new ArrayList
                 funtion Execute()
                        dim i as integer
                        for i = 0 to toExec.count -1
                           if not toExec(i).Exec then
                               RollBack(i)
                               exit function
                           end if
                        next i
                 end function
                   // esegue il rollback delle i classi precedenti
                 function RollBack(i as integer)
                   for j = 0 to i
                             ToExec(j).RollBack
                   next j
                 end function

end class

class pgm()

        sub Main()
          dim lavoro1 as new A
          dim lavoro2 as new B
          dim m as new Master
          m.ToExec.add(lavoro1)
          m.toExec.add(lavoro2)
          m.Execute


        end sub
end class