Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Cara Mengisi Combobox Dari Database VB

· · 0 comments
Assalamu'alaikum, wr.wb

Cara Menampilkan Data Dari Database Kedalam Combobox - Selamat berkunjung rekan-rekan di blog ini. Combobox merupakan salah satu toolbox pada VB (visual basic) yang sering digunakan dalam membuat sebuah aplikasi atau program. Kelebihan combobox adalah dapat menampilkan data dalam bentuk dropdown, sehingga memudahkan kita dalam memilih data tersebut.

Cara mengisi combobox dengan item atau data bisa menggunakan dua metode. Pertama dengan cara manual yaitu memasukan list item dengan cara mengetikan pada form load, misalnya :

Combo1.AddItem "Laki-laki"
Combo1.AddItem "Perempuan"

Yang kedua dengan cara mengambil data dari tabel database. Untuk data yang bersifat tetap seperti jenis kelamin, status nikah dan belum menikah, PNS dan honorer dan lain-lain sebaiknya kita menggunakan cara manual yaitu mengisi langsung list comboboxnya pada form load atau lewat properti combobox tersebut.

Namun jika data yang akan kita inputkan kedalam combobox lebih banyak atau memungkinkan datanya berubah-ubah maka akan lebih baik menggunakan source data pada tabel database. Misalnya pada form pembelian barang kita mengambil kode barang dan nama barang pada tabel barang.

Menampilkan data dari database ke combobox visual basic :

1. Buat sebuah modul untuk koneksi kedatabase sehingga memudahkan kita dalam pengkoneksian data pada setiap form program yang kita buat :

Sub koneksi()
Set conn = New ADODB.Connection
    conn.Provider = "microsoft.jet.oledb.4.0"
    conn.CursorLocation = adUseClient
    conn.Open App.Path & "\pustaka.mdb"
End Sub

Sebelumnya pastikan dulu setingan pada reference sudah tepat supaya modul diatas dapat bekerja , pilih menu project --> reference --> Ceklis pada Microsoft ActiveX Data Objects 2.0 Library.

Pada formload program isikan mantera berikut :

Private Sub Form_Load()
koneksi
Set rsdata = New ADODB.Recordset
          rsdata.Open "SELECT * FROM databuku", conn, , , adCmdText
          If Not rsdata.EOF Then
            comboBox1.Clear
            rsdata.MoveFirst
            Do Until rsdata.EOF
               comboBox1.AddItem rsdata!kode_buku
                rsdata.MoveNext
            Loop
            comboBox1.ListIndex = 0
          End If
End Sub

Pada contoh diatas nama databasenya adalah pustaka.mdb dan tabel databuku pada field kode_buku yang dijadikan sebagai source data pada comboBox1. Programnya jika dijalankan seperti screenshot dibawah ini :
cara mengisi combobox dari database

Moga bermanfaat. Begitulah.

Baca juga --> Pengertian normalisasi database

0 comments:

Post a Comment

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan