Hola wilcg, bienvenido a los foros de
Club Delphi
Como es costumbre con los que se inician, te invitamos a que leas nuestra
guía de estilo.
Del modo que mencionas sería:
Código Delphi
[-]
with Query do
begin
RequestLive:= True;
SQL.Text := 'SELECT * FROM FECHAS';
Open;
Next; while not Eof do
begin
Edit;
FieldByName('Fecha').AsDate:= Date;
FieldByName('hora').AsTime:= Time;
Next;
end;
Close;
end;
Otra alternativa mas eficiente pero que puede variar dependiendo de la base de datos con que estas trabajando, es usar una sentencia SQL.
No lo mencionas pero pareciera que estas usando un
TQuery (BDE) y si tenes declarado un campo auto incremental, llamémosle ID, podrías hacer por ejemplo:
Código Delphi
[-]
with Query do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE FECHAS SET FECHA = :PFECHA, HORA = :PHORA');
SQL.Add('WHERE ID > (SELECT MIN(ID) FROM FECHAS)');
ParamByName('PFECHA').AsDate:= Date;
ParamByName('PHORA').AsTime:= Time;
ExecSQL
end;
Si tu motor de base de datos es otro, comentanos y vemos como se puede implementar en él.
Saludos
