Como usar o método BeginTransaction() da classe TSQLConnection para iniciar uma nova transação com a base de dados atual

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

function BeginTransaction(): TDBXTransaction; overload;

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

procedure TFormPrincipal.Button1Click(Sender: TObject);
var
  transacao: TDBXTransaction; // adicione DBXCommon ao uses
  id_excluir: Integer; // id do cliente a ser excluído
begin
  // define o id do cliente a ser excluído
  id_excluir := 4;

  // vamos obter a transação
  transacao := SQLConnection1.BeginTransaction(TDBXIsolations.ReadCommitted);

  try
    // vamos disparar o comando SQL
    SQLDataSet1.Close;
    SQLDataSet1.CommandText := 'DELETE FROM clientes WHERE id = :id';
    // ajusta os parâmetros da query
    SQLDataSet1.Params[0].Name := 'id';
    SQLDataSet1.Params[0].Value := id_excluir;
    SQLDataSet1.ExecSQL(False);
    // vamos dar um commit na transação
    SQLConnection1.CommitFreeAndNil(transacao);
    ShowMessage('Cliente excluído com sucesso.');
  except
    on Exc: Exception do
      begin
        // houve erro? vamos dar um rollback na transação
        SQLConnection1.RollbackFreeAndNil(transacao);
        ShowMessage('Houve um erro na transação: ' + Exc.Message);
      end;
  end;
end;