Koneksi Database Ms Access dengan Delphi

Hallo semua, apa kabar? Sudah lama saya ngga posting tutorial Delphi… Sekarang, sekedar melanjutkan tutorial saya sebelumnya. Dilatarbelakangi statistik pencarian artikel, ternyata banyak juga yang memerlukan artikel tentang koneksi database Ms Access melalui Delphi.
Nah, sebenarnya sudah banyak tutorial yang membahas masalah ini.. Tetapi kebanyakan mengalami kesulitan karena koneksi-nya harus melibatkan DNS yang terkadang merepotkan. Kali ini, saya coba menulis bagaimana mendapatkan hasil yang sama tetapi dengan cara yang relatif tidak merepotkan.
Idenya adalah menggunakan ADO, tetapi dengan terminologi yang sangat sederhana. Langkah-langkahnya kira-kira sebagai berikut:

1. Pastikan Anda sudah memiliki database dalam format Ms Access dan mengetahui strukturnya. Sebagai contoh nama file Access Anda adalah data.mdb.
2. Buka program Delphi.
3. Desain form sesuai kebutuhan, karena disini hanya akan menuntun Anda bagaimana mengkoneksikannya.
4. Tambahkan sebuah ADOConnection. Komponen ini ada di tab ADO.
5. Double Click area kosong pada form untuk menangani kejadian OnCreate miliki Form. Kemudian ketikkan script berikut:
   
procedure TForm1.FormCreate(Sender: TObject);
var
ConnString, Path : string;
begin
//ambil path
Path := ExtractFilePath(Application.ExeName);
//atur ConnectionString-nya
ConnString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
+'User ID=Admin;'
+'Data Source='+Path+'data.mdb;'
+'Mode=Share Deny None;'
+'Extended Properties="";'
+'Jet OLEDB:System database="";'
+'Jet OLEDB:Registry Path="";'
+'Jet OLEDB:Database Password="";'
+'Jet OLEDB:Engine Type=5;'
+'Jet OLEDB:Database Locking Mode=1;'
+'Jet OLEDB:Global Partial Bulk Ops=2;'
+'Jet OLEDB:Global Bulk Transactions=1;'
+'Jet OLEDB:New Database Password="";'
+'Jet OLEDB:Create System Database=False;'
+'Jet OLEDB:Encrypt Database=False;'
+'Jet OLEDB:Don''t Copy Locale on Compact=False;'
+'Jet OLEDB:Compact Without Replica Repair=False;'
+'Jet OLEDB:SFP=False';
//Set properti connection String ADOConnection1
ADOConnection1.ConnectionString := ConnString;
end;

6. Untuk sementara, simpan project Anda. Jangan lupa untuk menyimpan file data.mdb berada pada folder yang sama dengan folder executable file Anda.
7. Untuk mengakses sebuah tabel, Anda bisa menggunakan ADOTable atau ADOQuery. Misalkan Anda menggunakan ADOTable. Jadi, letakkan sebuah komponen ADOTable pada Form.
8. Atur properti ADOTable1 sebagai berikut:Connection : ADOConnection1 TableName : data_pertama (misalkan Anda memiliki nama tabel data_pertama pada data.mdb)
9. Untuk komponen visual, tambahkan sebuah DBGrid dan untuk mengaksesnya, tambahkan komponen DataSource. Kemudian atur properti-nya sebagai berikut:DBGrid1 DataSource : DataSource1
   DataSource1
   DataSet : ADOTable1
10. Terakhir, untuk mengaktifkan ADOTable1, tidak bisa melalui design-time. Anda harus mengaktifkannya saat run-time. Oleh karena itu, Anda dapat menambahkan satu baris perintah pada kejadian OnCreate milik Form1. Sehingga script di atas menjadi seperti ini:
procedure TForm1.FormCreate(Sender: TObject);
var
ConnString, Path : string;
begin
//ambil path
Path := ExtractFilePath(Application.ExeName);
//atur ConnectionString-nya
ConnString := 'Provider=Microsoft.Jet.OLEDB.4.0;'
+'User ID=Admin;'
+'Data Source='+Path+'data.mdb;'
+'Mode=Share Deny None;'
+'Extended Properties="";'
+'Jet OLEDB:System database="";'
+'Jet OLEDB:Registry Path="";'
+'Jet OLEDB:Database Password="";'
+'Jet OLEDB:Engine Type=5;'
+'Jet OLEDB:Database Locking Mode=1;'
+'Jet OLEDB:Global Partial Bulk Ops=2;'
+'Jet OLEDB:Global Bulk Transactions=1;'
+'Jet OLEDB:New Database Password="";'
+'Jet OLEDB:Create System Database=False;'
+'Jet OLEDB:Encrypt Database=False;'
+'Jet OLEDB:Don''t Copy Locale on Compact=False;'
+'Jet OLEDB:Compact Without Replica Repair=False;'
+'Jet OLEDB:SFP=False';
//Set properti connection String ADOConnection1
ADOConnection1.ConnectionString := ConnString;
//Aktifkan ADOTable1
ADOTable1.Active := True;
end;

11. Jalankan

cereeeeeeeeeeeeeeeeeeeng

Artikel Terkait: