Menampilkan Data di ComboBox VB6 dari database mySQL

Postikan kali ini tentang bagaimana cara menampilkan database di ComboBox VB6

Bagi anda yang hanya mencari coding, berikut saya berikan codingNya dengan catatan koneksi sudah anda buat dan berhasil kemudian tabel database sudah bisa diakses

    rsUser.Requery
    With rsUser
    If .EOF And .BOF Then
        MsgBox "DATA USER TIDAK DITEMUKAN", vbOKOnly + vbCritical, "Error"
    Else
        cboNama.Clear
        Do Until .EOF
            cboNama.AddItem ![Nama]
            .MoveNext
        Loop
            .MoveFirst
    End If
    End With


pada koding diatas saya menggunakan recordset "rsUser" dan ComboBox "cboNama"
database yang saya gunakan MySQL

Tetapi bagi anda yang belum membuat koneksi yang berhasil, silahkan simak postingan berikut :
http://cara-mukhlas.blogspot.com/2012/07/membuat-form-menu-login-vb6-mysql.html

Comments

Popular posts from this blog

Free Download Billboard Hot Top 100 Singles Chart 2014

List of Google Dorks

Tekken Tag Tournament 2 DLC Mod