[ Delphi 7 ] Manipulasi Data Menggunakan ADOTabel

Mungkin Sudah banyak bertebaran tutorial atau tulisan" semacam ini, jadi ini hanya sebagai dokumentasi pribadi saja sebenarnya, jika ada yg terbantu oleh tulisan ini alangkah baiknya hehehe... ok

Siapkan Bahan" Berikut :

- Database Access [ XX.MDB ]

- Delphi 7

Langkah Pertama ( Membuat Database Menggunakan Access 07' )

- CTRL + N.

- Masukan Nama Databasenya misal XX.MDB ( Ingat ! Ditulis lengkap dengan ".MDB" ).

- Tabel kosong tentu akan tersaji secara default, Klik kanan, Design View.

- Beri Nama PERCOBAAN, Klik Save.

Sebelum masuk ke langkah selanjutnya, tabel ini akan kita gunakan untuk menyimpan data nama dan nim saja sebagai contoh, untuk penggunaan kedepannya silahkan kembangkan, lanjut.

- ID ( Primary Key ) [ Auto Number ].

- Nama [ Text ].

- Nim [ Text ].

- Save dan Tutup Jendela Accessnya.

Selanjutnya Pada Borland Delphi 7 Buatlah Sebuah Form seperti gambar dibawah :

1. ADOConnection1 [ ADO ].

2. ADOTable1 [ADO].

3. DataSource1 [ Data Access ].

4. DBGrid [ Data Controls ].

5. DBNavigator [ Data Controls ].

6. 3 Button [ Standart ].

7. 2 Label [ Standart ].

8. 2 Edit [ Standart ].

1.1 ADOConnection (Propertis)

- Klik 2x, Atau Klik Pada [ ... ] ConnetionString.

- Pilih Use Connection String, Lalu Klik Build...

- Pilih Microsoft Jet 4.0 OLEDB Provider. ( karena kita menggunakan database access ).

- Next, Klik [ ... ], dan cari tempat menyimpan database access bernama XX.MDB.

- Silahkan Klik Test Connection. Jika Berhasil kita kelangkah selanjutnya. Jika GAGAL, maka ulangi dari langkah ke 2.

- Kembali ke tampilan Delphi semula lihat pada Object Inspector > Propertis.

- Ubah Connected = True.

- Ubah Login Prompt = False.

1.2 ADOTable (Propertis)

Ubah Propertis pada ADOTable1 :

- Connection = ADOConnection1

- TableName = PERCOBAAN

- Active = True ( Nih biasanya kalo GAGAL, Tabelnya belum di Save / Simpan, atau namanya beda jadi sesuaikan sama tabel yg udah di buat di access sebelumnya )

1.3 DataSource (Propertis)

- Data Set = ADOTable1

1.4 DBGrid1 (Propertis)

- Datasource = DataSource1

1.5 DBNavigator1 (Propertis)

- DataSource = DataSource1

1.6 Button (Propertis)

- Caption Button1 = Simpan

- Caption Button2 = Ubah

- Caption Button3 = Hapus

1.7 Label (Propertis)

- Caption label1 = Nama

- Caption label2 = Nim

1.8 Edit (Propertis)

- Text Edit1 =

- Text Edit2 =

Sebenarnya Sampai Disini kita Sudah bisa memanipulasi data menggunakan DBNavigator, Menyimpan, Menghapus, Mengubah data pada database access.

Ok, Kita Masuk kedunia Coding ==>

# klik 2x pada button Simpan

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOTable1.Append;//Mempersiapkan Record untuk diisi data

ADOTable1['Nama'] := Edit1.Text;

ADOTable1['Nim'] := Edit1.Text;

ADOTable1.Refresh;

end;

# klik 2x pada button Hapus

procedure TForm1.Button2Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

# klik 2x pada button Ubah

procedure TForm1.Button3Click(Sender: TObject);

begin

ADOTable1.Edit;

end;

Kalau ada yg kurang jelas saya mohon maaf yang sebesar"nya saya hanya manusia :) Lets share