Fehler beim suchen und auflisten in einer Datenbank

[Dragon27]

hi folgendes Problem:

Bei diesem Code bleibt immer das Programm stecken:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
begin

if combobox1.Text=''
 then checkbox1.Checked:=false;
 if combobox2.Text=''
 then checkbox2.Checked:=false;
  if combobox3.Text=''
 then checkbox3.Checked:=false;

if (checkbox1.Checked=true)and(checkbox2.Checked=true)and(checkbox3.Checked=true)
then begin
    clientdataset1.First;
while not clientdataset1.Eof do begin
if (clientdataset1.FieldByName('Kategorie').AsString=combobox1.Text) and (clientdataset1.FieldByName('MainProgramm').AsString=combobox2.Text) and (clientdataset1.FieldByName('Typ').AsString=combobox3.Text)
then begin
  Listbox6.Items.Add(clientdataset1.FieldByName('Name').AsString);
  clientdataset1.Next;
  end;
end;
end;

if (checkbox1.Checked=true)and(checkbox2.Checked=true)and(checkbox3.Checked=false)
then begin
    clientdataset1.First;
while not clientdataset1.Eof do begin
if (clientdataset1.FieldByName('Kategorie').AsString=combobox1.Text) and (clientdataset1.FieldByName('MainProgramm').AsString=combobox2.Text)
then begin
  Listbox6.Items.Add(clientdataset1.FieldByName('Name').AsString);
  clientdataset1.Next;
  end;
end;
end;

if (checkbox1.Checked=true)and(checkbox2.Checked=false)and(checkbox3.Checked=false)
then begin
    clientdataset1.First;
while not clientdataset1.Eof do begin
if (clientdataset1.FieldByName('Kategorie').AsString=combobox1.Text)
then begin
  Listbox6.Items.Add(clientdataset1.FieldByName('Name').AsString);
  clientdataset1.Next;
  end;
end;
end;

if (checkbox2.Checked=true)and(checkbox3.Checked=true)and(checkbox1.Checked=false)
then begin
    clientdataset1.First;
while not clientdataset1.Eof do begin
if  (clientdataset1.FieldByName('MainProgramm').AsString=combobox2.Text) and (clientdataset1.FieldByName('Typ').AsString=combobox3.Text)
then begin
  Listbox6.Items.Add(clientdataset1.FieldByName('Name').AsString);
  clientdataset1.Next;
  end;
end;
end;

if (checkbox1.Checked=true)and(checkbox3.Checked=true)and(checkbox2.Checked=false)
then begin
    clientdataset1.First;
while not clientdataset1.Eof do begin
if (clientdataset1.FieldByName('Kategorie').AsString=combobox1.Text) and  (clientdataset1.FieldByName('Typ').AsString=combobox3.Text)
then begin
  Listbox6.Items.Add(clientdataset1.FieldByName('Name').AsString);
  clientdataset1.Next;
  end;
end;
end;

if (checkbox2.Checked=true)and(checkbox3.Checked=false)and(checkbox1.Checked=false)
then begin
    clientdataset1.First;
while not clientdataset1.Eof do begin
if (clientdataset1.FieldByName('MainProgramm').AsString=combobox2.Text)
then begin
  Listbox6.Items.Add(clientdataset1.FieldByName('Name').AsString);
  clientdataset1.Next;
  end;
end;
end;

if (checkbox3.Checked=true)and(checkbox2.Checked=false)and(checkbox1.Checked=false)
then begin
    clientdataset1.First;
while not clientdataset1.Eof do begin
if (clientdataset1.FieldByName('Typ').AsString=combobox3.Text)
then begin
  Listbox6.Items.Add(clientdataset1.FieldByName('Name').AsString);
  clientdataset1.Next;
  end;
end;
end;

end;

Bitte helft mir ich finde den Fehler nicht :-(

Danke!

[Matze]

Hi!

Könntest du bitte den Titel ändern, damit man weiß, in welche Richtung dein Code arbeiten soll.

Und es wäre sehr hilfreich, wenn du die Delphi-Tags und nicht die Code-Tags nehmen könntest, ist so unübersichtlich ;)

[Matze]

Geht das überhaupt:

Delphi-Quellcode:

if (clientdataset1.FieldByName('Kategorie').AsString=combobox1.Text) and (clientdataset1.FieldByName('MainProgramm').AsString=combobox2.Text) and (clientdataset1.FieldByName('Typ').AsString=combobox3.Text)

[sakura]

Zitat:

Zitat von Matze

Könntest du bitte den Titel ändern, damit man weiß, in welche Richtung dein Code arbeiten soll.

Ich mache die Bitte hiermit zu einer Aufforderung :warn:

...:cat:...

[Matze]

Zitat:

Zitat von sakura

Ich mache die Bitte hiermit zu einer Aufforderung :warn:

Hab mich net getraut, wegen den roten Formularen. :mrgreen:

[Dragon27]

Sorry hoffe es ist jetzt besser *g*

Also an was könnte des jetzt bitte liegen?

Danke

[Matze]

Zitat:

Zitat von Matze

Geht das überhaupt:

Delphi-Quellcode:

if (clientdataset1.FieldByName('Kategorie').AsString=combobox1.Text) and (clientdataset1.FieldByName('MainProgramm').AsString=combobox2.Text) and (clientdataset1.FieldByName('Typ').AsString=combobox3.Text)

Ist es nicht so, dass da eine Kathegorie, so zu sagen ausgewählt wird? Meines Wissens gibt es immer nur eine Kathegorie (Spalte) die man wählen kann.

[Dragon27]

hi,

aso, also praktisch kann ich dann den Code vergessen, oder?
Habt Ihr nen Lösungsvorschlag wie ich das machen könnte?

Danke

Andy

[Matze]

Sag doch einfach mal, was nicht geht und wo der Compiler meckert. ;)

[Dragon27]

Hallo Matze,

also der Compiler zeigt mir keinen Fehler nur dass Programm stürzt ab wenn ich auf den Button Klicke hab aber die Schleifen durchgeschaut und die sind okay.

Danke