[firebase-br] Commit ou CommitRetaining

[Luís Cosmo]

*RedDevil*,

Estou Usando o TIBOQuery e a propriedade *CommitAction* já estava aponta
para a
"caInvalidateCursor", porém esse componente não tem a propriedade
*RefreshAction*. Também tentei seguir suas instruções e não conseguir
fazer... coisa de iniciante. A verdade é que ainda estou descobrindo como
funcionam as linhas de código, se possível, gostaria que o amigo me
orientasse nesse código, o qual, eu faço a inclusão dos registros.



// Botão gravar



if Novo then
---begin
-----with QryConsulta do
-----begin
-------Close;
-------Sql.Clear;
-------Sql.Add('Select Max(ID_CIDADE) from CIDADE');
-------Open;
-------If Fields[0].IsNull = False then
----------EdID_CIDADE.Text := IntToStr(Fields[0].Value+1)
-------else
-------EdID_CIDADE.Text := '1';
-------Close;
-------Sql.Clear;
-------Sql.Add(SqlInsert);
-------Params[0].Value := EdID_CIDADE.Text;
-------Params[1].Value := EdNOME_CIDADE.Text;
-------Params[2].Value := EdID_ESTADO.Text;
-------ExecSql;
-------*DM.TransAGENDA.CommitRetaining;*
-------ShowMessage('REGISTRO GRAVADO');
-------Novo := False;
-----end;
---end
---else
----begin
-----with QryConsulta do
-------begin
-------Close;
-------Sql.Clear;
-------Sql.Add(SqlUpdate);
-------Params[0].Value := EdNOME_CIDADE.Text;
-------Params[1].Value := EdID_ESTADO.Text;
-------Params[2].Value := EdDATA_CADASTRO.Text;
-------ExecSql;
-------*DM.TransAGENDA.CommitRetaining;*
-------ShowMessage('REGISTRO ATUALIZADO');
-----end;
---end;



Obrigado pela atenção