Цитата:
|
а есть схожая программа с таким же кодом,
|
Да пожалуйста, вот со схожим кодом:
Код:
ADOQuery1.SQL.Text := 'Update [Товары] set [КОЛ-ВО] = :Kolvo where [КОЛ-ВО]=100';
ADOQuery1.Parameters.ParamByName('Kolvo').Value := StrToIntDef(Edit1.Text, 0);
ADOQuery1.ExecSQL;
