VPF::Не работает autoincrement - Форум программистов

Mina

Дата 26.8.2008, 16:55 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 11.11.2005

Репутация: нет
Всего: нет

Delphi
FireBird 2

Есть таблица, первое поле которой: ID - autoincrement (триггер и генератор), подключаюсь к базе через dbExpress (TSimpleDataSet).

Пытаюсь добавить новую запись:

Код


SimpleDataSet.Insert; 
SimpleDataSet.FieldByName('str_field').AsString := 'Test'; 
SimpleDataSet.FieldByName('int_field').AsInteger := 1; 
SimpleDataSet.Post;

Однако при попытке внести изменения (Post) выскакивает ошибка "Field 'ID' must have a value", но ведь сервер должен назначать новое значение автоинкремент-поля сам.

Что я не так делаю? Подскажите!!!

Это сообщение отредактировал(а) Rodman - 27.8.2008, 09:22

pseud

Дата 29.8.2008, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 16
Всего: 40

Цитата(Mina @ 26.8.2008, 16:55

)

но ведь сервер должен назначать новое значение автоинкремент-поля сам.

не знаю, как в FireBird 2
но в Informix необходимо в автоинкрементное поле при инсерте писать "0".
вот нашел по Interbase(предок FireBird), может поможет чем:

Цитата

Оказывается, что Interbase триггер "before insert" срабатывает только после того, как запись "запостится" из Delphi приложения. В связи с чем становится невозможным увеличение автоинкрементальных ключевых полей. Есть решение?

Большинство программистов решило эту проблему созданием хранимой процедуры (stored procedure), позволяющей от InterBase получить следующий номер и поместить его в вашу запись посредством метода onBeforePost или onNewRecord.

Цитата

Я пытаюсь сгенерировать последовательный ключ для первичной ключевой колонки, но 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 ^

Цитата

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

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »