Saturday, 23 May 2015

Cara Mengisi ComboBox vb6

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 )













Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

No comments:

Post a Comment

 

Network

Pesan

Semoga situs ini bermanfaat