Membuat List ComboBox Yang Diambil Dari Database

Pada Tutorial Kali ini adalah tutorial melanjutkan postingan kami sebelumnya dimana pada postingan kami sebelumnya memunculkan ComboBox tanpa mengambil data dari database. dan kali ini akan kami bahas bagaimana cara menampilkan pada combobox yang datanya diambil datri database

Database yang kita ambil menggunakan format .mdb (Office Access)

Langkahnya adalah sebagai berikut :

Buatlah Satu Folder di Drive computer anda : contoh D:\Balajarvb

Buatlah satu database dengan nama DBContoh.mdb

masukan database tersebut dalam folder Balajarvb

Buatlah satu tabel dengan nama : Jurusan (KodeJurusan dan NamaJurusan)

Masukan beberapa data di NamaJurusan

Setelah langkah diatas selesai,

Buatlah Form VB sesuai dengan gambar diatas

kemudian masukan coding dibawah ini :

Dim Koneksi As New ADODB.Connection
Dim RSJurusan As ADODB.Recordset

Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSJurusan = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBContoh.mdb"
End Sub

Private Sub Form_Activate()
Call BukaDB
Combo1.Clear
RSJurusan.Open "Jurusan", Koneksi
Combo1.Clear
Do Until RSJurusan.EOF
    Combo1.AddItem RSJurusan!NamaJurusan
    RSJurusan.MoveNext
Loop

End Sub

dan hasilnya adalah sebagi berikut :

Akuntasi, Ekonomi dan Sekretaris adalah hasil dari mengambil database DBContoh.

Selamat Mencoba :)

Tweet