Ver Mensaje Individual
  #1  
Antiguo 23-12-2015
Gregorio Cíber Gregorio Cíber is offline
Miembro
 
Registrado: jun 2008
Posts: 99
Reputación: 19
Gregorio Cíber Va por buen camino
Barra de progreso dentro de un TpFIBQuery

Hola amigos.
Hay alguna manera de poner una barra de progreso dentro de query que borra registros de una tabla. El query sería algo así:
Código Delphi [-]
    with qry_BorrarHastaFecha do
    begin
      Close;
      sql.Clear;
      sql.Add('DELETE FROM TABLA');
      sql.Add('WHERE (FECHA <= :HASTA_FECHA);');
      ParamByName('HASTA_FECHA').AsDate := edt_HastaFecha.Date;
      ExecQuery;
    end;

El texto SQL iría dentro del componente. Lo pongo así para que se pueda ver lo que hace.
La idea es que aparezca una barra de progreso mientras se están borrando los registros, si es que eso es posible.

Gracias de antemano y Felices Fiestas a todos.
Responder Con Cita