Progress bar con query

[Paulao]

He buscado el tema, pero me dice siempre que no ha tema. La pregunta es: Como hago para poner una progressBar o TGauge mientras una query es ejecutada? Gracias a todos!!

[ContraVeneno]

¿cómo te conectas a la base de datos?

Si estas utilizando ADO, un TADOQuery por ejemplo, puedes utilizar el evento OnFetchProgress para actualizar tu barra.

La otra opción es utilizar hilos de ejecución (TThread)

[amadis]

Como no sabes cuanto va a demorar en cargar el contenido
Puedes poner un Ttimer cada 1 seg que incremente en 1 (hasta 100 y luego de 1 a 100) el progreso del objeto que uses.

Ese lo activarias en la linea anterior a la que activa el Tquery y pondrías visible el PrograssBar

Y en la linea siguiente (que se ejecuta tras terminar el Tquery) desactivas el Ttimer y ocultas el TprogressBar.

Espero haber ayudado

[Cheerpipe]

Cuando las consultas son rapidas normalmente no utilizo progressbar, en cuambio cuando son consultas gordas, ejecuto la consulta desde un hilo independiente del programa y muestro una pequeña ventana modal sin borde con un gif de progreso circular indicando que la operacion puede tardar unos segundos.

Es importante que bloquees el resto de la aplicacion para no ejecutar por error una segunda consulta a la DB desde la misma aplicacion, de forma paralela a la actual en ejecucion.

Esto lo hago creando y mostrando el modal justo despues de la linea de arranque del hilo de ejecucion de la consulta, luego al terminar la consulta envio un mensaje al formulario modal, y con ello lo cierro.

[ciudad54]

He tratado de utilizar el evento FetchProgress pero no me funciona...

Algun ejemplo en concreto que puedan mostrar?

[ciudad54]

Código Delphi [-]
with ADOQuery1 do
begin
SQL.Clear;
SQL.Add('select * from Tabla1');
ExecuteOptions := [eoAsyncFetch];
Open;
end;

En el Evento OnFetchProgress del ADOQuery:

ProgressBar1.Max := MaxProgress;
ProgressBar1.Position := Progress;
Application.ProcessMessages;