sql-запрос на обновление

[Alter1989]

Имеется запрос на обновление записи в таблице:

dm.UpdateQuery.close;
dm.UpdateQuery.SQL.Clear;
dm.UpdateQuery.SQL.add('update z_l set rayon="+rayon.text+",vsego="+Vs.text+",1SP="+P1.te xt+",1SF="+F1.text+",2sp="+P2.text+",2sf="+F2.text +",3sp="+P3.text+",3sf="+F3.text+",4sp="+P4.text+" ,4sf="+F4.text+" where z_l.id like "+IDD.text+"');
dm.UpdateQuery.ExecSQL;

Если изменяю поле rayon и потом перехожу на другую запись, то появляется ошибка: "Недостаточно сведений ключевого поля для обновления", но если изменяю любые другие поля, такой ошибки не возникает.
База MS Access, способ доступа - ADO, ключевое поле - ID. Все поля числового типа.
В чем причина и как это исправить? Заранее спасибо.

[koma_grusha]

пока не знаю что у тебя, но дам советы
1)

where z_l.id like

замени на

where z_l.id =

2) если район в базе имеет строковый типа, то надо не просто rayon.text, а желательно использовать QuotedStr(rayon.text), чтобы в запросе она была строкой

[Alter1989]

Пробовал like заменять на =.
where z_l.id = SelectQuery.id - выдает ошибку: "Параметр SelectQuery.id не имеет значения по умолчанию", поэтому поставил like.
Поле rayon в таблице z_l имеет числовой тип, оно связано с полем ID(ключевое поле) из подстановочной таблицей Rayons (один ко многим). Возможно поэтому и не получается его изменить. Вернее, запрос его изменяет, но при переходе на любую другую запись выдает ошибку.

[Rekky]

У ADO, видимо, вечно проблемы с ключевыми полями((( У меня была такая проблема при удалении...Причину так и не выяснила...но можно попробовать обойти разными способами.Эта ошибка возникает при обновлении.Например,можно поробовать через try .. except

dm.UpdateQuery.close;
dm.UpdateQuery.SQL.Clear;
dm.UpdateQuery.SQL.add('update z_l set rayon="+rayon.text+",vsego="+Vs.text+",1SP="+P1.te xt+",1SF="+F1.text+",2sp="+P2.text+",2sf="+F2.text +",3sp="+P3.text+",3sf="+F3.text+",4sp="+P4.text+" ,4sf="+F4.text+" where z_l.id like "+IDD.text+"');
dm.UpdateQuery.ExecSQL;
try 
 DM.ТвояТаблица.Refresh;
except;
 Здесь можно какой-нибудь ShowMessage Написать (Напр: ShowMessage ('Запись изменена!')), а можно ничего не писать.
end;

[Rekky]

Извините,что то я расписалась))) Про Ентер забыла,в "быстром ответе" автоматичеси переходит...

[Stilet]

Во-первых, я не очень понял зачем нужно в ковычки брать числовые значения в запросе.
во-вторых, может по этому полю связка есть?

[soleil@mmc]

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

и тогда код может выглядеть где-то так

dm.UpdateQuery.close;
dm.UpdateQuery.SQL.Clear;
dm.UpdateQuery.SQL.add('update z_l set 
dm.UpdateQuery.SQL.add(' rayon=:p0,');
dm.UpdateQuery.SQL.add(' vsego=:p1,');
dm.UpdateQuery.SQL.add(' 1SP=:p2,');
dm.UpdateQuery.SQL.add(' 1SF=:p3,');
dm.UpdateQuery.SQL.add(' 2sp=:p4,');
dm.UpdateQuery.SQL.add(' 2sf=:p5,');
dm.UpdateQuery.SQL.add(' 3sp=:p6,');
dm.UpdateQuery.SQL.add(' 3sf=:p7,');
dm.UpdateQuery.SQL.add(' 4sp=:p8,');
dm.UpdateQuery.SQL.add(' 4sf=:p9 ');
dm.UpdateQuery.SQL.add(' where z_l.id = :p10');
dm.UpdateQuery.ParamByName('p0').AsInteger:=StrToInt(rayon.text);
dm.UpdateQuery.ParamByName('p1').AsInteger:=StrToInt(Vs.text);
dm.UpdateQuery.ParamByName('p2').AsInteger:=StrToInt(P1.text);
dm.UpdateQuery.ParamByName('p3').AsInteger:=StrToInt(F1.text);
dm.UpdateQuery.ParamByName('p4').AsInteger:=StrToInt(P2.text);
dm.UpdateQuery.ParamByName('p5').AsInteger:=StrToInt(F2.text);
dm.UpdateQuery.ParamByName('p6').AsInteger:=StrToInt(P3.text);
dm.UpdateQuery.ParamByName('p7').AsInteger:=StrToInt(F3.text);
dm.UpdateQuery.ParamByName('p8').AsInteger:=StrToInt(P4.text);
dm.UpdateQuery.ParamByName('p9').AsInteger:=StrToInt(F4.text);
dm.UpdateQuery.ParamByName('p10').AsInteger:=StrToInt(IDD.text);
dm.UpdateQuery.ExecSQL;

возможно, что это

.AsInteger:=StrToInt(

может быть заменено на это

.AsFloat:=StrToFloat(

[Alter1989]

Stilet, да, поле rayon действительно связано с другой таблицей. Думаю, поэтому и не получалось его обновить.
Мне посоветовали сделать проще - воспользоваться методами insert и post компонента TQuery, тем самым редактируя саму выборку, а не таблицу. Я как бы не был в курсе, что в TADOQuery можно добавлять, изменять и удалять записи так же как и в TADOTable.
Таким образом, проблема решена.
Всем спасибо за помощь.