Cara Mengisi ComboBox vb6 - comboxbox adalah salah satu elemen penting dalam pemrograman yah fungsinya untuk memudahkan user dalam menginput data, karena tinggal klik klik doang, gk perlu cape cape ngetik.
Cara mengisi ComboBox dengan coding
Private Sub Form_Load()
Combo1.AddItem "ayam"
Combo1.AddItem "kangkung"
Combo1.AddItem "lele"
End Sub
Cara mengisi ComboBox Dengan Properties
klik combox nya terus lihat di properties lalu pilih list , silahkan isi sendiri item nya, setiap ketik satu list enter.
Cara Mengisi ComboBox dengan Database
Pencet ctrl+t lalu pilih Microsoft AdoData Control 6.0(OLEDB) nanti akan muncul adodc di sebelah kiri.lalu drag adodc nya ke dalam form, ok setelah itu masukan codingan nya sebagai berikut.
Public koneksi As ADODB.Connection
Public rs As ADODB.Recordset
Public max As String
Public i As Integer
Private Sub Form_Load()
Set koneksi = New ADODB.Connection
koneksi.CursorLocation = adUseClient
koneksi.Provider = "microsoft.jet.oledb.4.0"
koneksi.Open App.Path & "\contohcombobox1.mdb"
ambildata
End Sub
Private Sub ambildata()
On Error Resume Next
Set rs = New ADODB.Recordset
rs.Open "select * from makanan", koneksi, adOpenDynamic, adLockOptimistic
rs.MoveFirst
max = rs.RecordCount
For i = 1 To max
Combo1.AddItem rs.Fields("namamakanan")
rs.MoveNext
Next
End Sub
Download Programnya mengisi ComboBox vb6
( MediaFire ) ( 4shared )
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 :
