[ Lazarus SQLite3 使用方法 ]
①SQLite3.dllをダウンロードする。
https://sqlite.org/download.html
Windows用のプリコンパイル済みバイナリから
SQLiteバージョン3.30.1用の64ビットDLL（x64）
sqlite-dll-win64-x64-3300100.zip(ファイル名はバージョンで異なる)
解凍後に「SQLite3.dll」をプロジェクトのフォルダに置くかLazarusの
PATHの通ったフォルダに置く。
②TSQLiteConnectionコンポーネント
③TSQLTransactionコンポーネント
④TSQLQueryコンポーネント
をフォーム上にドラッグ＆ドロップすると
uses節に必要なものが追加される。
⑤TSQLiteConnectionのプロパティの設定
DataBaseName = (例：c:\LazarusProject\Sample\)
[…]をクリックしてdbファイルを選択する。
⑥TSQLTransactionのプロパティの設定
Database = TSQLiteConnectionを選択
⑦TSQLQueryのプロパティの設定
Database = TSQLiteConnectionを選択
Transaction = TSQLTransactionを選択
[ サンプルコード ]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
str, str2: string;
begin
SQLiteConnection1.Close;
SQLiteConnection1.Open;
SQLTransaction1.active := true;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text := 'select * from sample.db;';
SQLQuery1.Open;
SQLTransaction1.Commit;
str := Query.FieldByName('company').AsString;
str2 := Query.FieldByName('address').AsString;
ShowMessage(str + #13#10 + str2);
SQLQuery1.Close;
end;
procedure TForm1.OnDestroy;
begin
SQLQuery1.Free;
SQLTransaction1.Free;
SQLiteConnection1.Close;
SQLiteConnection1.Free;
end;
