Форум: "Базы";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

Как возвратить значение сгенерированного ID на клиента   Найти похожие ветки 

← →
Deniz   (2001-12-27 09:38) [1]

Хранимая процедура на сервере, возвращающая ID.
Пример:

Create procedure GetNextID
returns (ID integer) as
begin
ID = Gen_ID(GeneratorName, 1);
Suspend;
end;

Suspend вроде не обязательно (у меня в проэктах нет, но почему-то многие пишут).
Далее немного изменить код.

IBStoredProc1.StoredProcName:="GetNextID";
IBStoredProc1.Prepare;
IBStoredProc1.ExecProc;
i:=IBStoredProc1.ParamByName("ID").AsInteger;
with IBQuery1 do
SQL.clear;
SQL.add("insert into nakl(postav_id,...) values(:ID,...)");
Prepare;
ParamByName("ID").asInteger:=i;
ExecSQL;
end;


---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c