Проще получать id нововставленной строки не передергивая DataSet

[KBO]

Доброе время суток уважаемые.
Можно ли как-нибудь проще видеть id нововставленной строки в DataSet (DBGrid), без его переоткрытия, используя например «RETURNING» и sql-ю «GEN_ID» или что-нибудь в этом роде
Сейчас у меня работает таким образом:

Перед вносом записи непосредственно в БД я обращаяюсь к внутренней процедуре (в которой, входной параметр - это номер таблицы в БД), которая мне возвращает актуальное новое ID, определенного генератора ID, определенной таблицы

procedure TFMain.DataSetBeforePost(DataSet: TDataSet);
begin
IBStoredProc1.StoredProcName := 'SP_GET_ID';
  IBStoredProc1.ParamByName('NUMBER_TABLE').AsInteger := 0;
  IBStoredProc1.ExecProc;
  IBStoredProc1.Transaction.CommitRetaining;
  DataSet.FieldByName('ID').AsInteger := IBStoredProc1.ParamByName('ID').AsInteger; 
end;

Заранее спасибо
P.S.
- Процедура "GetGenID" (TIBStoredProc), - работает с внутренней процедурой в БД, которая только генерирует ID
- Delphi + FireBird 2.5.4

[evg_m]

Руководство по языку SQL СУБД Firebird
(Охватывает Firebird до версии 2.5.3 включительно)

Пример:

update or insert into Cows (Name, Number, Location)
values ('Suzy Creamcheese', 3278823, 'Green Pastures')
matching (Number)
returning rec_id into :id;

Query.SQL:=
Query.ExecSQL;// может потребоваться заменить на Open;
val:=Query.Params...('id').AsInteger;  // или Fields (в случае Open)

[Vapaamies]

Можно еще поискать по слову returning на форуме. В какой-то из тем я даже отвечал.

[KBO]

такая штука:
в IBExpert пытаюсь выполнить вставку (без нижней строки все работает):

insert into FEATURES_ETALON
  (CIMP_MRA, ID, MEASURAND)
values
  ('234', GEN_ID(GEN_ID_FEATURES_ETALON, 1), 'qwssw')
returning ID into :ID

как приводили выше и тут, но в "into :ID", вылазит ошибка:
"Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 5, column 19.
?.
"

[come-on]

Ну и в чем затруднения? вам же пишут эксперт не в зуб ногой что такое :ID..

[KBO]

Сообщение от come-on

Ну и в чем затруднения? вам же пишут эксперт не в зуб ногой что такое :ID..

да вот нашел:

insert into FEATURES_ETALON
  (CIMP_MRA, ID, MEASURAND)
values
  ('234', GEN_ID(GEN_ID_FEATURES_ETALON, 1), 'qwssw')
returning ID

возвращает "ID" (нужно без "... into :ID")

пардон, вот я в свойстве "InsertSQL" (DataSet), указал предущий запрос, но мне же нужно тогда куда-то принять значение "ID". Это тогда мне нужно вычисляемое поле сделать в DataSet?

иначе DataSet, тоже также ругается

[come-on]

Параметр, как указали вам в начале.

[KBO]

Сообщение от come-on

Параметр, как указали вам в начале.

Если вот так как вверху (может я и не прав), то

IBQuery1.SQL.Text := 'insert into FEATURES_ETALON  (CIMP_MRA, ID, MEASURAND) values (''234'', GEN_ID(GEN_ID_FEATURES_ETALON, 1), ''qwssw'') returning ID into :ID';
IBQuery1.ExecSQL;// может потребоваться заменить на Open;
showmessage(IBQuery1.Params.ParamByName('id').AsString);

такая же ошибка

может я не правильно выразился в первом сообщении, я хочу не просто вернуть ID нововставленной строки, но еще и вставить его в DataSet. Чтоб его видел пользователь.

Но даже если я его верну, то не смогу его вставить в DataSet, т.к. генератор (в БД) изменяет свое значение, только после BeforePost

[Аватар]

А пользователю это id сто лет не нужно. Суррогатный ключ зачем ему видеть?

[KBO]

Дело в том что это таблица в которую я вставляю запись, точнее к этой записи (после ее вставки), у меня можно прицепить к ней картинки (которые у меня хранятся в отдельной таблице).
Так вот я не разрешаю цеплять к записи картинки, пока у записи не появится ID (поле Dataset пустое)