Fórum Consulta Sql com ProgressBar1 #320720
05/05/2006
0
Olá a todos
Tem como colocar um ProgressBar1 em uma consulta Sql, ou algo parecido.
Tem como colocar um ProgressBar1 em uma consulta Sql, ou algo parecido.
Zlink
Curtir tópico
+ 0
Responder
Posts
06/05/2006
Eniorm
da uma pesquisada no forum q isso ja foi discutido muitas vezes!
Talvez vc ache umas dicas sobre isso!
Talvez vc ache umas dicas sobre isso!
Responder
Gostei + 0
06/05/2006
Josimar
Tente assim:
With Query1 do
begin
Active :=False;
SQL.Clear;
SQL.ADD(´SELECT * FROM tabela where campo = criterios´)
Active :=True;
First;
end;
ProgressBar1.Visible :=True;
ProgressBar1.Position :=0;
ProgressBar1.Max :=Query1.RecordCount;
While NOT Query1.EOF do
begin
ProgressBar1.Position :=ProgressBar1.Position + 1;
Query1.Next;
end;
Acho que te ajuda.
With Query1 do
begin
Active :=False;
SQL.Clear;
SQL.ADD(´SELECT * FROM tabela where campo = criterios´)
Active :=True;
First;
end;
ProgressBar1.Visible :=True;
ProgressBar1.Position :=0;
ProgressBar1.Max :=Query1.RecordCount;
While NOT Query1.EOF do
begin
ProgressBar1.Position :=ProgressBar1.Position + 1;
Query1.Next;
end;
Acho que te ajuda.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)