How to Populate Label from Selected Value in Combo Box.

[gbfai87]

How can I populate each Label text from each Selected Value in my ComboBox?
My Database is from Ms.Access. Databound in ComboBox.

Here is my Table and my Form.





Here is my Code.
--------------------------------------------------
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FillAccomodation()
End Sub
--------------------------------------------------
Private Sub FillAccomodation()
Dim jjzcs As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Jake\Program\Accomodation\Accomodation\Database1.accdb"
Dim jjzcn As New OleDbConnection(jjzcs)
Dim jjzcmd As New OleDbCommand
jjzcmd.Connection = jjzcn
jjzcmd.CommandType = CommandType.Text
jjzcmd.CommandText = "SELECT AccomID, AccomName FROM AccomodationTbl"
Dim jjzDS As New DataSet()
Dim jjzDA As New OleDbDataAdapter
jjzDA.SelectCommand = jjzcmd
jjzcn.Open()
jjzDA.Fill(jjzDS)
jjzcn.Close()
CBViewAccomm.ValueMember = "AccomID"
CBViewAccomm.DisplayMember = "AccomName"
CBViewAccomm.DataSource = jjzDS.Tables(0)
End Sub
--------------------------------------------------
Private Sub CBViewAccomm_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CBViewAccomm.SelectedIndexChanged
If CBViewAccomm.SelectedValue.ToString() <> "" Then
Dim AccomID As Integer = Convert.ToInt32(CBViewAccomm.SelectedValue.ToString())
FillRoom(AccomID)
CBViewRoom.SelectedIndex = 0
LblAccomName.Text = CBViewAccomm.Text
LblRoomNo.Text = CBViewRoom.Text
Else
CBViewRoom.SelectedIndex = 0
End If
End Sub
--------------------------------------------------
Private Sub FillRoom(AccomID As Integer)
Dim jjzcs As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Jake\Program\Accomodation\Accomodation\Database1.accdb"
Dim jjzcn As New OleDbConnection(jjzcs)
Dim jjzcmd As New OleDbCommand
jjzcmd.Connection = jjzcn
jjzcmd.CommandType = CommandType.Text
jjzcmd.CommandText = "SELECT DISTINCT AccomName, RoomNo, Status FROM RoomTbl WHERE AccomID = '" & AccomID & "'"
jjzcmd.Parameters.AddWithValue("AccomID", AccomID)
Dim jjzDS As New DataSet()
Dim jjzDA As New OleDbDataAdapter
jjzDA.SelectCommand = jjzcmd
jjzcn.Open()
jjzDA.Fill(jjzDS)
jjzcn.Close()
If jjzDS.Tables(0).Rows.Count > 0 Then
CBViewRoom.ValueMember = "AccomName"
CBViewRoom.DisplayMember = "RoomNo"
CBViewRoom.DataSource = jjzDS.Tables(0)
CBViewRoom.Enabled = True
Else
CBViewRoom.SelectedIndex = -1
CBViewRoom.Enabled = False
End If
End Sub

[jmcilhinney]

In future, please copy your code directly from the IDE and paste it into appropriate formatting tags for readability. Most importantly, that will retain indenting.

As for the question, you simply bind the same table to both controls, e.g.

With myComboBox
    .DisplayMember = "Name"
    .ValueMember = "ID"
    .DataSource = myDataTable
End With
 
myLabel.DataBindings.Add("Text", myDataTable, "ID")