[英]How to make an event after insert on Firedac Sqlite database connection?
我想了解我的数据库连接。 每次数据库中的任何表都有更新时,我想在代码中使用一个函数(如果可能的话,最好使用已执行查询中的参数)。
我正在使用FireDac组件; TFDConnection,TFDPhysSQLiteiteDriverLink,TFDQuery和TFDEventAlerter。
初始化代码:
FDEventAlerter1.Names.Clear;
FDEventAlerter1.Names.Add('intEv');
FDEventAlerter1.Options.Synchronize := true;
FDEventAlerter1.Options.Kind := 'Events';
FDEventAlerter1.OnAlert := FDEventAlerter1Alert;
FDEventAlerter1.Active := true;
OnAlert上的代码
procedure TDataModule1.FDEventAlerter1Alert(ASender: TFDCustomEventAlerter;
const AEventName: string; const AArgument: Variant);
begin
ShowMessage('test');
end;
来自CreateTable查询的代码:
CREATE TABLE IF NOT EXISTS int(
ValuesInt INTEGER NOT NULL,
ValuesIntTime TIMESTAMP DEFAULT CURRENT_TIMESTAMP
);
DROP TRIGGER IF EXISTS intEv;
CREATE TRIGGER IF NOT EXISTS intEv
AFTER INSERT ON int
BEGIN
SELECT POST_EVENT('trigger');
END;
插入查询中的代码每10秒执行一次:
INSERT INTO int(valuesint) VALUES (:int);
当我运行此命令时,数据库将充满整数,但不会触发任何事件。
TSQLiteDatabase.onUpdate (第9.1章)给了我所需的信息。
sqlDb: TSQLiteDatabase;
sqlDb := TSQLiteDatabase(FDConnection1.CliObj);
sqlDb.OnUpdate := DoUpdate;
procedure TDataModule1.DoUpdate(ADB: TSQLiteDatabase; AOper: Integer; const ADatabase, ATable: String; ARowid: int64);
begin
//http://www.sqlite.org/c3ref/c_alter_table.html
if AOper = {SQLITE_INSERT}18 then
sleep(1);
end;
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.