[ Lazarus SQLite3 使用方法 ]

[ 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;