Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Автоинкрементное поле [D6, Oracle8]


Relaxxx ©   (2003-08-26 12:58:00) 

Не подскажите как мне в Оракле создать одно поле автоинкрементное(такое как и в Парадокс)


VAleksey   (2003-08-26 13:03:00) [1]

1) Создаем последовательность
-- Create sequence
create sequence SOME_SEQ;
2) Создаем триггер before insert
create or replace trigger TBI_SOME_TABLE before Insert
on SOME_TABLE for each row

declare
begin
if :NEW.ID is null then
Select SOME_SEQ.NextVal into :NEW.ID from Dual;
end if;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо