Menampilkan Data Record di Combo Box VB6

Hallo.. Selamat datang di blog saya, kali ini saya akan memberitahukan sedikit info tentang Menampilkan Data Record di Combo Box di VB6. Yu langsung saja...

Buatlah form seperti berikut !

Copy kan syntax di bawah ini:

Public conn As New ADODB.Connection
Public Pembeli As New ADODB.Recordset

Private Sub Combo1_Click()
Set Pembeli = New ADODB.Recordset
Pembeli.Open "SELECT * FROM Pembeli WHERE no_ktp='" & Combo1 & "'", conn, adOpenDynamic, adLockOptimistic
Pembeli.Requery
With Pembeli
If .EOF And .BOF Then
MsgBox "No Tidak Ditemukan!", vbOKOnly + vbCritical, "Error"
Exit Sub
Else
Combo1.Text = !no_ktp
Text1.Text = !nama
Text2.Text = !alamat
Text3.Text = !telepon
Text4.Text = !hp
End If
End With
Pembeli.Close
Combo1.SetFocus
End Sub

Private Sub Form_Activate()
Combo1.Clear
Set Pembeli = New ADODB.Recordset
Pembeli.Open "SELECT * FROM Pembeli", conn, adOpenDynamic, adLockOptimistic
Do Until Pembeli.EOF
Combo1.AddItem Pembeli!no_ktp
Pembeli.MoveNext
Loop
Pembeli.Close
End Sub

Private Sub Form_Load()
'Koneksi ke form pembeli
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\KKendaraan.mdb;Persist Security Info=False"
    Set Pembeli = New ADODB.Recordset
    Pembeli.CursorLocation = adUseClient
    Pembeli.Open "SELECT * FROM Pembeli", conn, adOpenDynamic, adLockOptimistic
End Sub

Private Sub CmdClear_Click()
Combo1.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
 
Nah.. Hasilnya akan terlihat seperti ini :

Selesai.. Sekian gan & sis info tentang Menampilkan Data Record di Combo Box VB6 maaf bila kurang sempurna :D Terima kasih telah berkunjung ;)

Kalo ingin source code nya, silahkan doawnload ==> disini <==