KONEKSI DATABASE DENGAN ADO
(ActiveX Data Object)
ActiveX Data Object atau disingkat ADO adalah model akses data yang digunakan untuk berinteraksi dengan database. ADO sama dengan pendahulunya yaitu Data Access object atau DAO namun dengan perbedaan bahwa ADO telah dioptimasi untuk penggunaan database melalui internet atau intranet. ADO merupakan bagian dari Microsoft Data Access Component atau MADC dan supaya anda bisa menggunakan ADO ada harus menginsatall MADC ini, dan biasanya pada saat kita meng-install Delphi MADC sudah diikut sertakan. Pada Delphi untuk mengakses database mengunakan ADO anda bisa gunakan komponen ADO yang terletak pada Pallet (TAB) ADO.
A. Koneksi ke database dengan ADO
1. Buat database pada Access sebagai berikut :
 |
| Tabel |
2. Buat Aplikasi baru pada Delphi dan pasang komponent
seperti gambar berikut :
 |
| Adotable |
 |
| data-source |
 |
| dbgrid |
 |
| dbnavigator |
untuk Dbgrid terletak pada pallet Data Controls , Dbnavigator terletak Data Controls , DataSource terletak pada pallet Data Access , AdoTable terletak pada palet ADO .
 |
| Daftar-Nilai |
3. Atur propertiesnya :
1) Pada Adotable atur Connection String dengan cara click pada … pilih Use conection string lalu click Build. Pilih Microsoft Jet 4.0 OLE DB Provider lalu tekan next, Pilih database yang anda buat, diakhiri dengan penekanan Ok. Setelah itu masukan Table Name pada properties adotable sesuai dengan table yang anda buat.
2) Pada Datasource atur properties dari dataset menjadi adotable1
3) Pada Dbgrid dan Dbnavigator atur properties dari datasource menjadi datasource1
4. Coba anda Run
B. Event OncalcFileds Pada Komponent table (TAdotable / TTable)
Pada contoh diatas adalah program untuk mengolah data nilai, tetapi yang dimasukan adalah nilai tugas, uts dan uas, permasalahan yang muncul sekarang adalah bagaimana cara mengitung total dan grade secara otomatis ?
Untuk Melakukan hal tersebut kita bisa menggunakan Event OncalcFileds pada component table Caranya sebagai berikut :
1. Pada Component AdoTable Click Kanan lalu pilih Files Editor dan pada Filed editor tersebut click kanan lagi dan pilih Add all field sehingga semua filed yang ada bisa masuk dan kelihatan semua.
2. Untuk menghitung Total kita memerlukan satu field lagi yaitu total dengan type Float.
Untuk membuatnya caranya adalah sebagai berikut Click kanan pada Filed editor pilih New field sehingga muncul sepeti gambar berikut :
 |
| Field |
Pada Name isi dengan Total dan pada Type pilih menjadi Float, sedangkan pada Field Type pilih Calculated dan diakhiri dengan penekanan tombol Ok.
3. Pada Event OncalcFiled Adotable1 masukan script Berikut
Adotable1total.Value:=(Adotable1tugas.Value*0.2)+(Adotable1uts.Value *0.3)+( Adotable1uas.Value*0.5);
Untuk mambuat Grade anda bisa lakukan hal yang sama sepert pada menghitung total.
silahkan coba dicoba , mari belajar bersama buat para master delphi kalu ada yang kurang mohon tambahannya , ini hanya hasil belajar saya terus saya tulis lagi in my blog biar tidak lupa dan hilang.
Salam Otodidak
0 comments: