[Dead_Gigabit]

Всем доброе, вот такой вопрос пишу вот такую штуку Update полей

Код:

1 2 3 4 5 6 7 8

dm.Arh.Active:=false;   dm.Arh.SQL.clear;   dm.Arh.SQL.Add('update "TREB2" "SKLAD"');   dm.Arh.SQL.Add('SET sklad.kol=sklad.KOL-treb2.KOL, sklad.SUMMA=sklad.SUMMA-Treb2.SUMMA');   dm.Arh.SQL.Add('where TREB2.LINKID=sklad.ID');   dm.Arh.ExecSQL;   dm.Arh.SQL.Text:='select * from "TREB2" where flag=7';   dm.Arh.Active:=True;

после чего изменений нет нечего не ошибок просто нечего....
Подскажите кто сталкивался? в чем проблема???

[movnet]

Код:

1 2 3 4 5

dm.Arh.SQL.clear; dm.Arh.SQL.Add('update treb2, sklad'); dm.Arh.SQL.Add('SET sklad.kol=sklad.KOL-treb2.KOL, sklad.SUMMA=sklad.SUMMA-Treb2.SUMMA'); dm.Arh.SQL.Add('where TREB2.LINKID=sklad.ID'); dm.Arh.ExecSQL;

[Dead_Gigabit]

Тут как я вижу тока запятая добавленна но это тоже не помогает на запятую вообще ругается.... (да в принципи я так тоже пробывал)

Если кому нужно использую
Firebird 1.5
Delphi 2010

[movnet]

тогда смотри в сторону : where TREB2.LINKID=sklad.ID

[Dead_Gigabit]

А что здесь может быть не верно?

[movnet]

может запрос на выборку у тебя неправильный...
дай хоть структуру таблиц.

[movnet]

и причем здесь : dm.Arh.SQL.Text:='select * from "TREB2" where flag=7'; ?
если изминения идут в SKLAD?
что хочешь там увидеть?

[Yurk@]

а так не пробовал:

Сообщение от Dead_Gigabit

Код:

[Dead_Gigabit]

Нет не помогает, я впринципе понял ошибку, но не понимаю как её исправить....
Суть в том что я пытаюсь сделать апдейт двух таблиц за раз:

Код:

1	dm.Arh.SQL.Add('update "TREB2" "SKLAD"');

Нужно делать aпдейт одной таблицы:

Код:

1 2 3 4 5

UPDATE SKLAD  SET Kol=Kol-CAST((SELECT Kol FROM TREB2 WHERE Flag=7) AS INT), Summa=Summa-CAST((SELECT Summa FROM TREB2 WHERE Flag=7) AS INT), <b>WHERE Id=1</b><font color="DarkGreen">\\ вот как здесь указать что апдейт только тех записей где Sklad.id=treb2.LinkID </font>

[Yurk@]

тогда создай Хранимую Процедуру и делай апдейт 2-х таблиц сразу в теле одной процедуры

[Dead_Gigabit]

Нет хранимая процедура рано....

Код:

1 2 3 4 5 6 7

dm.Arh.SQL.clear;     dm.Arh.SQL.Add('update "SKLAD"');     dm.Arh.SQL.Add('SET Kol=Kol-CAST((SELECT Kol FROM TREB2 WHERE Flag=7) AS INT),');     dm.Arh.SQL.Add('Summa=Summa-CAST((SELECT Summa FROM TREB2 WHERE Flag=7) AS INT)');     dm.Arh.SQL.Add('WHERE Sklad.id IN (SELECT treb2.LinkID FROM treb2 WHERE Sklad.id=treb2.LinkID )');     dm.Arh.ExecSQL; end;

вот немного переделанный запрос но возникает ошибка так как выбирается не одна запись а больее примерно штук 7

как обойти ошибку (скрин ошибки приложил)

[movnet]

AS INT - дублируется

Код:

1 2 3 4 5 6 7

dm.Arh.SQL.clear;     dm.Arh.SQL.Add('update "SKLAD"');     dm.Arh.SQL.Add('SET Kol=Kol-CAST((SELECT Kol FROM TREB2 WHERE Flag=7) AS INT),');     dm.Arh.SQL.Add('Summa=Summa-CAST((SELECT Summa FROM TREB2 WHERE Flag=7) AS INT_1)');     dm.Arh.SQL.Add('WHERE Sklad.id IN (SELECT treb2.LinkID FROM treb2 WHERE Sklad.id=treb2.LinkID )');     dm.Arh.ExecSQL; end;

[Dead_Gigabit]

нет не помогло, блин что за черная полоса....
вообще ругается на "INT_1"
Ошибку приложил....

[movnet]

Попробуй INT1

[Dead_Gigabit]

тоже нет, пробывал и INT1 и INN и ITN непомогает....