Mar 15, 2015

Cara menambahkan isi tabel database kedalam ComboBox Vb6

vbphotoshop.blogspot.com
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.

Contoh
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

Heri Lesmana, seorang manusia biasa yang memiliki begitu banyak keterbatasan. Menyukai programing ( ngoding ) terutama PHP. Bermimpi ingin kuliah di Informatika ITB atau Ilkom Ui.

0 komentar: