Cara Memasukkan Data dari MS. Access ke ComboBox pada Delphi

Kali ini saya ingin share ilmu lagi tentang delphi. Sesuai dari judul di atas, kita langsung saja ke TKP. Pada contoh ini saya menggunakan component ADO yang sudah disediakan delphi, yaitu ADOConnention dan ADOQuery yang akan kita gunakan untuk koneksi ke database. Dan juga satu ComboBox misal seperti pada gambar di bawah ini.

Misalkan tabelnya seperti ini.

Id	Nama
0001	ABD HAFIDZ
0002	ANDI FIKRIAN NURDIN
0003	ANDI ADLAN MAULANA
0004	ADI SARMANTO
0005	HASNAWI

Selanjutnya pada event FormCreate ketikkan code dibawah ini.

//koneksi ke database
ADOConnection1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=namaDatabase.mdb;Persist Security Info=False';
ADOConnection1.LoginPrompt:= False;

//pengambilan data dengan query SQL
with ADOQuery1 do begin
  Connection:= ADOConnection1;
  Close;
  SQL.Clear;
  SQL.Add('select Nama from namaTabel');
  Open;
end;

//memasukkan data dari query ke dalam combobox
while not ADOQuery1.Eof do begin
  ComboBox1.Items.Add(ADOQuery1.FieldValues['nama']);
  ADOQuery1.Next;
end;
ComboBox1.ItemIndex:= 0;

Dan Hasilnya seperti ini.

Sekian.. semoga bermanfaat..