Цитата:
|
Сообщение от lmikle
Код:
SELECT * FROM Ustroystwa
WHERE ID = :ID
В коде используешь так:
Код:
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.ParamByName['ID'].AsInteger := KopyIDUstr;
ADOQuery1.Open;
DataSource1.DataSet:=ADOQuery1;
end;
|
Вы были почти правы, задается через Parameters,
Код:
ADOQuery1.Parameters.ParamByName['ID'].AsInteger:=KopyIDUstr;
однако выкидывает теперь следующую ошибку:
Код:
[Ошибка] Unit2.pas(62): Not enough actual parameters