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:

l/Pemrograman

• Cara Membuat Database dengan Access 2007
• Fungsi Dasar SQL
• Cara Menambah Komponen Quick Reports pada Delphi 7
• IDE Delphi 7
• Istilah Dalam Database
• Data Module Pada Delphi
• Variabel dan Konstanta di Visual Basic
• Membuat Aplikasi Trial Version Menggunakan Delphi
• Instal Delphi 7 Di Windows 7
• Belajar Delphi 7
• Membuat DBGrid Berwarna
• Cara Memasukan Flash ke Delphi 7
• Fungsi Dalam C++
• C++
• Membuat Digital Clock di Flash
• Konsep ADO pada Delphi