Не обновляются данные в таблице

[Микошка]

Добрый день! Я добавляю новую запись в таблицу, но данные в таблице обновляются только после перезапуска программы. Как это можно исправить? База данных у меня Interbase. Вот код добавления новой записи

  with DM.IBQuery2 do
  begin
    if FNew then
      SQL.Text :=
        'execute procedure book_add (-1, :id_zhanr,:author,:title_book,:publ_house,:year_of_publ,:num_of_pages,:annotation,:num_of_copies,:in_stock)';
    with DM.IBQuery2.Params do
    begin
      ParamByName('id_zhanr').Value := sEdit2.Text;
      ParamByName('author').Value := sEdit3.Text;
      ParamByName('title_book').Value := sEdit4.Text;
      ParamByName('publ_house').Value := sEdit5.Text;
      ParamByName('year_of_publ').Value := sEdit6.Text;
      ParamByName('num_of_pages').Value := sEdit7.Text;
      ParamByName('annotation').Value := sMemo1.Text;
      ParamByName('num_of_copies').Value := sEdit8.Text;
      ParamByName('in_stock').Value := sEdit9.Text;
      Transaction.StartTransaction;
      ExecSQL;
      Transaction.Commit;
      Transaction.Active := false;
    end;
    DM.IBQuery_Book.Close;
    DM.IBQuery_Book.Open;

[Iron Monk]

DM.IBQuery2.Close;
DM.IBQuery2.Open;

[Аватар]

DM.IBQuery2.Open;

С какой радости?

[Iron Monk]

нихт...
А код показа записей?

[Аватар]

Там же скрипт для обновления. Скрипта для чтения и в помине нет. Он по идее в другом кверике, на что и намекает IBQuery_Book.

[Iron Monk]

Сообщение от Аватар

Там же скрипт для обновления. Скрипта для чтения и в помине нет. Он по идее в другом кверике, на что и намекает IBQuery_Book.

Я исправился:

А код показа записей?

[Микошка]

with DM.IBQuery_Book do
    begin
      SQL.Text :=
        'select * from book';
      Open;

Это код показа записей

[Iron Monk]

Нужно датасет апдейтить...

[Микошка]

в параметрах IBTransaction выбрала read committed. Это ведь не лишнее? или я ошибаюсь

[kropotkina-alice]

Сообщение от Iron Monk

Нужно датасет апдейтить...

Совершенно верно!
ТС, почитайте руководство по IB:

The following code illustrates how you apply updates within a transaction for the CustomerQuerydataset previously used to illustrate updates through a database method:
procedure TForm1.ApplyButtonClick(Sender: TObject)
begin
IBTransaction1.StartTransaction;
CustomerQuery.ApplyUpdates; {try to write the updates to the database }
IBTransaction1.Commit; { on success, commit the changes }
except
IBTransaction1.Rollback; { on failure, undo any changes }
raise; { raise the exception again to prevent a call to CommitUpdates }
end;
CustomerQuery.CommitUpdates; {on success, clear the internal cache }
end;