| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IBDataSet error [D6, IB6.x]
Jaxtor © (2003-04-14 15:59:00)Помогите, мастера, пожалуйста!!!!
Из-за чего возникает ошибка - Invalid token "returning_values"?
Как ее обойти?
with qrPrihNaklInsert do begin
if Active then Close;
with SelectSQL do begin
Clear;
Add("execute procedure saveprod_proc :ProdId returning_values :SaveProdId");
Add("insert into SAVEPR_ATR(SAVEPRODID, COUNTRYID) values (:SaveProdID,1)");
Add("insert into serialno(saveprod_atrid,SerialNo) values (GEN_ID(GEN_SAVEPR_ATR,0),NULL)");
Add("insert into stockitem(stockid,saveprod_atrid,Quantity) values (:stockid,GEN_ID(GEN_SAVEPR_ATR,0),0)");
Add("insert into stockitemsn(serialnoid,stockitemid) values (gen_id(gen_serialno,0),gen_id(gen_stockitem,0))");
Add("insert into naklitem(naklid,saveprod_atrid,warantyid) values (:NaklID,GEN_ID(GEN_SAVEPR_ATR,0),2)");
Add("insert into naklsn(serialnoid,naklitemid) values (gen_id(gen_serialno,0),gen_id(gen_naklitem,0))");
end;//with SelectSQL
ParamByName("ProdId").AsInteger:=102877;
ParamByName("StockID").AsInteger:=3;
ParamByName("NaklID").AsInteger:=806;
ExecSQL;
end;//with qrPrihNaklInsert
Alexandr (2003-04-15 09:12:00) [1]это все бред какой-то....
И где вы такую траву берете?
Zacho (2003-04-15 09:06:00) [2]Ну что я могу сказать... Значит, алгоритм у тебя не правильный, если он не соответствует бизнес-правилам, определенным для твоей БД. Подумай, например, а если между Commit"ом для главной таблицы и Commit"ом для подчиненной произойдет какой-либо сбой ?
И получиться накладная с заголовком, но без позиций. В твоей системе такое допустимо ? Вообще, подобные операции надо делать в однойтранзакции. А если тебе очень уж необходимо сначало создавать записи для подчиненной таблицы, а только потом - для главной, то имхо единственный правильный способ - делать это на клиенте (например, с помощью CachedUpdates) а потом уже вставлять в базу в одной транзакции и в нормальном порядке, т.е. сначало - в главную, потом - в подчиненную
Jaxtor (2003-04-14 17:04:00) [3]; не помогает!!!!
samalex (2003-04-14 16:34:00) [4]; не пробовал в конце каждого запроса ставить? Как IB будет отличать команды? И вообще, напиши ХП с параметрами, у IB такие большие возможности...
Jaxtor (2003-04-14 16:33:00) [5]Задача такая стоит у меня.
Сначала нужно мне добавить позиции по накладной (таблица NaklItem), а затем
другие параметры таблица(Nakl). Собственно ссылочную целостность
устанавливал не я, а другой программер.
Соловьев (2003-04-14 16:27:00) [6]А что тебе мешает сделать наоборот?
Jaxtor (2003-04-14 16:22:00) [7]А у меня алгоритм такой:
вставить запись сначала в подчиненную таблицу, потом в главную, а
затем сделать CommitRetaining для главной, а потом для подчиненной.
Соловьев (2003-04-14 16:17:00) [8]
> если в Nakl нет соответствующей записи, то в NaklItem ничего
> вставить нельзя
так вставь сначала в подченненную. Смысл вставлять то чего нет в главной? Фантомы будут...
Соловьев (2003-04-14 16:17:00) [9]
> если в Nakl нет соответствующей записи, то в NaklItem ничего
> вставить нельзя
так вставь сначала в главную. Смысл вставлять то чего нет в главной? Фантомы будут...
Сорри...
Jaxtor (2003-04-14 16:15:00) [10]Да была у меня хранимая процедура под это дело... Начала ругаться из-за ограничений ссылочной целостности.
У меня гл. таблица - Nakl, подчиненная - NaklItem. Соответственно
если в Nakl нет соответствующей записи, то в NaklItem ничего вставить нельзя. Хотел это обойти, используя вышеприведенный код.
Соловьев (2003-04-14 16:08:00) [11]зачем для процедуры IBDataset?
Обычный квери подойдет:
Select * from Procedure (:p1, :p2)
Жук (2003-04-14 16:04:00) [12]Ой ! Мама...
Соловьев (2003-04-14 16:03:00) [13]что-то ты насовал всего в одну бедную компоненту....
| |
