#2 Events Suport

[Anonymous]

UIB Does or will support for database events?
I mean that fired with POST_EVENT 'EVENT_NAME' on a
trigger in the database.

[avail]

in db:

create or alter procedure POSTEVENT (
EVENT_NAME varchar(64))
as
begin
post_event EVENT_NAME;
end;

in Application

ExecSQL('EXECUTE PROCEDURE POSTEVENT(' + QuotedStr(eventName) + ')');

procedure TFdbDriver.ExecSQL(const sql: string);
begin
QueryTransaction(tStart);
try
Query.SQL.Text := sql;
Query.Execute;
QueryTransaction(tCommit)
except
QueryTransaction(tRollback);
end;
end;