File > New > Multi Device Application - Delphi > Blank Aplication Click Ok,
lalu pada Tool Palette cari dan tambahkan ke form1 :
- FDPhysSQLiteDriverLink
- FDGUIxWaitCursor
- FDConnction
- 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,
