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