Menambahkan Item Database ke Combo Box

Pada tutorial kali ini kita akan belajar cara untuk menambahkan item atau data database ke combo box, sehingga ketika kita memilih data / combo box di klik, maka akan muncul daftar item / data dari database, berdasarkan record yang kita pilih, untuk memulai tutorial ini seperti biasa siapkan terlebih dulu file database accessnya, di sini saya menggunakan format .mdb, silahkan konvert terlebih dahulu format filenya, berikut screen shootnya :

jika sudah siap, kita mulai ke Visual Basic :

1. Jalankan VB dengan project satandar EXE
2. Tambahkan 4 label, 1 combo box dan 2 text box, lalu atur propertiesnya seperti ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Label 1	Caption	(Judul)
Label 2	Caption	(ID User
Label 3	Text	Nama
Label 4	Text	Alamat
Text 1	Text	(Kosong)
Text 2	Text	(Kosong)
Combo 1	Text	(Kosong)

dan untuk ukuran huruf (font size), menyesuaikan, tapi disini saya setting 10
3. Jika sudah tuliskan script berikut :

'Awal Script untuk membuat koneksi antara vb dengan database
Dim Koneksi As New ADODB.Connection
Dim DtUser As New ADODB.Recordset

Sub Buka()
Set Koneksi = New ADODB.Connection
Koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database_BluesPedia.mdb"
Koneksi.CursorLocation = adUseClient
End Sub
'Akhir Script

Private Sub Form_Load()
Combo1.Clear
Call Buka

'Script untuk membuka file database
Set DtUser = New ADODB.Recordset
DtUser.Open "SELECT * FROM Data_User", Koneksi, adOpenDynamic, adLockOptimistic
Do Until DtUser.EOF

'Script untuk menambahkan item yang ada di database ke combo box
Combo1.AddItem DtUser!ID_User
DtUser.MoveNext
Loop
DtUser.Close
End Sub

Private Sub Combo1_Click()
Call Buka
Set DtUser = New ADODB.Recordset
DtUser.Open "SELECT * FROM Data_User WHERE ID_User='" & Combo1.Text & "'", Koneksi, adOpenDynamic, adLockOptimistic

DtUser.Requery
With DtUser
Combo1.Text = !ID_User
Text1.Text = !Nama
Text2.Text = !Alamat
End With
DtUser.Close

End Sub

4. Jika sudah, Jalankan program

Silahkan pilih data yang akan di tampilkan di text 1 dan 2, berdasarkan Id user yang di pilih,
jika sudah memilih, maka otomatis text 1 dan 2 akan menampilkan data sesuai database.

Sekian tutorial kali ini semoga bermanfaat