Modificar un registro en Firebird

[jorosmtz]

Muchas gracias ecfisa, funcionó muy bien, aunque ajusté un poquito el código para optimizar líneas:

Código Delphi [-]
   
with DataModulePpal.IBCQueryAgenda do
      begin
        try
//          DataModulePpal.IBCConnection.StartTransaction;
          Close;
          SQL.Clear;
          SQL.Add('Update TBPRODUCTO set FECHA = :FechaNueva, HORA = :HoraNueva, ');
          SQL.Add('CLAVEPRODUCTO = :ClaveDelProducto, NOMBREPRODUCTO = :NombreDelProducto');
          SQL.Add('Where IDPRODUCTO = ' + IntToStr(NumProducto));
          ParamByName('FechaNueva').AsDate := Fecha.Date;
          ParamByName('HoraNueva').AsString := Hora.Text;
          ParamByName('ClaveDelProducto').AsString := EditClaveProducto.Text;
          ParamByName('NombreDelProducto').AsString := EditNombreProducto.Text;
          ExecSQL;
          DataModule1.IBCConnection.Commit;
          MessageDlg('Se modificó el producto con éxito',mtInformation,[mbOK],0);
        except
          DataModule1.IBCConnection.Rollback;
          MessageDlg('Hubo un error al modificar el producto, vuelva a intentarlo',mtError,[mbOK],0);
        end;
      end;

Gracias de nuevo, en verdad muy claro el ejemplo.