Ver Mensaje Individual
  #2  
Antiguo 28-04-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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; // saltar el primer registro
    // modificar el resto
    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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 28-04-2014 a las 07:24:51. Razón: agregar comentario
Responder Con Cita