(Resolvido) Problema de atualização após update

[renanbg]

Executo essa rotina para alterar o valor de determinado campo. Porém após a execução, os dados no dbgrid não são atualizados.

O que está errado?

 

    Qry := TIBQuery.Create(nil);
    try
      Qry.Database := FrmDm.dbFisio;

      Qry.SQL.Add('UPDATE BANCOS SET PRINCIPAL = :PRI');
      Qry.SQL.Add('WHERE CODIGO <> :COD');
      Qry.ParamByName('PRI').AsString := 'N';
      Qry.ParamByName('COD').AsInteger := FrmDm.qrBancosCODIGO.AsInteger;
      Qry.ExecSQL;

    finally
      FreeAndNil(Qry);
      FrmDm.trFisio.CommitRetaining;
    end;

 

[Jhonas]

qual o banco de dados que voce esta usando ?

[renanbg]

Firebird

[Jhonas]

tente assim:

Qry := TIBQuery.Create(nil);
    try
      Qry.Database := FrmDm.dbFisio;

      Qry.SQL.Add('UPDATE BANCOS SET PRINCIPAL = :PRI');
      Qry.SQL.Add('WHERE CODIGO <> :COD');
      Qry.ParamByName('PRI').AsString := 'N';
      Qry.ParamByName('COD').AsInteger := FrmDm.qrBancosCODIGO.AsInteger;
      Qry.ExecSQL;

    finally
      FrmDm.dbFisio.Refresh;
      FreeAndNil(Qry);
      FrmDm.trFisio.CommitRetaining;
    end;

OBS: Se não funcionar assim, tente fechar e abrir novamente a tabela

abraço

[renanbg]

Foi preciso fechar e abrir a tabela.

Obrigado.