Modificar un registro en Firebird

[jorosmtz]

Buen día, mi pregunta es debido a que puedo hacer una inserción masiva:

Código Delphi [-]
  With DataModule1.IBCQuery1 do
    begin
      try
        Close;
        SQL.Clear;
        SQL.Add('Insert into TBPRODUCTO (FECHA, HORA, CLAVEPRODUCTO, NOMBREPRODUCTO) ');
        SQL.Add('Values (:FechaNueva, :HoraNueva, :ClaveDelProducto, :NombreDelProducto) ');
        ParamByName('FechaNueva').AsDate := Fecha.Date; //es un TDateTimePicker
        ParamByName('HoraNueva').AsString := Hora.Text; //es una edit
        ParamByName('ClaveDelProducto').AsString := EditClaveProducto.Text;
        ParamByName('NombreDelProducto').AsString := EditNombreProducto.Text;
        ExecSQL;
        DataModule1.IBCConnection.Commit;
        MessageDlg('Se agregó nuevo producto con éxito',mtInformation,[mbOK],0);
      except
         DataModule1.IBCConnection.Rollback;
         MessageDlg('Hubo un error al agregar el nuevo producto',mtInformation,[mbOK],0);
      end;
    end;

Ok, ahora mi pregunta es, ¿como puedo hacer para hacer una actualización masiva?

P.D. Estoy incursionando en "Firebird-Sentencias SQL", es por eso que les pregunto. Al hacer búsquedas en la web (incluyendo aquí) lo que veo es como hacer "update" registro por registro, pero me gustaría hacer un "update" masivo, que cuando haga el "ExecSQL" se actualicen todos los datos de un solo jalón, como en el ejemplo que puse, donde hago una inserción masiva.

Gracias de antemano.

[jorosmtz]

Olvide comentar, estoy usando Firebird 2.5

[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.

[jorosmtz]

Muchas gracias ecfisa, funcionó muy bien, aunque ajusté un poquito el código para optimizar líneas:

Código Delphi [-]
   
with DataModulePpal.IBCQueryAgenda do
      begin
        try
//          DataModulePpal.IBCConnection.StartTransaction;
          Close;
          SQL.Clear;
          SQL.Add('Update TBPRODUCTO set FECHA = :FechaNueva, HORA = :HoraNueva, ');
          SQL.Add('CLAVEPRODUCTO = :ClaveDelProducto, NOMBREPRODUCTO = :NombreDelProducto');
          SQL.Add('Where IDPRODUCTO = ' + IntToStr(NumProducto));
          ParamByName('FechaNueva').AsDate := Fecha.Date;
          ParamByName('HoraNueva').AsString := Hora.Text;
          ParamByName('ClaveDelProducto').AsString := EditClaveProducto.Text;
          ParamByName('NombreDelProducto').AsString := EditNombreProducto.Text;
          ExecSQL;
          DataModule1.IBCConnection.Commit;
          MessageDlg('Se modificó el producto con éxito',mtInformation,[mbOK],0);
        except
          DataModule1.IBCConnection.Rollback;
          MessageDlg('Hubo un error al modificar el producto, vuelva a intentarlo',mtError,[mbOK],0);
        end;
      end;

Gracias de nuevo, en verdad muy claro el ejemplo.

[[Chris]]

Que bueno que ecfisa ya te halla solucionado tu problema. Solo quiero hacerte una aclaración. Realmente no estás haciendo inserciones o actualizaciones masivas. Cuando se dice hacer una acción masiva, se refiere a por ejemplo insertar o actualizar más de un registro a la vez con una sola consulta SQL. Solo te lo quiero aclarar porque quedé un poco confundido con el título y el código que nos proporcionaste.

Saludos,
Chris

[jorosmtz]

Muchas gracias Chris, ahora entiendo un poco más eso. ¿hay alguna forma de cambiar el título del tema? Si es así, ¿podrían ayudarme a cambiarlo?

Gracias de nuevo por la aclaración.

[ecfisa]

Empezado por jorosmtz

¿hay alguna forma de cambiar el título del tema? Si es así, ¿podrían ayudarme a cambiarlo?

Con mucho gusto. Decime que título deseas ponerle y me encargo de modificarlo.

Un saludo.

[jorosmtz]

Muy amable. Sería "Update en Firebird" o algo así, solo que sea alusivo a la pregunta que hice.

Gracias de nuevo, lo del título equivocado se debe a que soy nuevo en esto de los RDBMS.