delphi - Delphi ZeosLib：热启用 Sqlite3 foreign_keys？

Question

我使用 ZEOSDBO-7.1.4 和 Delphi 7 来管理我的应用程序 sqlite3 数据库。我创建了一些外键以允许 DELETE CASCADE 从详细信息表中删除行。但默认情况下外键禁用，因此您必须在开始使用 DB 时启用它。我在 Connect 之后尝试过 ExceuteDirect('PRAGMA foreign_keys=ON') ，但没有帮助。然后我试图在事务打开之后和查询之前调用 PRAGMA，但它也没有帮助。

如何在 Delphi 中使用 ZEOSDbo 启用 Sqlite3 foreign_keys？

Answer 1

ZEOSDBO 资源中的答案！

只需foreign_keys=True在打开连接之前为连接对象提供一个属性。

编码：

...    
FDbConnection.Protocol := 'sqlite-3';
FDbConnection.Properties.Add('foreign_keys=TRUE');
FDbConnection.Connect;