Итак, у нас должен быть главный класс, который создает транзакцию. И он должен создавать новую транзакцию. Это описывается в свойствах.

Внутри классу нужно получить указатель на транзакцию.

Dim context As ObjectContext
Set context = GetObjectContext

Этот класс будет родоначальником транзакции. Он будет создавать классы. Создаваемые классы должны иметь свойства наследования транзакции.

Эти классы должны создаваться в контексте транзакции.

Dim sql As ClassSQL
Dim oracle As ClassORACLE
Set sql = context.CreateInstance("ProjectTransaction.ClassSQL")
Set oracle = context.CreateInstance("ProjectTransaction.ClassORACLE")

Дальше вызываются методы. Но внимание. В этом главном классе должна быть обработка ошибок и метод, который начинает выполнение транзакций, должен возвращать результат. Давайте посмотрим весь код метода главного класса:

Public Function Method() As Boolean
On Error GoTo ErrorHandles
Dim context As ObjectContext
Dim sql As ClassSQL
Dim oracle As ClassORACLE
Set context = GetObjectContext
Set sql = context.CreateInstance("ProjectTransaction.ClassSQL")
Set oracle = context.CreateInstance("ProjectTransaction.ClassORACLE")
sql.Method
oracle.Method
Set sql = Nothing
Set oracle = Nothing
Method = True
Exit Function
ErrorHandles:
Set sql = Nothing
Set oracle = Nothing
GetObjectContext.SetAbort
Method = False
End Function

Основа здесь обработка ошибок. Если метод класса sql вызовет SetAbort, то ни классам внутри этой транзакции, ни к метода созданных объектов обратиться будет нельзя. Тут же будет ошибка. Итак, идея основана на том, что если кто-то вернет SetAbort, то к классам и функциям обращаться внутри этой транзакции не получится, если стоит обработка ошибки, то она будет генерироваться. Смотрите. Метод класса SQL сразу порождает:

Public Sub Method()
GetObjectContext.SetAbort
End Sub

И при попытке вызвать метод ORACLE тут же срабатывает обработка ошибки и метод класса возвращает FALSE. То же самое будет и при попытке создать класс, если кто-то вызвал SetAbort. Контекст транзакции блокируется. Вот и вся идея. Можно в транзакцию поместить огромное количество классов, которые последовательно обращаются друг к другу используя разные БД и методы доступа к ним. Только кто-то вернет SetAbort, как тут же нельзя будет вызвать следующий метод, это приведет к генерации ошибки и это скажет нам, что транзакция не прошла. Не нужно всякие там флаги выставлять и так далее.