Additem combobox dari data base

Pertemuan kali ini kita akan belajar menambahkan item data ke ComboBox dari data base. Caranya gampang-gampak cetek....ehehehehe

Langsung aja ya agan-agan...
pertama-tama buat data base access
1. Creat new database
2. berinama item.mdb
3. tambah tabel dengan nama tabel1
4. tambahkan field hari pada tabel1
5. Save database di lokasi folder yang sama dengan projek vb yang akan dibuat dengan format Microsoft Office Access Database (2002-2003 Format)



Lalu kita buka microsoft Visual Basic 6.0
1. Buat vbprojek baru
2. Tambah komponen dengan cara --> klik pilih menu project --> references
3. tambahkan Microsoft ActiveX Data Objects 2.0 Library
4. lalu buat 1 form
5. tambahkan sebuah combobox di form tersebut
6. lalu buat modul


7. lalu tambahkan code dibawah ini

-----ModulePublic conn As ADODB.Connection
Public RsData As ADODB.Recordset

Public Sub konek()

Set conn = New ADODB.Connection
Set RsData = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\item.mdb"

End Sub

-----Form1

Private Sub Form_Load()

Call konek
RsData.Open "select * from tabel1", conn
Do While Not RsData.EOF
Combo1.AddItem RsData!hari
RsData.MoveNext
Loop

End Sub

---------------------------

Eng...Ing...Eng..
ini hasilnya...
Ingat.....karena koneksi menggunakan "app.path" untuk menemukan lokasi data base...maka lokasi data base harus sama dengan projek ini disimpan (projek dan data base dalam satu folder yang sama)..

Semoga Bermanfaat..selamat mencoba

- Download source code : Add item dari data base (17,15 kb)