HI,
Ich habe in einer listbox verschiedene Einträge,
per klick soll dann die dazugehörige ID rausgesucht werden und im dbgrid die dazugehöirgen beiträge angezeigt werden.
ICh bekomme das nicht ganz hin, wäre spitze wenn ihr helfen könntet
hier mein Code:
Delphi-Quellcode:
for i:= 0 to LB_id.Items.Count -1 Do
Begin
if LB_id.Selected[i] then
begin
x:=LB_id.Items[i];
{
Q_gr.Close;
Q_gr.SQL.Clear;
Q_gr.SQL.Add('Select * FROM gruppe.db WHERE Gruppe=:x');
Q_gr.Params.ParamByName('x').Value:= x;
Q_gr.Prepared:= True;
Q_gr.ExecSQL;
}
p:=Q_gr.Fieldbyname('ID').AsInteger;
Q_vertrag.Close;
Q_vertrag.SQL.Clear;
Q_vertrag.SQL.Add('Select * FROM vertrag.db WHERE id =:p');
Q_vertrag.Params.ParamByName('p').AsFloat:= p;
Q_vertrag.Prepared:= True;
Q_vertrag.ExecSQL;
Q_vertrag.Active:=true;
end;
end;
end;
Wenn ich die Klammern weglasse, dann kommt ein zugriffsfehler und wenn ich sie lasse, dann git er immer die letzte ID wieder. Jm. ne Ahnung?
THx,
Plautzer