[firebase-br] Commit

[Nereu Kock]

Sou principiante em firebird. Estou usando a versão 2.51 e delphi 2010.
Quando dou um insert, delete ou Update em Sql o efeito não é imediato, o
que fazer? Segue o exemplo do que uso.



procedure InsUpDel(Str: String);
 var
  SQLQuer : TSQLQuery;

begin
  SQLQuer:=TSQLQuery.Create(nil);

  SQLQuer.SQLConnection:= DMAca.SQLCon;
  Trans.TransactionID := 1;
  Trans.IsolationLevel := xilREPEATABLEREAD;
  DMAca.SQLCon.BeginTransaction;
   SQLQuer.Close;
  SQLQuer.CommandText:= Str;
   try
    SQLQuer.ExecSQL;
    DMAca.SQLCon.CommitFreeAndNil(Tr);

  except
    DMAca.SQLCon.RollbackFreeAndNil(Tr);
  end;

   DMAca.SQLCon.Connected := True;
   SQLQuer.Close;
  SQLQuer.Free;
end;

//**********************************

A string enviada é por exemplo:

'Delete from Alunos';

[]s