Menampilkan Data di ComboBox VB6 dari database mySQL
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
Post a Comment