19 April 2013

Menampilkan Data Dari Database Ke ComboBox

ComboBox merupakan salah satu objek yang dapat menampilkan data dengan model dropdown. Untuk menampilkan data ke Combobox dengan cara manual emang tidaklah sulit. Namun, bagaimana menampilkan data ke ComboBox yang bersumber dari database?? Bagi yang belum tau, kali ini saya akan share bagaimana melakukannya.. Oh ya, bagi yang belum tau menampilkan data ke ComboBox secara manual, ini langkahnya :

1. Buat sebuah sub prosedur

Misalnya : 
Sub JenisKelamin()
    CboJnsKelamin.Items.Add("Laki-laki")
    CboJnsKelamin.Items.Add("Perempuan")
End Sub
2. Kemudian panggil prosedur tersebut di Form Load dengan cara :
Call JenisKelamin()

Hasilnya akan seperti ini :







Untk menyimpannya ke database, ketikkan script : '" + CboJnsKelamin.Text + "'


Nah, Bagaimana menampilkan data ke ComboBox yang berasal dari database??

Sebagai contoh, misalnya anda punya tabel sebagai berikut :

1. Tbl_buku {kd_buku, judul, pengarang, kd_penerbit, thn_terbit, jns_buku}
2. Tbl_penerbit {kd_penerbit, nm_penerbit}

Tbl_buku dan Tbl_penerbit mempunyai relasi, yaitu kd_penerbit pada Tbl_buku sebagai Foreign Key dari kd_penerbit yang ada pada Tbl_penerbit sebagai Primary Key.

Pertama, anda buat sub prosedure
Misalnya :

 Sub TampilPenerbit()
        da = New OdbcDataAdapter("select * from Tbl_penerbit", conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Tbl_penerbit")
        CboPenerbit.DataSource = ds.Tables("Tbl_penerbit")
        CboPenerbit.DisplayMember = "nm_penerbit"
        CboPenerbit.ValueMember = "kd_penerbit"
    End Sub

Kedua, panggil prosedur tersebut di Form Load dengan cara :
Call TampilPenerbit()

Hasilnya seperti ini :



Saat anda menyimpan data tersebut ke Tbl_buku, maka yang disimpan adalah "ValueMember" dari Tbl_penerbit, sedangkan yang ditampilkan pada ComboBox adalah "DisplayMember" atau nama penerbitnya. Makanya pada coding simpan, anda ambil Valuenya, yaitu dengan mengetikkan : 
 '" + CboPenerbit.SelectedValue + "'
Coding simpan selengkapnya dari contoh diatas :

Insert into Tbl_buku values ('" + TxtKdBuku.Text + "','" + TxtJudul.Text + "','" + TxtPengarang.Text + "','" + CboPenerbit.SelectedValue + "','" + TxtThnTerbit.Text + "','" + TxtJnsBuku.Text + "'



6 komentar:

Bmaster Aditama mengatakan...

nice inpo sangat menbantu gan :D
mampir balik : http://bmaster23.blogspot.com/2013/06/solusi-kenapa-baterai-blackberry-sering.html

Ahmad Khoiri mengatakan...

oke gan...
segera meluncur.. :-)

Agus Wahyudi mengatakan...

gan,,
mw nnya nih...
saya membut relasi hampir seperti itu..
tapi saya ingin menampilkan isi database pada combobox itu hanya yang blum diproses...
dengan kata lain data yang telah diproses tidak muncul lagi pada combobox ny...
mhon bantuan ny lh gsn...
da pening nih cari tau dmn2..

Bernando Hutajulu mengatakan...

da sama ds nya itu apa gan

Kang Fand mengatakan...

'" + CboPenerbit.SelectedValue + "'
sangat membatu sekali.. terima kasih..

ineke mengatakan...

terima kasih, sangat membantu

Poskan Komentar

◄ Posting Baru Posting Lama ►
 
ARTIKEL TERBARU
TRANSLATE THIS PAGE
KOMENTAR TERBARU

Copyright © 2012. My Life is My Spirit - All Rights Reserved B-Seo Versi 5 by Bamz