Sub ItemDeptName()
Try
creatconn()
cn.Open()
cmd = New SqlCommand("Select deptname_user,dept_user from deptUser", cn)
cmd.Connection = cn
dr = cmd.ExecuteReader()
While dr.Read()
Me.cboDept.Items.Add(dr(0))
End While
Catch ex As Exception
MessageBox.Show("Error:" & ex.Message)
Finally
Me.cboDept.ValueMember = "dept_user"
Me.cboDept.DisplayMember = "deptname_user"
dr.Close()
cn.Close()
End Try
End Sub
ตัวอย่างข้อมูลจากฐานข้อมูล ตาราง dept_user นะคะ
dept_user deptName_user
001 IT
002 Account
003 Sale