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 + "'