Insert Isi Database ke Combobox pada Delphi

Combobox  diperlukan untuk membuat sebuah aplikasi menjadi lebih tertata. Selain dapat diisikan langsung melalui properties- items, items pada combobox  juga dapat kita isikan dari database. Misalkan kita ingin memasukkan nama-nama penyakit dari tabel penyakit.

Berikut ini adalah contoh kode program untuk menyisipkan / menginsertkan isi suatu kolom dari database:

1. ADOQueryPenyakit.Active:=false;
2. ADOQueryPenyakit.SQL.Clear;
3. ADOQueryPenyakit.SQL.Add(‘select * from tb_Penyakit’);
4. ADOQueryPenyakit.Active:=true;
5. combobox1.Items.Clear;
6. while not ADOQueryPenyakit.Eof do
7. begin
8. combobox1.Items.Add(ADOQueryPenyakit.fieldbyname(‘nama_penyakit’).AsString);
9. ADOQueryPenyakit.Next;
10. end;

Contoh diatas adalah menyisipkan nama penyakit dari dalam database yaitu pada tabel penyakit. Komponen yang digunakan yaitu AdoConnection, AdoQuery, combobox1.