Delphi-Quellcode:
procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
with ADOQuery2
do begin
Close;
SQL.Text := '
SELECT sName FROM schueler WHERE sBetrieb=:id';
Parameters.ParamByName('
id').Value := AdoQuery1.FieldByName('
pbID').AsInteger;
Open;
end;
end;
Bei der Zuweisung des
SQL-Statements wird intern die Parameterliste aufgebaut. Darum ist es besser du setzt den Parameter nach dieser Zuweisung. Anbei dein etwas verbogener Code. Auf zum nächsten Versuch.
Grüße vom marabu