[Mrak]

Сообщение от sAVe

я не могу сообразить, как перейти на только что созданную запись

не это ищешь?

Код:

ADOQuery.close;
ADOQuery.sql.text:='INSERT INTO table (bla-bla, bla) VALUES (' + QuotedStr(memo1.Text) + ', ' + QuotedStr(edit1.Text) + ')';
ADOQuery.ExecSQL;

ADOQuery.close;
ADOQuery.sql.text:='UPDATE table SET bla = "№-" WHERE id = LAST_INSERT_ID()';
ADOQuery.ExecSQL;

это пример, короче, вставка в базу и обновление на основе LAST_INSERT_ID

[Yurk@]

Сообщение от sAVe

1. я имел ввиду, что в базу не нужно сохранять триггер, по скольку база будет разная, ну с определёнными полями и таблицами (надеюсь, понятно объяснил)

2. Добавил я строчку с выполнением этого запроса, но тут смысл не в этом, мне нужно именно запомнить только что созданный Cl_id и вставить его в таблицу Person в поле P_cl_id. В принципе у меня тут всё срабатывает, но добавляет не тот Cl_id.

3. база на Firebirde 2.5, если это поможет...

1. нет, не понятно
2. ну так твое Cl_id должно же как-то сначала сформироваться. а для этого нужно выполнить (ExecSQL) 1й запрос.
3. да. firebird такое умеет делать.
примерно так:

Код:

INSERT INTO audit (data) 
VALUES ('-----') 
RETURNING recordid

[sAVe]

Всем спасибо, но не то...
Вот у меня что получилось, но всё равно так как надо не работает...
Здесь почему-то всегда 0 получается:

Код:

Cl_idgen:=DataModule1.IBDataset1.FieldByName('id').AsInteger;

вот весь текст:

Код:

procedure TNew_Person.Button1Click(Sender: TObject);
var
Cl_idgen: integer;

begin

with DataModule1.IBDataSet1 do
   begin
    SelectSQL.Text:='select gen_id(GEN_CLIENT_ID,1) as id from RDB$DATABASE';

    Transaction.StartTransaction;
    Open;
    Transaction.Commit;
    Transaction.Active:=false;
end;
Cl_idgen:=DataModule1.IBDataset1.FieldByName('id').AsInteger; // ВОТ ЗДЕСЬ 0 ПОЛУЧАЕТСЯ ВСЕГДА

with DataModule1.IBQuery9 do
   begin
    SQL.Text:='insert into CLIENT (CL_ID, CL_IS_VIP, CL_CLS_ID, CL_CREDIT_NUM) values (:CL_ID, :CL_IS_VIP, :CL_CLS_ID, :CL_CREDIT_NUM)';
    ParamByName('CL_ID').AsInteger:=Cl_idgen;
    ParamByName('CL_IS_VIP').AsInteger:=0;
    ParamByName('CL_CLS_ID').AsInteger:=0;
    ParamByName('CL_CREDIT_NUM').AsInteger:=0;
    Transaction.StartTransaction;
    ExecSQL;
    Transaction.Commit;
    Transaction.Active:=false;

   end;
with DataModule1.IBQuery7 do
    begin
      SQL.Text:='insert into Person(P_ID, P_NAME, P_BIRTHDATE, P_CL_ID)  values (:P_ID, :P_NAME, :P_BIRTHDATE, :P_CL_ID)';
      ParamByName('P_NAME').AsString:=Edit1.Text;
      ParamByName('P_BIRTHDATE').AsString:=Edit2.Text;
      ParamByName('P_CL_ID').AsInteger:=Cl_idgen;
      Transaction.StartTransaction;
      ExecSQL;
      Transaction.Commit;
      Transaction.Active:=false;

[sAVe]

Всем спасибо!
Всё получилось, коллега на работе помог.
Если интересно, могу рассказать в чём был прикол

[M.A.D.M.A.N.]

Рассказывай.

[sAVe]

Внесённые изменения помечены коментами

Код:

procedure TNew_Person.Button1Click(Sender: TObject);
var
Cl_idgen: integer;

begin

with DataModule1.IBDataSet1 do
   begin
     SelectSQL.Text:='select gen_id(GEN_CLIENT_ID,1) as id from RDB$DATABASE';

    Transaction.StartTransaction;
    Open;
    DataModule1.IBDataSet1.First; // а вот смысл этой строчки я пока сам не понял...
    Cl_idgen:=DataModule1.IBDataset1.FieldByName('id').AsInteger; // основная фишка в том что нужно было это сделать, до комита
    Transaction.Commit;
    Transaction.Active:=false;
end;
   with DataModule1.IBQuery9 do
   begin
    SQL.Text:='insert into CLIENT (CL_ID, CL_IS_VIP, CL_CLS_ID, CL_CREDIT_NUM) values (:CL_ID, :CL_IS_VIP, :CL_CLS_ID, :CL_CREDIT_NUM)';
    ParamByName('CL_ID').AsInteger:=Cl_idgen;
    ParamByName('CL_IS_VIP').AsInteger:=0;
    ParamByName('CL_CLS_ID').AsInteger:=0;
    ParamByName('CL_CREDIT_NUM').AsInteger:=0;
    Transaction.StartTransaction;
    ExecSQL;
    Transaction.Commit;
    Transaction.Active:=false;

   end;
with DataModule1.IBQuery7 do
    begin
      SQL.Text:='insert into Person(P_ID, P_NAME, P_BIRTHDATE, P_CL_ID)  values (:P_ID, :P_NAME, :P_BIRTHDATE, :P_CL_ID)';
      ParamByName('P_NAME').AsString:=Edit1.Text;
      ParamByName('P_BIRTHDATE').AsString:=Edit2.Text;
      ParamByName('P_CL_ID').AsInteger:=Cl_idgen;
      Transaction.StartTransaction;
      ExecSQL;
      Transaction.Commit;
      Transaction.Active:=false;

[M.A.D.M.A.N.]

DataModule1.IBDataSet1.First; // а вот смысл этой строчки я пока сам не понял...

Это переход в самое начало датасета, т.е. индекс ставится на первую запись.

[sAVe]

это я понимал, но только сейчас понял зачем это сделано было