Hola nuevamente, y con una duda, estoy diseñanado un sistem,a y necesito realizar una consulta a traves de un Query con ADO hacia SQL 2000, el tema es que es una consulta que dura bastante tienpo, por eso decidi realizarla en un hilo de ejecucion aparte para que el usuario pueda seguir realizando cosas en el sistema mientra se ejecuta la consulta, el tema es que cuando inicia la consulta y el hilo tiene que quedar en espera hasta que se termine dicha consulta, ésta se cancela, no se porque pero no queda esperando que se termine la consulta y se cancela todo, como si hubiera terminado de ejecutarse el hilo. Les dejo el Fuente para ver si pueden detectar el error. Gracias. Noshy.
Código Delphi
[-]public
busquedas : TThread;
procedure Tprincipal.bvebuscarClick(Sender: TObject);
busquedas := Busquedahistorico.Create(true);
busquedas.Priority := tpIdle;
busquedas.Resume;
procedure Busquedahistorico.Execute;
var
sigue : integer;
begin
try
with principal.ADOQViajesEnviados
begin
Close;
SQL.Clear;
SQL.Add('Select * from tabla ');
Open;
end;
principal.busquedas.Terminate;
principal.busquedas.Free;
except
on e: exception do
begin
showmessage(e.Message);
principal.busquedas.Terminate;
principal.busquedas.Free;
end;
end;
end;