Consulta Sql com ProgressBar1
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
Curtidas 0
Respostas
Eniorm
05/05/2006
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!
GOSTEI 0
Josimar
05/05/2006
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.
GOSTEI 0