Я пытаюсь добавить запись в таблицу 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], хотя это то же работает.
|