Menampilkan Data Dari Tabel Dalam Database Ke ComboBox

Pada postingan sebelumnya saya membahas tentang Hanya Bisa Input Angka dan Huruf, kali ini kita lanjutkan dengan membahas cara menampilkan data ke ComboBox dari data dalam database. Caranya sebenarnya hampir sama dengan additem pada combobox tinggal kita tambahi perulangan. Anda penasaran?

Ikutilah langkah-langkah berikut ini :
Buatlah sebuah form seperti gambar berikut ini

Tampilkan Gambar

Sebagai contoh saya menggunakan database ms access 2003 dengan nama DB_MHS.mdb dan tabelnya adalah Tbl_Mhs. Desain tabelnya seperti yang nampak pada gambar berikut ini yang tentunya sudah ada datanya :

Tampilkan Gambar

Jika sudah mendesain formnya silahkan silahkan tambahkan sebuah modul yang nantinaya kita gunakan untuk mengetikan kode koneksi vb dengan databasenya. Klik menu Project-Add Modul kemudian ketikan modul berikut ini :

Public Conn As New ADODB.Connection

'Untuk koneksi ke database ms access
Public Sub KonekDb()
    Set Conn = New ADODB.Connection
    
    'Jika menggunakan ms access 2007 keatas pakailah koding berikut:
    'Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & App.Path & "\db_mhs.accdb;"
    'Conn.CursorLocation = adUseClient

    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB_MHS.mdb"
    Conn.CursorLocation = adUseClient
End Sub

Lanjutkan ke koding formnya, silahkan double klik formnya dan tulis koding berikut ini pada  General Deklaration

Dim RsDataCombo As New ADODB.Recordset

Kemudian tulislah koding pada bagian Form Load koding ini berfungsi untuk menampilkan data ke ComboBox yaitu data nim dan nama pada saat form di load atau dijalankan

Private Sub Form_Load()
    Call KonekDb
    Combo1.Clear
    Set RsDataCombo = New ADODB.Recordset
    RsDataCombo.Open "SELECT * FROM Tbl_Mhs", Conn, adOpenDynamic, adLockOptimistic
    Do Until RsDataCombo.EOF
        Combo1.AddItem RsDataCombo!nim & Space(5) & RsDataCombo!nama
        RsDataCombo.MoveNext
    Loop
    RsDataCombo.Close
End Sub

Note : Space(5) maksudnya adalah memberi jarak 5 spasi antara data nim dan nama pada combobox

Jika sudah silahkan ketikan koding lagi pada Combo1 Click kodingnya seperti berikut in, berfungsi untuk menampilkan data pada textbox  dan nim pada combobox sesuai dengan data nim yang dipilih atau di klik di combo box. 

Private Sub Combo1_Click()
    Call KonekDb
    Set RsDataCombo = New ADODB.Recordset
    RsDataCombo.Open "SELECT * FROM Tbl_Mhs WHERE nim='" & Left(Combo1.Text, 5) & "'", _
                     Conn, adOpenDynamic, adLockOptimistic
    RsDataCombo.Requery
    With RsDataCombo
        If .EOF And .BOF Then
             MsgBox "NIM TIDAK DITEMUKAN", _
                    vbOKOnly + vbCritical, "Error"
        Exit Sub
        Else
            Combo1.Text = !nim
            Text1.Text = !nama
            Text2.Text = !alamat
        End If
    End With
    RsDataCombo.Close
End Sub

Note : Left(Combo1.Text, 5) maksudnya adalah mengambil 5 karakter dari kiri sesuai panjang field nim dalam tabel. Kenapa pakai perintah left segala..? karean yang di tampilkan dalam combobox tidak hanya nim saja tapi ada data nama juga padahal perintah wherenya berdasarkan nim.

Supaya lebih jelas silahkan lihat gambar screenshot kodingnya berikut ini:

Tampilkan Gambar

 Jika sudah selesai silahkan di jalankan, kalau berhasil maka akan tampil seperti gambar animasi berikut ini:

Trik ini dapat anda terapkan pada database selain Ms Access misalnya Ms SQL Server,MySQL Server dll tinggal setting atau ganti koneksinya saja. Semoga tulisan ini bermanfaat dan membantu, jika kurang jelas dengan postingan menampilkan data ke ComboBox silahkan kasih komentar di kolom komentar.

Silahkan Download Source Codenya di Link di bawah ini

Link Download Source Code :

• Link 1
• Link 2
• Link 3

Untuk lebih jelas lihat video berikut ini 

Keywords :

Menampilkan data ke combobox, Menampilkan Data Dari Tabel Dalam Database Ke ComboBox, Trik ComboBox,Menampilkan data dari database ke combobox,Cara Mengisi Combobox Dari Database VB,Cara Menampilkan Data Dari Database Ke Combobox,Menampilkan data yang ada pada database di combobox VB6,Membuat List ComboBox Yang Diambil Dari Database,Cara Menambahkan List Item Pada ComboBox Di Visual Basic,Cara Isi ComboBox dari Database VB6