[govorun]

НЕ ПОНЯТНО ПОЧЕМУ UPDATE НЕ ХОЧЕТ ВОСПРИНИМАТЬ ПОЛЕ 'СУММА'

Код:

var
    D1:real;
begin
    D1:= STRTOFLOAT(DBEDITEH2.Text);
    Datamodule3.ADOQuery8.Active:=FALSE;
    Datamodule3.ADOQuery8.SQL.Text := 'UPDATE PV_STR SET [ЭКВИВАЛЕНТ]=:D1*[СУММА] WHERE [КОД ВАЛЮТЫ]=643';
    Datamodule3.ADOQuery8.Parameters[0].Value:=D1;
    Datamodule3.ADOQuery8.ExecSQL;
    Datamodule3.ADOTable6.Active:=false;
    Datamodule3.ADOTable6.Active:=true;
END;