Einzelnen Beitrag anzeigen

barnti

Registriert seit: 15. Aug 2003
Ort: Mal hier mal da...
689 Beiträge
 
Delphi 7 Enterprise
 
#11

Re: Fehler beim suchen und auflisten in einer Datenbank

  Alt 12. Feb 2004, 13:57
Hi,

sieht nach Endlosschleife aus...

Wenn die Bedingung nicht erfüllt ist, wird next nicht aufgerufen. Daraus ergibt sich dann immer wieder die selbe Bedingung...

Nimm das Dataset.next da weg und setze es so:

Delphi-Quellcode:
while not clientdataset1.Eof do begin
if (clientdataset1.FieldByName('Typ').AsString=combobox3.Text)
then begin
  Listbox6.Items.Add(clientdataset1.FieldByName('Name').AsString);
  end;
clientdataset1.Next;
end;

Könnt es das vielleicht sein?

Gruß,

Barnti
  Mit Zitat antworten Zitat