[qwwwq]

Как обновить значение в таблице?
Я сначало делал запрос, а потом уже пытался обновить другую таблицу но выдает ошибку, что не правильно?

Код:

procedure TAdd_rashodi_Form.BitBtn1Click(Sender: TObject);
Var a,b : string;
begin

  DataModule1.ADOQuery.Active:= false;
  DataModule1.ADOQuery.SQL.Clear;
  DataModule1.ADOQuery.SQL.Add('select Sum(Summ) ');
  DataModule1.ADOQuery.SQL.Add('FROM [Rasshody]');
  DataModule1.ADOQuery.SQL.Add('WHERE Id_user = 0');
  DataModule1.ADOQuery.SQL.Add('AND Id_schet = 48');
  DataModule1.ADOQuery.Active:= true;

  a := DataModule1.ADOQuery.Fields[0].AsString;

  DataModule1.ADOQuery.Active:= false;
  DataModule1.ADOQuery.SQL.Clear;
  DataModule1.ADOQuery.SQL.Add('Update Schet');
  DataModule1.ADOQuery.SQL.Add('SET Rashodi = a');
  DataModule1.ADOQuery.SQL.Add('WHERE Id = 48');
  DataModule1.ADOQuery.Active:= true;

    Close;


end;