Menambahkan Item Database Ke Combo Box

Pada tutorial kali ini kita akan berguru cara untuk menambahkan item atau data database ke combo box, sehingga dikala kita menentukan data / combo box di klik, maka akan muncul daftar item / data dari database, menurut record yang kita pilih, untuk memulai tutorial ini menyerupai biasa siapkan terlebih dulu file database accessnya, di sini aku memakai format .mdb, silahkan konvert terlebih dahulu format filenya, berikut screen shootnya :

kalau 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, kemudian atur propertiesnya menyerupai ini :

Tool BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Label 1Caption(Judul)
Label 2Caption(ID User
Label 3TextNama
Label 4TextAlamat
Text 1Text(Kosong)
Text 2Text(Kosong)
Combo 1Text(Kosong)

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

'Awal Script untuk menciptakan 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, menurut Id user yang di pilih,
kalau sudah memilih, maka otomatis text 1 dan 2 akan menampilkan data sesuai database.

Sekian tutorial kali ini biar bermanfaat

Comments