[firebase-br] Firebird Com Firedac

Fabio Nascimento fhpnascimento em gmail.com
Ter Out 28 21:07:05 -03 2014


Bom aqui vai um exemplo de como eu uso o ADQuery com CachedUpdates = True,
a diferença nos nomes é devido a versão do XE, por isso no seu chama
FDQuery, mas o funcionamento é o mesmo, sendo conexao um  TADConnection e
qry_log_erros um TADQuery:

    conexao.StartTransaction;

    qry_log_erros.Close;
    qry_log_erros.Open(select_null('log_erros','id_log_erro'));
    qry_log_erros.Insert;
    qry_log_errosINCLUIDO_POR.AsInteger := usuario_logado.id;
    qry_log_erros.Post;

    if qry_log_erros.ApplyUpdates(0) = 0 then
      conexao.Commit
    else begin
      conexao.Rollback;
      qry_log_erros.CancelUpdates;
      Application.MessageBox('Não foi possível arquivar o log de
erros!','Erro',MB_OK+MB_ICONERROR);
    end;

    qry_log_erros.Close;


Fábio



Mais detalhes sobre a lista de discussão lista