Не могу запихать в параметры значение поля key мля

вот так все работает

Цитата

key:=716498; UpdateLitNomStringNew:='update prod set nom = 77  where [key] = '+inttostr(key)+' and not exists  (select * from prod where nom = :onom and [data] = :odata and stch = :stch)';      T:=now;           Form1.QueryChek.Active:=false;           max:=76;           Form1.QueryChek.SQL.Text:=UpdateLitNomStringNew;           Form1.QueryChek.Parameters[0].Value:=max+1;           DateTimeToString(Sdt,'dd.mm.yyyy',T);           Form1.QueryChek.Parameters[1].Value:=StrToDate(sdt);           Form1.QueryChek.Parameters[2].Value:=false;           Form1.QueryChek.ExecSQL;

после такого
Form1.QueryChek.RowsAffected=1

а когда пишу так

Цитата

key:=716498; UpdateLitNomStringNew:='update prod set nom = 77  where [key] = :kkk and not exists  (select * from prod where nom = :onom and [data] = :odata and stch = :stch)';      T:=now;           Form1.QueryChek.Active:=false;           max:=76;           Form1.QueryChek.SQL.Text:=UpdateLitNomStringNew;           Form1.QueryChek.Parameters[0].Value:=key;           Form1.QueryChek.Parameters[1].Value:=max+1;           DateTimeToString(Sdt,'dd.mm.yyyy',T);           Form1.QueryChek.Parameters[2].Value:=StrToDate(sdt);           Form1.QueryChek.Parameters[3].Value:=false;           Form1.QueryChek.ExecSQL;

после такого
Form1.QueryChek.RowsAffected=0
и не ошибки ничего просто не выполняется запрос ка будто одно условие не выполняется.

мать.... не могу найти в чем косяк через БДЕ работало щас перевожу на АДО и вот такая хрень....

P.S. разбираюсь и нашел такую штуку:
проблема в том что нельзя задавать еще одно условие с подзапросом т.е. или
where [key] = :kkk
или
where not exists
(select * from prod where nom = :onom and [data] = :odata and stch = :stch)'
причем для БДЕ+Акцесс и для АДО+SQLServer все работает а для АДО+Акцесс вот такой косяк
ну пипец.........

Это сообщение отредактировал(а) Bes - 8.6.2005, 14:07

Цитата(Bes @ 8.6.2005, 13:09)

Parameters[1].

Обращаться к параметрам по индексу не очень.... Ты на 200% можешь гарантировать что под этим индексом нужнывй тебе параметр?
Лучше использовать ....ParamsByName('kkk').AsInteger:=kkk

Всю жизнь работало......
Ладно попробую.

Эээээ..... какой нафиг ParamsByName? у TADOQuery нет такой штуки а с TQuery т.е. с БДЕ у меня и так все работет.

Это сообщение отредактировал(а) Bes - 9.6.2005, 06:37

А если так:

Код

key:=716498; UpdateLitNomStringNew:='update prod set nom = 77  where [key] = :kkk and not exists  (select * from prod where nom = :onom and [data] = :odata and stch = :stch)';      T:=now;           Form1.QueryChek.Active:=false;           max:=76;           Form1.QueryChek.SQL.Text:=UpdateLitNomStringNew;           Form1.QueryChek.Parameters.ParseSQL(Form1.QueryChek.SQL.Text, True);           Form1.QueryChek.Parameters[0].Value:=key;           Form1.QueryChek.Parameters[1].Value:=max+1;           DateTimeToString(Sdt,'dd.mm.yyyy',T);           Form1.QueryChek.Parameters[2].Value:=StrToDate(sdt);           Form1.QueryChek.Parameters[3].Value:=false;           Form1.QueryChek.ExecSQL;