ops
fast vergessen für alle die so was mal brauchen. also bei mir geht es optimal ;

procedure TAbfrage_Form.BtnSearch1Click(Sender: TObject);
begin
Query1.SQL.Clear;
Query1.SQL.Add('Select * from lied where Titel Like ' + #39#37 + edit2.text + #37#39);
Query1.open;
Progressbar.Max:= Query1.RecordCount;
Progressbar.Position:= 0;
while not Query1.EOF do
begin
Progressbar.Position:= Progressbar.Position + 1;
Progressbar.Update;
Query1.next;
end;
end;

Wer sucht der findet im Netz. Also wie gesagt habe es probiert und geht.

patrick

Hi!

Wie hast Du das gemacht? Könnte ich evtl. auch mal gebrauchen.

MfG,
Peter

<edit>
Habe zu spät gepostet
</edit>

Moooooment mal!

Die Sache ist doch nach Query.Open schon erledigt. Danach einen ProgressBar zu machen ist doch sinnlos, oder?

MfG,
Peter

Stimmt. Es ging ja darum einen Progressbar für die Dauer der Abfrage zu machen. Ausserdem liefert RecordCount bei Interbase über IBX falsche Werte.

Gruss Lothar