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
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
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
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 :)
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :