Обновление БД

[Masip]

Здравствуйте!не получается обновить БД созданную в Access.
Вот код:
Query.Active:=false;
Query.SQL.Clear;
sql:= 'update userName set reg = 1 where userName.id = :iduser';
Query.SQL.Text:=sql;
Query.Parameters.ParamByName('iduse r').Value:= IDUser;
Query.Active:=True;
При компиляции выдает ошибку:


Помогите пожалуйста!

[artemavd]

Query.Active:=false;
Query.SQL.Clear;
Query.SQL.Text:='update userName set reg = 1 where userName.id = :iduser';
Query.Parameters.ParamByName('iduser').Value:= iduser;
Query.Active:=True;

[Masip]

Delphi выдает все ту же ошибку!

[danekne]

ммм... А если так?

Query.Active:=false;
Query.SQL.Clear;
Query.SQL.add('update userName');
Query.SQL.add('set reg = 1');
Query.SQL.add('where userName.id = :iduser'');
Query.Parameters.ParamByName('iduser').Value:= iduser;
Query.Active:=True;

[Masip]

Все без изменений!а может быть проблема в том что я уже посылал запрос в БД для аутентификации пользователя???

[Andrei]

Query.Active:=false;
Query.SQL.Clear;
Query.SQL.Text:='update userName set reg = 1 where userName.id = :iduser';
Query.Parameters.ParamByName('iduser').Value:= iduser;
//Query.Active:=True;
Query.ExecSql;
//а дальше создаем запрос на получение данных, например
Query.SQL.Clear;
Query.SQL.Text:='SELECT * FROM userName ;
//и вот тут можно использовать
Query.Active:=True;

[/QUOTE]

Вообще-то компонент Query предназначен для получения данных из БД.
Команды Update,Delete,Insert ни каких данных из БД не получают, а только передают серверу команду на изменение таблиц. На это дельфи и ругается. Для них можно воспользоваться специальным компонентом ADOCommand или, как я написал в примере выполнить ExecSQL, не активируя кверик.

[Masip]

Спасибо!все работает!

[Ал3]

Привет, ребят! Подскажите как сделать так чтоб табличка обновлялась значениями из др 2х таблиц в АССЕССе?
пишу запрос

UPDATE СводТабл
SET Количество = (select Количество from ПрихТабл where Наименование=Forms!РасхФорм!Наимено вание and Модель=Forms!РасхФорм!Модель) - (select Количество from РасхТабл where Наименование=Forms!РасхФорм!Наимено вание and Модель=Forms!РасхФорм!Модель)
WHERE exists (select Количество from СводТабл where Количество > 1);

Говорит "operation must use an updateable query"????
вроде как и база открыта правильно,...

[artemavd]

Ал3, одна тема - один вопрос. Закрываю.