Fórum Como usar o ReadCommitted??? #44252

function SalvarDados;
const c_SQL_Default : String = ´UPDATE TABELA SET CODIGO = :PCODIGO WHERE NOME = :PNOME´;
var  Qry_Aux : TIB_Query;
begin
  // instanciando
  Qry_Aux := TIB_Query.Create(Nil);     
  Qry_Aux.Transaction := TIB_TransactionDefault;
  
  TIB_TransactionDefault.StartTransaction;
  try
    try
      Qry_Aux.SQL.Add(c_SQL_Default);
      Qry_Aux.ParamByName(´PCODIGO´).AsInteger := 87
      Qry_Aux.ParamByName(´PNOME´).AsInteger := ´Java is the future!´;
      Qry_Aux.ExercSQL;

      TIB_TransactionDefault.CommitRetaing;

      // existe mais dois outros métodos que são agregados a eventos, mais não estou muito bem lembrado
      // é neste momento que deverá ser realizado um refresh, mas não em uma Query ou correspondente    
      TIB_TransactionDefault.Refresh;

    except
      TIB_TransactionDefault.RollbackRetaing;
    end;
  finally
    Qry_Aux.Free;
  end;
end;