Inhalt von Combobox2 ahängig von Auswahl in CB1

[Kruemel2oo2]

Hio

Sorry für den Titel aber wusste nicht was ich da nehmen sollte kann ja geändert werden von den Moderatoren.

Also ich habe 2 Comboboxen. Ich möchte nun das, wenn ich in der einen Combobox etwas wähle das denn in der anderen Combobox nur die dinge angezeigt werden welche in der Auswahl als diesen Bereich das haben hört sich komisch an deswegen geb ich jetzt mal ein Beispiel: ich wähle bei der ersten Combobox Actionfilme aus und nun möchte ich in der anderen Combobox nur die Filme sehn welche als Kategory Actionfilm hat.
Mein Problem besteht jetzt darin das in der Datenbank nicht nur actionfilm drin steht sondern noch was dahinter. Wie kann ich das machen das das dahinter net berücksichtigt wird.

also hier mal mein Quelltext.

Delphi-Quellcode:

  
Kategory := CBKategory.Text;

  with Query1 do
  begin
    close;
    SQL.Clear;
    Sql.Add('Select Name from table where kategory ="'+Kategory+'"');
    open;
    while not Eof do
    begin
      CBName.Items.Add(fieldbyname('Name').AsString);
      next;
    end;
  end;

könnte mir da mal bitte einer helfen?

gruß Kruemel

[Sharky]

Hai Kruemel2002,

zum Titel. Es wäre z.B. möglich zu sagen (Inhalt von Combobox2 ahängig von Auswahl in CB1).

Nun zur Frage:
Du hast also eine Tabelle mit den Kategorien und eine mit den Filmen. Ich gehe mal davon aus das bei den Filmen die ID der Kategorie hinterlegt ist?!.
In diesem Fall könntest Du ganz einfach mit einer DBLookUpCombobox arbeiten. Wenn nun bei der ersten etwas gehält wurde kannst Du über die Eigenschaft KeyValue die ID ermitteln und diese als Filter für deine zweite Abfrage (zweite ComboBox) verwenden.

[Kruemel2oo2]

hmm ok das könnte bestimmt gehn aber ich würde es schon gerne so versuchen wie ich das schon angefangen habe. Ich mein dafür müsste es doch eigentlich auch ne lösung geben oder nicht?

[Sharky]

Dann müsste es mit einer "Like-Abfrage" gehen.

Delphi-Quellcode:

  with Query1 do 
  begin 
    close; 
    SQL.Clear; 
    Sql.Add('SELECT Name FROM table WHERE (kategory LIKE :kat)'); 
    ParamCheck := True;
    Params.ParamByName ('kat').AsString := Kategory + '%';
    open; 
    while not Eof do 
    begin 
      CBName.Items.Add(fieldbyname('Name').AsString); 
      next; 
    end; 
  end;

[Kruemel2oo2]

thx es funktioniert. Hab einer noch ein Prob in welchen Ereigniss sollte ich das am besten schreiben hatte es vorher bei Formcreate aba das ist geht ja denn net zumindestens nach dem ändern!

[ibp]

im einem ereignis von der combobox, wo du die kategorie wählst....

[Sharky]

Zitat von Kruemel2oo2:

...in welchen Ereigniss sollte ich das am besten schreiben ...

Ich würde es im OnClick der Combobox1 machen.

[Kruemel2oo2]

alles klar noch mal danke