Tiempo de espera.-

[Neftali [Germán.Estévez]]

Si el problema es que la consulta tarda mucho, no creo que se solucione con componentes de conexión; De todas formas yo optaría:

1º) Como primera opción intentar reducir el tiempo de la consulta; Revisar los índices que tienes creados para optimizar, intentar crear un Stored Procedure que te realice la misma consulta,...

2º) Tema aplicación; No se los componentes que estás utilizando, se que hay algunos que permiten ejecutar consultas en modo asíncrono; Revisa si los que utilizas poseen esa opción. Con esto conseguirás que el control vuelva al programa mientras se lanza la consulta
y se recuperan los datos.

[tefots]

tambien puedes crear un thread
y en el execute del thread realizar la consulta

eso si , se recomienda que el thread tenga su propio tibdatabase y su tibtransaction.

[[duilioisola]]

Podrías poner un TTimer y una variable global que tenga la hora en que se inició el select.

Poner el Timer a 1 segundo.

En el procedimiento que ejecuta select, activar el timer.

Código Delphi [-]
[...]
Tiempo := Now;
Timer1.Enabled := True;
Table.Open;
[...]

OnTimer poner algo asi:

Código Delphi [-]
begin
   ProgressBar.StepIt;
  Application.ProcessMessage;
end;

o

Código Delphi [-]
begin
   LabelTiempo.Caption := 'Tiempo transcurrido: '+DateTimeToStr(Now-Tiempo);
  Application.ProcessMessage;
end;

[BuenaOnda]

lo que dice duilioisola es lo que estoy haciendo, pero la consulta , al ejecutarse, no permite que se refresque el timer, eso es lo que busco solo poder refrescar el timer, para mostrar el tiempo transcurrido..muchas gracias por su ayuda compañeros..

[[duilioisola]]

Puedes poner el código que tienes dentro de OnTimer, para poder ver porqué no refresca el timer.
Quizás te podamos ayudar si vemos un error o una omisión o ... quién sabe qué.

[boreg]

Saludos, supongo que lo que hace falta es usar el metodo refresh del formulario (Formulario.refresh que redibuja el formulario completo con el OnTimer, es solo una suposicion la verdad es que me estoy iniciando en la programacion con delphi y no le se mucho al respecto.
Espero sea de ayuda SUERTE!!!!!

[BuenaOnda]

Hola...
Este es el Código del Timer..

Código Delphi [-]
procedure TfrmMontosFacturadosPorFamilia.Timer1Timer(Sender: TObject);
begin
     Application.ProcessMessages;
     Tiempo:=Tiempo + 0.00001;
     lblTiempo.Caption:=FormatDateTime('hh:nn:ss',Tiempo);
     lblTiempo.Refresh;
     Application.ProcessMessages;
end;

Gracias por sus respuestas compañeros..