Советы по Delphi
Автоинкрементальные поля и Interbase I
Оказывается, что Interbase триггер "before insert" срабатывает только после того, как запись "запостится" из Delphi приложения. В связи с чем становится невозможным увеличение автоинкрементальных ключевых полей. Есть решение?
Большинство программистов решило эту проблему созданием хранимой процедуры (stored procedure), позволяющей от InterBase получить следующий номер и поместить его в вашу запись посредством метода onBeforePost или onNewRecord. [000559]
Я пытаюсь сгенерировать последовательный ключ для первичной ключевой колонки, но LIBS мне отвечает "nested select is not support in this context." (вложенный выбор не поддерживается в данном контексте.)
Как насчет:
CREATE TRIGGER AUTOINCREMENT FOR MYTABLE BEFORE INSERT AS DECLARE VARIABLE new_key INTEGER; BEGIN UPDATE AUTOKEYS SET KEY_VALUE = KEY_VALUE + 1 WHERE (KEY_ID = "A"); SELECT KEY_VALUE FROM AUTOKEYS WHERE KEY_ID = "A" INTO :new_key; new.my_key_column = new_key; END ^ Steve Koterski (Borland) [000713]
