Mengisi combobox dari field database pada delphi 7 dengan ms.access

1.      Masukan komponen yang di butuhkan.

a.       Combobox----------àstandard------àCombobox

b.      AdoQuery-----------àADO----àADOQuery

Atau seperti form berikut.

2.      Koneksikan ADOQuery dengan database yang telah dibuat sebelumnya. Caranya klik AdoQuery, lihat di pojok kiri, pada jendela properties. Pilih connectionString-àUseconnectionStringàBuildàmicrosoft jet 4.0 ole db provideràpilih penyimpanan database.

Note: Database sudah ada sebelumnya. Saya menganggap yang membaca artikel ini sudah punya dasar delphi.

 

3.      klik pada form, (pada procedure form_Create atau sesuaikan dengan kebutuhan)

4.     isikan syntax berikut.

 

begin ADOQuery1.SQL.Text := 'select * from barang'; ADOQuery1.Active := true;ADOQuery1.First;  While not ADOQuery1.Eof do begin ComboBox1.Items.Add(ADOQuery1['kodebarang']); ADOQuery1.Next; end; end;

Catatan :

-          Barang pada ‘select * from barang’ adalah nama table, sesuaikan dengan table masing-masing.

-          Kodebarang pada (ADOQuery1['kodebarang']); adalah nama field dari table yang bersangkutan, sesuaikan.

-          While not adoquery1.eof do adalah syntax untuk pengulangan, artinya, ia terus menambahkan yang ada pada field kodebarang sampai data pada field tersebut habis.

-          Jika ada pertanyaan, silahkan isi kolom komentar.