lazarus 開啟 sqlite3資料

老夫子的PASCAL發表於2024-07-09

感覺很簡單了。
而且支援的資料庫也很多。
SQLTransaction 這個功能還沒研究明白
看上去是事務處理的,但是必須?
// Ensure we're using the local sqlite3.dll 64DLL
SQLiteLibraryName := 'sqlite3.dll'; //ExtractFilePath(Application.ExeName)+'sqlite3.dll';
// Set the path to the database
SQLite3Connection1.DatabaseName := ExtractFilePath(Application.ExeName)+DataBasePath; ;
// SQLite3Connection1.Open;
SQLite3Connection1.Connected := True;
//'PRAGMA synchronous = OFF;'
SQLQuery1.close;
SQLQuery1.sql.clear;
SQLQuery1.sql.add('SELECT sqlite_version();');
SQLQuery1.Open;
//StatusBar1.Panels[0].Text :='SQLite OK '+FDQuery1.FieldByName('sqlite_version()').AsString;
ShowMessage('SQLite OK '+SQLQuery1.FieldByName('sqlite_version()').AsString);

相關文章