Hallo,
ich bekomme die IBEvents einfach nicht ans laufen:
Delphi-Quellcode:
begin
.
.
DataModule2.IBDatabase1.DatabaseName:= DataBase;
IBEvents1.Database:= DataModule2.IBDatabase1;
IBEvents1.AutoRegister:= True;
DataModule2.IBDatabase1.Open;
.
.
end;
procedure TForm1.IBEvents1EventAlert(Sender: TObject; EventName: string;
EventCount: Integer; var CancelAlerts: Boolean);
begin
if EventName = 'Update' then
Application.MessageBox('Es wurde ein Update gemacht!' ,'Achtung',16);
end;
die Eigenschaft Events ist im
OI schon auf 'Update' eingestellt.
In der
DB steht folgender Trigger:
SQL-Code:
SET TERM ^^ ;
CREATE TRIGGER TR_UPDATE FOR KUNDEN ACTIVE AFTER UPDATE POSITION 0 AS
begin
Post_Event 'Update';
end
^^
SET TERM ; ^^
Es wird keine Fehlermeldung ausgegeben. Es passiert einfach NICHTS!
Was ist hier falsch??
tschüß, Steffen