Looking for DAO CommitTrans Example

[polina]

Please if anybody has an example of the transaction using DAO, share it with me.

I am copying two huge tables and want to be able to rollback the Delete or Insert statements in case something happens during the process of Inserting or Deleting.

Please help

Thanks

 

[llkhoutx]

dim wsp as workspace

set wsp=DBEngine.Workspaces(0)

'start transaction
wsp.BeginTrans

- your code here

'Transaction finished
if YourConditionSatisfied = true then
wsp.CommitTrans
else
wsp.Rollback
end

- your code continued