Автоинкрементальные поля и Interbase 3

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Mike Downey

Я пытаюсь добавить запись в таблицу InterBase, содержащую триггеры и blob-поля, тем не менее, всякий раз при выполнении метода «post» после установки («append») значений, я получаю ошибку: ‘Record/Key deleted.’ (запись/ключ удален).

Вот реальный пример того, как я обошел эту проблему:

Определение хранимой процедуры:

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

Код Delphi для использования в обработчике события OnNewRecord, или AfterInsert, или BeforePost:

{ qyProviderData — это tQuery }

{ spProviderKey — это tStoredProc }

if qyProviderData.State in [dsInsert] then

begin

spProviderKey.ExecProc ;

qyProviderData.FieldByName( ‘ProviderKey’ ).AsInteger :=

spProviderKey.ParamByName( ‘ProviderKey’ ).AsInteger ;

end ; { if }

Это все, что вам необходимо. Хранимая процедура возвращает следующее сгенерированное значение. Триггер это гарантирует, даже если бы данные не были доступны из вашей Delphi-программы, первичный ключ все еще назначает значение. В Delphi-коде, я полагаю, вы могли бы проверять наличие пустого поля первичного ключа вместо .State in [dsInsert], хотя это то же работает.

{/codecitation}

Добавить комментарий