Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

инкрементирования [D6, Firebird]

DWW © (2004-11-16 08:07:00)
Помогите пожалуйста разобраться что нужно подставить
Это то я нашел для ключевого поля, его инкрементирования
Определение хранимой процедуры:

Create Procedure NewEmployeeKey Returns ( EmployeeKey Integer ) as
begin
EmployeeKey = Gen_Id( gnEmployeeKey, 1 ) ;
end
Определение триггера:
Create Trigger SetEmployeeKey for tbEmployee Active Before Insert Position 0 as
begin
if ( New.EmployeeKey is Null ) then begin
Execute Procedure NewEmployeeKey Returning_Values New.EmployeeKey ;
end
end

Sergey13 (2004-11-17 09:53:00) [1]
2[3] DrPass © (17.11.04 00:10)
>Если ты все же хочешь его получить, убери триггер,
Зачем убирать? Он не мешает. 8-)

DrPass (2004-11-17 00:10:00) [2]
Если используешь для его вставки триггер, то ты его не получишь, да и не надо - оно само вставится.
Если ты все же хочешь его получить, убери триггер, а получай запросом вида select GEN_ID(SetEmployeeKey,1) from rdb$database,
а потом уже делай с ним что хочешь.

DWW (2004-11-16 22:28:00) [3]
А как получить его (значение генератора) в Delphi, у меня не получалось

Rule (2004-11-16 08:51:00) [4]
чегото ты намудрил, зачем тебе процедура
юзай IBExpert и посмотри что он генерит

сначала создаешь генератор для своей таблицы
CREATE GENERATOR gnEmployeeKey

а мотом тригер перед вставкой
CREATE TRIGGER SetEmployeeKey FOR tbEmployee
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.EmployeeKey IS NULL) THEN
NEW.EmployeeKey = GEN_ID(SetEmployeeKey,1);
END

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »