Проблема с использованием Events в Interbase

← →
Dron (2004-05-25 16:05) [0]

Здравствуйте. У меня такая проблема. У меня есть БД на Interbase и программа, которая автоматически раз в час заносит в нее данные. Сейчас я пишу клиента на Delphi для работы с ней. В клиенте мне необходимо отслеживать момент, когда другая программа, которая заносит в нее данные, заканчивает вносить в неее данные. Хочу использовать Events в Interbase. Но с ними у меня возникла проблема. Для начала я сделал пробную БД с одной таблицей, в ее триггере после вставки я добавил свой Event:
CREATE TRIGGER MY_TABLE_AI0 FOR MY_TABLE ACTIVE AFTER INSERT POSITION 0 AS begin post_event "test"; end
В Delphi на форму кинул IBDatabase,IBTransaction,IBEvents и IBQuery. Все настроил в свойствах. Добавил кнопку в обработчике, которой добавлял записив таблицу. Исходный текст тестовой проги :
procedure TForm1.FormCreate(Sender: TObject); begin IBDatabase1.Connected := true; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin IBDatabase1.Connected := false; end; procedure TForm1.Button1Click(Sender: TObject); begin with IBQuery1 do begin Close; SQL.Clear; //здесь я просто добавляю строку в таблицу SQL.Add("insert into my_table (some_field,field2) values (2,1)"); ExecSQL; end; end; procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: String; EventCount: Integer; var CancelAlerts: Boolean); begin Form1.Caption := "asd";//просто для теста end;
В IBEvents в свойствах установил AutoRegister в true и добавил в Events строку test. Запускаю, нажимаю на кнопку - ничего не происходит. Смотрю в таблице - записи появляются, а приложение никак не отлавливает мой Event в триггере. В чем может быть причина? Где ошибка - в БД или в тестовой проге? Подскажите, кто-что думает по этому поводу.

← →
Johnmen © (2004-05-25 16:14) [1]

Надо завершать транзакцию, тогда и пост прилетит...:)
...
IBTransaction.StartTransaction;
ExecSQL;
IBTransaction.CommitRetaining;
<прилетел!>
...

← →
VLAD-MAL (2004-05-25 16:17) [2]

Полагаю, ты забыл выполнить Commit после Insert. Все эвентсы (в т.ч. и "свои") стреляют по коммитам.

procedure TForm1.Button1Click(Sender: TObject);
begin
with IBQuery1 do
begin
Close;
SQL.Clear;
//здесь я просто добавляю строку в таблицу
SQL.Add("insert into my_table (some_field,field2) values (2,1)");
ExecSQL;
Transaction.Commit
end;
end;

← →
Dron (2004-05-25 16:23) [3]

Спасибо. Все работает. Вот о чем забыл, о том забыл. Большое человеческое спасибо :)!!!!!!!!!!!

Проблема с использованием Events в Interbase Найти похожие ветки