Cita:
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.