Hallo,
ich trage Tätigkeitsnamen + ID's aus einer Datenbank in eine Combobox:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.Visible := False;
with qTätigkeitgruppe do
begin
Active:=True;
while not Eof do
begin
sname := FieldByName('Bezeichnung').AsString;
ComboBox1.Items.AddObject(sName, TOBject(FieldByName('ID').AsInteger));
Next;
end;
end;
end;
jedes mal wenn ich einen anderen Eintrag in der Combobox selektiere, soll er mir anhand der zugehörigen ID alle Tätigkeiten anzeigen die dieser Tätigkeitsgruppe angehören.
Code:
qReportDaten.SQL.Text := 'SELECT * FROM TaetGruppen_Detail'+
' LEFT OUTER JOIN Taetigkeiten ON TaetGruppen_Detail.ID_Taetigkeiten = Taetigkeiten.ID'+
' LEFT OUTER JOIN TaetGruppen ON TaetGruppen_Detail.ID_TaetGruppen = TaetGruppen.ID'+
' WHERE ID_TaetGruppen = Hier soll die ID aus der Combobox übergeben werden;';
Meine Frage: Wie kann ich aus einem selektierten Eintrag die dazugehörige "Datenbank" ID auslesen?