Mengisi Data ComboBox Menggunakan DataBase MySql Pada Delphi 7

Assalamu'alaikum Warahmatullahi Wabarakatu.

Ketemu lagi dengan blog ini sudah lama tidak ngposting kali ini, saya akan sharing bagaimana sihh caranya mengisi/memasukkan data pada ComboBox berdasarkan Database????  terutama database MySql. Kali ini saya anggap sobat sudah tau bagaimana cara membuat database, nah langsung saja bahan-bahan yang disediakan kali ini :

1. ADOQuery1

2. DataSource1

3. ComboBox1

4. EditText1

Dan gambar di bawah ini adalah contohnya:

Kemudian letakkan listing dibawah ini pada ivent Form1 "OnShow" :

//Catatan ComboBox 1

ADOQuery1.Close; // Tutup Query jika Query terbuka

ADOQuery1.SQL.Clear; // Hapus SQL Commond

ADOQuery1.SQL.Add('select * from login'); //Sql untuk membuka tabel login

ADOQuery1.Open; // Membuka Query

//Melakukan Looping untuk memasukkan field ke dalam comboBox

while not ADOQuery1.Eof do

  begin

   ComboBox1.Items.Add(ADOQuery1['user_name']);

   ADOQuery1.Next;

  end;

ComboBox1.ItemIndex:=0;

Catatan:

1. Select * From "login" ubah yang bertanda kutip tersebut dengan nama tabel database kalian.

2. ComboBox1.Items.Add(ADOQuery1['user_name']); "user_name" rubah dengan nama field yang akan kalian tampilkan nanti.

Setelah selesai cara di atas lanjut Copy Paste listing program dibawah ini letakkan pada iven change/ klik 2x pada ComboBox1 :

ADOQuery1.Close; // Tutup Query jika Query terbuka

ADOQuery1.SQL.Clear; //Hapus SQL Commond

ADOQuery1.SQL.Add('select * from login where user_name ='+QuotedStr(ComboBox1.Text)); //Commond untuk membuka tabel login

ADOQuery1.Open;

Edit1.Text:=ADOQuery1['password'];

Catatan:

1. ADOQuery1.SQL.Add('select * from login where user_name ='+QuotedStr(ComboBox1.Text)); "ubah user_name sesuai field sesuaikan saja dengan di prosedur pertama yg di atas-atas.

2. Edit1.Text:=ADOQuery1['password']; "ubah field password dengan field ke-2 yang akan di tampilkan di Edit.Text kalian."

ok selesai langsung jalankan program kalian dengan baik dan ucapkan Alhamdulillah jika berhasil, jika kalian menemukan kesulitan atau masih bingung, silahkan kalian komentar di bawah postingan ini yahhh. Ssekian informasi yang dapat saya share ke kalian semoga bermanfaat.

Wassalam

.