SQLite, Firedac Delphi FMX Windows

File > New > Multi Device Application - Delphi > Blank Aplication Click Ok,
lalu pada Tool Palette cari dan tambahkan ke form1 :

1. FDPhysSQLiteDriverLink
2. FDGUIxWaitCursor
3. FDConnction
4. FDQuery

Atur properti dai FDConnection1 dengan cara pada panel Structure Click FDConnection1 kemudian pada oject inspector atur properti FDConection1 sebagai berikut :

• DriverName => SQLite
• LoginPrompt => False
• Params > Database => TestDBSQLite.s3db

Setelah itu baru atur proprti FDConnectio1 Conected => True. Nah ketika aplikasi dijalankan kita akan melihat pada foldr exe aplikasi aka ada file bau TestDBSQLite berextention s3db.
Jika seelumnya sudah ada database SQLite maka properti params > databasse dari FConection1 diisi dengan alamat dataase umpama database berada di diDrive D folder My Database subfolder SQLite dengan nama DB1.s3db maka params > databasse => D:\My Database\SQLite\DB1.s3db. Cara yan sama juga datapat dilakuka walau database SQLit belum ada namu kita ingin menempatka database pada directory tertentu.
atur properti FQuery1 > Connection => FDConnection1.
Sekaran database suah ada namun masih kosog atau elu ada tablenya.
bagaimaa cara menamaka table ?

Tambahkan event AfterConnect pada FConection11 isi degan ;

procedure TForm1.FDConnection1AfterConnect(Sender: TObject);
begin
  FDConnection1.ExecSQL('CREATE TABLE IF NOT EXISTS Table1 (T_ID Integer PRIMARY KEY AUTOINCREMENT, T_Nama VarChar(75), T_TglLahir VarChar(10), T_Gender Integer)') ;
end;

Atau degan cara kedua

procedure TForm1.FDConnection1AfterConnect(Sender: TObject);
begin
  FDQuery1.ExecSQL('CREATE TABLE IF NOT EXISTS Table1 (T_ID Integer PRIMARY KEY AUTOINCREMENT, T_Nama VarChar(75), T_TglLahir VarChar(10), T_Gender Integer)') ;
end;

Atau degan cara ketiga

procedure TForm1.FDConnection1AfterConnect(Sender: TObject);
begin
  FDQuery1.SQL.Clear ;
  FDQuery1.SQL.Text := 'CREATE TABLE IF NOT EXISTS Table1 (T_ID Integer PRIMARY KEY AUTOINCREMENT, T_Nama VarChar(75), T_TglLahir VarChar(10), T_Gender Integer)' ;
  FDQuery1.ExecSQL ;
end;

Untuk mehapus table

procedure TForm1.FDConnection1AfterConnect(Sender: TObject);
begin
  FDQuery1.ExecSQL('DROP TABLE IF EXISTS Table1') ;
end;

Koneksi Database SQLite dega iredac seara Run Time. Buat procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  with FDConnection1 do begin
    Loginprompt := False ;
    Drivername := 'SQLite' ;
    FDConnection1.Params.Values['Database'] := 'TestDBSQLite.s3db' ;
    Connected := True ;
  end;
end;

Untuk menguji kita coba buat aplikasi sederhana baca disini.

Jika belum tau cara install SQLite baca disini.

Semoga bermanfaat,