Koneksi Database Acces ke Delphi

Karena Pemanfaatan Database dalam membangun sebuah aplikasi tidak akan dapat kita pungkiri. didalam database lah data-data akan tersimpan; Sebagai bahan referensi untuk Koneksi database Access ini kita akan memanfaatkan Komponen AdoConnection dari Delphi. Anda tidak perlu repot-repot menginstalnya karena secara Default Komponen ini sudah ada.

Jadi Kronologinya Begini, Anggap Saja Kita Akan Membangun Sebuah Aplikasi Yang akan Menampung Data-Data Teman. Singkatnya Aplikasi Buku Telepon. Jadi, Yang akan ada didalam Database adalah Tabel yang berisi Field (Nomor Urut, Nama, Alamat dan Nomor Telepon). Biar gak Panjang lebar mari kita mulai dengan membuat databasenya Terlebih dahulu dengan memanfaatkan Database Acces.

Step 1 - Membuat Database

1. Buka Microsoft Acces Sobat -> Klik Blank Database -> Berinama Database-nya -> Simpan dengan Format .mdb (2002-2003 Format) -> Create.

2. Selanjutnya Klik Menu View -> Design View -> Berinama Tabelnya -> OK
3. Dibawah Ini adalah Format Tipe Data Yang saya Gunakan :

4. Save Database Sobat (Kalo Bisa didalam Folder Projek Anda). Sampai disini Untuk Urusan database Kita anggap Sudah Beres selanjutnya mari kita koneksikan database Tersebut ke Delphi.

Step 2 - Koneksi database Acces Ke Delphi

1. Buka delphi Anda. Pada Tambahkan Beberapa Komponen Kedalam Form Anda

- Dalam Pallete Ado -> Tambahkan KOmponen -> AdoKoneksi dan Ado Table
- Dalam Pallete DataControl -> Tambahkan Komponen -> DBGrid
- Dalam Pallete DataAcces -> Tambahkan Komponen -> Datasource

Untuk Hasil Sementara Form Saya Seperti Ini :

2. Selanjutnya Mari Kita Koneksikan. Caranya :

- Klik Satu Kali Pada Komponen AdoKoneksi dalam Form -> Lihat Objek Inspector -> Pada ConnectionString -> ... -> Build

- Pilih Microsoft Jet OLE Provider -> Next -> Cari Databasenya -> Test Koneksi -> OK -> OK

- Beralih Ke Komponen AdoTable -> Koneksi Pilih AdoKoneksi

-> TableName -> Nama Tabel yang Tadi dibuat
-> Aktiv ->True

- Beralih Ke Komponen Datasource -> Dataset -> AdoTable
- Beralih Ke Komponen DBGrid -> Datasource -> Datasource1

Sampai Disini Kita sudah Bisa Mengkoneksikan Database Acces Ke Delphi. Untuk Hasil Akhir saya Seperti ini :

Pada Postingan Sebelumnya Kita Sudah Membahas Bagaimana Mengkoneksikan Database Ke Delphi. Mulai dari Database Desktop, Database Acces dan Database My SQL Selanjutnya Admin Mau Sharing Tentang Bagaimana Cara Input Data Kedalam Database Acces Dengan Menggunakan Delphi. Jika Anda Belum Faham Bagaimana Koneksi Database Acces Ke Delphi, Silahkan Lihat Postingan Sebelumnya disini

Sekedar Informasi tentang komponen yang kita gunakan disini adalah sebagai berikut
- 3 Buah Komponen Edit
- 4 Buah Komponen Button
- 1 Buah Komponen Combobox
- 2 Buah Komponen Radio Button
- 1 Buah Komponen DBGRID
- 1 Buah Komponen AdoConnection
- 1 Buah Komponen Datasource

Untuk Masalah Koneksi Saya Kira Sudah Tidak Ada Masalah Lagi. Selanjutnya mari Kita Mulai Mendesain Aplikasinya.

Ceritanya Kita akan Membuat Aplikasi CRUD Data Mahasiswa. Mari kita mulai mendesain Aplikasinya. kalo Desain Saya Seperti ini :

Kedua, Buatlah Database-nya. saya kira Sudah Tidak ada masalah Lagi. Jika Tidak Baca Postingan Sebelumnya.

Ketiga, Koneksikan Database yang sudah dibuat.
Keempat, Klik dua kali Button Simpan dan Masukan Code ini :

01	var
02	jk : String;

03	begin
04	if RadioButton1.Checked=true then

05	jk:='Laki-Laki' else jk:='';
06	if RadioButton2.Checked=true then

07	jk:='Perempuan' else jk:='';
08	ADOTable1.Append;

09	ADOTable1.FieldByName('Nama').AsString:=Edit1.Text;
10	ADOTable1.FieldByName('NIM').AsString:=Edit2.Text;

11	ADOTable1.FieldByName('JenisKelamin').AsString:=jk;
12	ADOTable1.FieldByName('Agama').AsString:=ComboBox1.Text;

13	ADOTable1.FieldByName('Keterangan').AsString:=Edit3.Text;
14	ADOTable1.Post;

15

end;

Kelima,
Klik Dua Kali Pada Button Hapus dan Masukan Kode ini :

1	ADOTable1.Delete;

Klik Dua Kali Pada Button Edit dan Masukan Kode ini :

1	// Misal Mau Edit Keterangan
2	ADOTable1.Edit;

3	ADOTable1.FieldByName('Keterangan').AsString:=Edit3.Text;
4	ADOTable1.Post;

Untuk Proses Update ini sebenarnya akan menjadi lebih bagus jika kita menambahkan Sebuah Form baru dimana data-data yang akan di update akan ditampilan pada komponen edit yang ada di form tersebut dan proses updatenyapun ada pada Form Tersebut (Button).


Klik Dua Kali Pada Button Batal dan Masukan Kode ini :

1	ADOTable1.Cancel;

Hasil Saya seperti ini :