Delphi ZeosLib: горячий, чтобы включить Sqlite3 foreign_keys?

Question

Я использую ZEOSDBO-7.1.4 с Delphi 7 для управления моей базой данных sqlite3 приложения. Я создал некоторые внешние ключи, чтобы DELETE CASCADE удалял строки из таблицы подробностей. Но по умолчанию внешние ключи отключены, поэтому вам нужно включить его в начале работы с БД. Я попробовал ExceuteDirect ('PRAGMA foreign_keys = ON') сразу после Connect, но это не помогло. Затем я попытался позвонить PRAGMA после того, как транзакция открыта и перед запросом, но это также не помогло.

Как включить Sqlite3 foreign_keys с ZEOSDbo в Delphi?

Answer 1

Ответ в источниках ZEOSDBO!

Перед тем, как открыть соединение, просто сообщите об этом объекту foreign_keys=True.

Код:

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