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
- 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
