Добавление новой записи в IBQuery

[GROSS777]

Собственно вопрос: Надо при нажатии на кнопку создавать новую запись. В ADO это делал вот так, DataSet.Append. Как в IBQuery это реализовать? Добавляю записи с помощью хранимой процедуры в файербёрде (Если id<0 то Insert Иначе Update)..

Вот как это выглядит:
нажимаю на кнопку, и вывожу форму редактирования

PHP код:

procedure TfMain.N2Click(Sender: TObject);
begin
  FNew := true;
  fEdit.ShowModal;
end; 


Далее по нажатии на кнопку сохраняю все данные

PHP код:

...    
with fDM.QAdd do
    begin
      if fMain.FNew then
      begin
        SQL.Text := 'EXECUTE PROCEDURE PROC_INSERT(-1' + ',' +
          quotedstr(Edit3.Text) + ',' + quotedstr(Edit4.Text) + ',' +
          quotedstr(Edit5.Text) + ',' + quotedstr(ComboBox1.Text) + ',' +
          quotedstr(DateToStr(DBDateTimeEditEh1.Value)) + ',' +
          quotedstr(Edit6.Text) + ',' + quotedstr(Edit7.Text) + ',' +
          quotedstr(Edit11.Text) + ',' + quotedstr(Edit12.Text) + ',' +
          quotedstr(Edit8.Text) + ',' +
          quotedstr(DateToStr(DateTimePicker2.Date)) + ',' +
          quotedstr(Edit9.Text) + ',' + quotedstr(Edit10.Text) +
          ', NULL, NULL, NULL)';
      end
      else
 .......................
      Transaction.StartTransaction;
      try
        ExecSQL;
        Transaction.Commit;
      finally
        Transaction.Active := false;
      end; 


В общем вся запарка в том, что есть две связанные таблицы Клиенты и Услуги, и надо чтобы при добавлении нового Клиента в форме редактирования отображались его услуги, а у меня отображаются услуги того, на ком стоит курсор. То есть получается, клиент новый добавлен, а услуги от старого отображаются. Услуги вывожу запросом

PHP код:

Select * From USl Where Usl.Client_Id=Client.ID; 


[Stilet]

То есть получается, клиент новый добавлен, а услуги от старого отображаются.

Т.е. проблема не в добавлении? Если да то просто переоткрывай запросом список услуг после добавления.

[GROSS777]

Т.е. проблема не в добавлении? Если да то просто переоткрывай запросом список услуг после добавления.

Нет не так. Проблема в получении ID после добавления записи в таблицу

[BARNEY]

если юзаете процедуру дык пусть она вам id и возвращает

[GROSS777]

Если не сложно, подскажите как ее переделать, чтобы выходной параметр выводила?

PHP код:

SET TERM ^ ;

create or alter procedure PROC_INSERT (
    FIN_ID integer,
    FIN_SURNAME varchar(30),
    FIN_FNAME varchar(30),
    FIN_PATRONYMIC varchar(30),
    FIN_SEX varchar(10),
    FIN_BIRTHDAY date,
    FIN_CITY varchar(30),
    FIN_STREET varchar(90),
    FIN_ORG varchar(150),
    FIN_DOLJN varchar(100),
    FIN_PASP varchar(100),
    FIN_D_ZAP date,
    FIN_KVIT varchar(12),
    FIN_DOG varchar(10),
    FIN_MPOL varchar(30),
    FIN_PZDOR varchar(10),
    FIN_IDUSER varchar(15))
as
begin
  if (:fin_id<0) then
  begin
   insert into base_name(SURNAME, FNAME, PATRONYMIC, SEX, BIRTHDAY, CITY, STREET,
   ORG, DOLJN, PASP, D_ZAP, KVIT, DOG, MPOL, PZDOR, IDUSER)
   values (:FIN_SURNAME, :FIN_FNAME, :FIN_PATRONYMIC, :FIN_SEX, :FIN_BIRTHDAY, :FIN_CITY, :FIN_STREET,
   :FIN_ORG, :FIN_DOLJN, :FIN_PASP, :FIN_D_ZAP, :FIN_KVIT, :FIN_DOG, :FIN_MPOL, :FIN_PZDOR, :FIN_IDUSER);
  end
  else
    begin
      update
       base_name
      set
       SURNAME=:fin_surname,
       FNAME=:fin_fname,
       PATRONYMIC=:fin_patronymic,
       SEX=:fin_sex,
       BIRTHDAY=:fin_birthday,
       CITY=:fin_city,
       STREET=:fin_street,
       ORG=:fin_org,
       DOLJN=:fin_doljn,
       PASP=:fin_pasp,
       D_ZAP=:fin_d_zap,
       KVIT=:fin_kvit,
       DOG=:fin_dog, 
       MPOL=:fin_mpol,
       PZDOR=:fin_pzdor,
       IDUSER=:fin_iduser
       where
       id=:fin_id;
    end

end
^

SET TERM ; ^ 


[Stilet]

Хм... Я в огнептичке особо не разбираюсь но думаю что:

  if (:fin_id<0) then
  begin
   declare aid int;
   insert into base_name(SURNAME, FNAME, PATRONYMIC, SEX, BIRTHDAY, CITY, STREET,
   ORG, DOLJN, PASP, D_ZAP, KVIT, DOG, MPOL, PZDOR, IDUSER)
   values (:FIN_SURNAME, :FIN_FNAME, :FIN_PATRONYMIC, :FIN_SEX, :FIN_BIRTHDAY, :FIN_CITY, :FIN_STREET,
   :FIN_ORG, :FIN_DOLJN, :FIN_PASP, :FIN_D_ZAP, :FIN_KVIT, :FIN_DOG, :FIN_MPOL, :FIN_PZDOR, :FIN_IDUSER);
  select max(id) from base_name into aid;
  return aid;
  end
  else
...

И вызов через select * from PROC_INSERT(тут ее параметры

[GROSS777]

PHP код:

create or alter procedure PROC_INSERT ( входные парметры)
returns (
    OUT_ID integer)
as
declare variable VAR_ID integer;
begin
  if (:fin_id<0) then
  begin
   var_id=gen_id(gen_base_name_id,1);
   insert into base_name(ID, SURNAME, FNAME, PATRONYMIC, SEX, BIRTHDAY, CITY, STREET,
   ORG, DOLJN, PASP, D_ZAP, KVIT, DOG, MPOL, PZDOR, IDUSER)
   values (:var_id, :FIN_SURNAME, :FIN_FNAME, :FIN_PATRONYMIC, :FIN_SEX, :FIN_BIRTHDAY, :FIN_CITY, :FIN_STREET,
   :FIN_ORG, :FIN_DOLJN, :FIN_PASP, :FIN_D_ZAP, :FIN_KVIT, :FIN_DOG, :FIN_MPOL, :FIN_PZDOR, :FIN_IDUSER);
   out_id=:var_id; 


вот так в файерберде все работает, а в делфях при вызове процедуры выдает ошибку Dynamic SQL Error. Token unknow...

PHP код:

EXECUTE PROCEDURE PROC_INSERT( входные параметры) RETURNING_VALUES :out_id'; 


[BARNEY]

слушайте? может почитаете про "update or insert" или "insert or update " не помню функцию. А на выходе будет :id=new.id

[Stilet]

Не наверное возвращать нужно как я говорил через select

[Аватар]

IBStoredProc не подходит? И хранимку выполнит и возвращаемое значение вернет