CommitTrans, BeginTrans, RollBack no Visual Basic

Imagine que você tenha um processamento de diversas operações em um banco de dados e somente após a realização destes processos as alterações sejam realizadas de fato no Banco de dados.
Utilizando BeginTrans, CommitTrans e RollBack você pode executar estes processos sem problemas permitindo que o processamento das alterações só tenham efeito após uma confirmação final dada pelo usuário.

BeginTrans – Dá inicio ao processamento
CommitTrans – Conclui a transação
RollBack – Repõe a situação anterior, ou melhor, não executa a transação.

Exemplo:

Sub begintrans()

wrk.BeginTrans
With tblWmundi
Do Until .EOF
.Edit
tbltit![VencBas] = tbltit![VencBas] * 2.5
.Update
.MoveNext
Loop
If MsgBox(“Confirma Alterações ?”, vbYesNo) = vbYes Then
wrk.CommitTrans
Else
wrk.Rollback
End If
End With

End Sub