Cara Memasukan Record Ke Dalam ComboBox

Kali ini saya akan membagi tips cara memasukan record dari tabel ke dalam combobox, tanpa basa-basi langsung saja berikut script cara memasukan record ke dalam combobox menggunakan visual basic 6.0 :

Sub DaftarPelanggan()
Me.MousePointer = 11
Pesan = "Select * from Pelanggan Order By kodePlg"
Set TPelanggan = New ADODB.Recordset
TPelanggan.Open Pesan, Persediaan, adOpenStatic
cmbPlg.Clear
If Not TPelanggan.EOF Then
TPelanggan.MoveFirst
While Not TPelanggan.EOF
cmbPlg.AddItem TPelanggan!KodePlg
TPelanggan.MoveNext
Wend
End If
TPelanggan.Close
Set TPelanggan = Nothing
Me.MousePointer = 1
End Sub

Selamat mencoba, posting komentar kamu di bawah ini !

Related Post: