Sering kali kita melihat web site menggunakan ComboBox untuk menampilkan data..
Seperti untuk memilih negara dan sebagainya.... Hal ini bisa kita lakukan dengan memasukkan data-data yang dinginkan kedalam ComboBox tersebut melalaui properties atau pada saat design program. Tapi bagaimana jika pada kedepannya data yang ingin kita tampilkan bertambah...Wahhhhhhh ini merupakan masalah besar, berarti kita harus menambahkan data dan mengcompile lagi program kita...ini merupakan pemborosan waktu dan bukan suatu solusi yang baik... Jadi cara yang benar adalah, kita buat suatu tabel untuk menampung data tersebut dan kita lakukan koneksi agar ComboBox bisa menampilakan data dari tabel.
Seperti untuk memilih negara dan sebagainya.... Hal ini bisa kita lakukan dengan memasukkan data-data yang dinginkan kedalam ComboBox tersebut melalaui properties atau pada saat design program. Tapi bagaimana jika pada kedepannya data yang ingin kita tampilkan bertambah...Wahhhhhhh ini merupakan masalah besar, berarti kita harus menambahkan data dan mengcompile lagi program kita...ini merupakan pemborosan waktu dan bukan suatu solusi yang baik... Jadi cara yang benar adalah, kita buat suatu tabel untuk menampung data tersebut dan kita lakukan koneksi agar ComboBox bisa menampilakan data dari tabel.
objDataTable.Clear()
'Menampilkan data dari tabel (SQL syntak)
strSQL = "SELECT Department.* FROM(Department) "
objCommand = New OleDbCommand
objCommand.Connection = myconnection.open()
objCommand.CommandType = CommandType.Text
objCommand.CommandText = strSQL
objDataAdapter = New OleDbDataAdapter(objCommand)
objDataAdapter.Fill(objDataSet, "mdt_Department")
objDataTable = objDataSet.Tables("mdt_Department")
myconnection.close()
ddlDepartment.DataSource = objDataTable
'Field yang tampil adalah Field Department
ddlDepartment.DataTextField = "Department"
'Field yang menjadi value
ddlDepartment.DataValueField = "Division"
ddlDepartment.DataBind()
'Menambahkan Kata - Choice - didalam ComboBox
ddlDepartment.Items.Add("- Choice -")
Dim i As Integer
'fungsi agar kata Choice ditampilkan menjadi default
For i = 0 To (ddlDepartment.Items.Count - 1)
If "- Choice -" = ddlDepartment.Items.Item(i).ToString() Then
ddlDepartment.SelectedIndex = i
Exit For
End If
Next i
Note : Studi kasus untuk database Access, jika untuk SQL Server ada cara yang lebih mudah..
Wassalam
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
