|
.
Así funciona :
cod.Text := '7';
T_Est.locate('Cod',Vararrayof([Cod.text]),[loCaseInsensitive]);
Q_Est.SQL.Text := 'Update Estab set Nombre = "XXX" where Cod =' + cod.text;
Q_Est.ExecSQL;
// Ha Quedado modificado el registro
T_Est es un TZTable
Q_Est en un TZQuery
Así no funciona :
cod.Text := '7';
T_Est.locate('Cod',Vararrayof([Cod.text]),[loCaseInsensitive]);
T_Est.edit;
T_Est.FieldByName('DescExp').asstring := 'XXX';
T_Est.post;
T_Est.applyUpdates;
T_Est.Commitupdates;
// Cuando cierras la base, y luego la abres, no ha modificado el registro
|