Cara menambahkan isi tabel database kedalam ComboBox Vb6

vbphotoshop.blogspot.com

Assalamu'alaikum Wr Wb.

Kembali lagi di blog saya vbphotoshop.blogspot.com. kali ini kita akan membahas tentang Vb6 sob. Saya juga pernah mencari postingan seperti ini di google saat mendapatkan tugas dari pak guru saya, dan saya tidak menemukan yang pas. Semoga aja postingan saya ini dapat membantu,, amiinnn.. Oke langsung aja, mangga diperhatikan da diikuti langkah-langkahnya..

1. Buat dulu Databasenya
Karna saya diberi tugas oleh pak guru yaitu membuat Aplikasi Rental VCD. Jadi saya memberikan nama Databasenya Rental.mdb. Untuk membuat databasenya liat dulu Disini.

Saya anggap aja kalo sobat udah bikin Database Retal.mdb nya. Dengan nama tabel Tb_anggota, yang berisikan Kode_anggota dan Nama_anggota..

2. Koneksi Database..
-Tambahkan dulu adodc di Form
Klik ctrl+T, centang di "Microsoft Ado Data Control 6.0 (OLEDB). Lalu tambahkan ke Form seperti biasa..!
-Tambahkan Module
Klik project di bagian menu- Add module

Tambahkan koding ini di module

Public koneksi As New ADODB.Connection
Public RSanggota As ADODB.Recordset

Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSanggota = New ADODB.Recordset
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data source=" & App.Path & "\rental.mdb"
End Sub

3. Menata Object di vb6.

Mengisi ComboBox

4. Atur Propertynya

Object	Proferty	Value
Label1	Name Caption	LblNama Nama Anggota
Label2	Name Caption	LblKodAgt Kode Anggota
Combo1	Name Caption	CmbKodAgt (Kosongkan)
Text1	Name Text	TxtNamAgt (Kosongkan)

5. Kalo udah, sekarang tinggal tambahkan koding di windows kode form. Kopas aja kodingnya gan! biar cepet.

Private Sub tambah()
        RSanggota.Open "select Kode_anggota from Tb_anggota group by Kode_anggota", koneksi, 1, 3
        For I = 1 To RSanggota.RecordCount
        CmbKodAgt.AddItem RSanggota!Kode_anggota
        RSanggota.MoveNext
        Next I
End Sub

Private Sub Form_Load()
Call BukaDB
tambah
End Sub

Nah, sekarang ComboBoxnya udah terisi dengan isi dari tabel anggota yaitu kode anggota.
Tambahan. Supaya saat di klik kode anggota muncul nama anggota coba ini! Klik dua kali di CmKodAgt supaya masuk ke windows kode dan masukan kode ini

Private Sub CmbKodAgt_Click()
Call BukaDB
RSanggota.Open "Select * from Tb_anggota where Kode_anggota='" & CmbKodAgt & "'", koneksi
If CmbKodAgt.Text = "" Then
MsgBox "Jangan kosong", vbInformation, "Informasi"
ElseIf Not RSanggota.EOF Then
    TxtNamAgt.Text = RSanggota!Nama_anggota
    TxtKodFlm.Enabled = True
    TxtKodFlm.SetFocus
    Exit Sub
Else
    MsgBox "Kode anggota tidak terdaftar", vbInformation, "Informasi"
    CmbKodAgt.SetFocus
    Exit Sub
End If
End Sub

Oke,, sekian dulu dari saya. Kalo ada yag tidak dimengerti silahkan ditayakan! Di kolom komentar