Modificar un registro en Firebird

[ecfisa]

Empezado por jorosmtz

que cuando haga el "ExecSQL" se actualicen todos los datos de un solo jalón, como en el ejemplo que puse

Hola Javier.

El equivalente al ejemplo que pusiste pero realizando una modificación, sería:

Código Delphi [-]
  with IBQuery do
  begin
    try
      Close; 
      SQL.Clear;
      SQL.Add('UPDATE TBPRODUCTO SET ');
      SQL.Add('FECHA = :FECHA,');
      SQL.Add('HORA = :HORA,');
      SQL.Add('CLAVEPRODUCTO = :CLAVEPRODUCTO,');
      SQL.Add('NOMBREPRODUCTO = :NOMBREPRODUCTO ');
      SQL.Add('WHERE CLAVEPRODUCTO = :OLD_CLAVEPRODUCTO');
      ParamByName('FECHA').AsDateTime:= Fecha.Date;
      ParamByName('HORA').AsString:= Hora.Text;
      ParamByName('CLAVEPRODUCTO').AsString:= EditClaveProducto.Text;
      ParamByName('NOMBREPRODUCTO').AsDateTime:= EditNombreProducto.Text;
      ParamByName('OLD_CLAVEPRODUCTO').AsString:= EditClaveProducto.Text; 
      ExecSQL;
      ...
  end;

Saludos.