не выполняется запрос

[Deeller]

здраствуйте, у меня база на акссе подключена через ADO.
имееться такой фрагмент кода:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
p:string;
begin
ADOCommand1.CommandText:= 'UPDATE Расход INNER JOIN Материалы ON Расход.код_материала  = Материалы.код_материала SET Расход.стоимость = Материалы.цена_за_единицу * Расход.количество';
ADOCommand1.Execute;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT Sum([Расход]![Стоимость]) AS Выражение1 FROM Расход WHERE (([Расход]![Код_изделия]=1));');
ADOQuery1.Active:=true;
i:=ADOQuery1.FieldByName('выражение1').AsInteger;
label1.Caption:=inttostr(i);
Memo1.Lines:=ADOQuery1.SQL;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('update Изделие set Итого_затраты = :p where Код_изделия = 1');
Memo1.Lines:=ADOQuery1.SQL;
aDOQuery1.ExecSQL;
end;

проблема в том что последний запрос

1
ADOQuery1.SQL.Add('update Изделие set Итого_затраты = :p where Код_изделия = 1');

не выполняется хотя я проверял сам текст запроса передается, но в таблицу никаких изменений не вносится, подскажите в чем может быть дело.

[evg_m]

ADOQuery1.SQL.Add('update Изделие set Итого_затраты = : p where Код_изделия = 1');
Memo1.Lines:=ADOQuery1.SQL;

А кто будат ЗАДАВАТЬ значение параметра. Пустой параметр подразумевает значение NULL.

ADOQuery1.Parameters.Parambyname('p').value:=1000;

[Аватар]

А где присвоение значения параметру в параметризированном запросе?

[Deeller]

параметру присвоено значение в свойствах... позже планировал сделать чтобы передавалась через переменную, но не работает даже так.

[evg_m]

параметру присвоено значение в свойствах...

. Т.е. ДО формирования запроса задания SQL текста). При формировании запроса добавляется второй с таким же именем. (это особенность ADO). В задании используется первый. А в запросе применяется второй (пустой).

Убери из свойств и задавай значения ПОСЛЕ формирования запроса .