Получение выпадающего списка выбранного значения в vb.net

Question

Я пытаюсь настроить учетную запись пользователя для моей системы. У меня есть две таблицы (пользователь и персонал)

И это интерфейс для настройки пользователя

выпадающий список имен должен быть привязан к таблице персонала, где я могу отобразить список сотрудников. Когда я вставляю эти данные в таблицу пользователей, мне нужно преобразовать имя выбранного сотрудника в его идентификатор.

Я очень слаб в программировании и, если возможно, помогу мне с этим. это код, который я использую

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnUserAdd.Click
    If ValidData() Then
        Try
            cmd.Connection = con
            con.Open()
            sel_id = Convert.ToString(cmbStaffName.SelectedValue)
            cmd.CommandType = System.Data.CommandType.Text
            cmd.CommandText = "Insert Into dbo.[User] (User_ID,Employee_ID,User_Name,Password,User_Level) values ('" & txtBoxUserID.Text & "','" & sel_id & "','" & txtBoxUserName.Text & "', '" & txtBoxPassword.Text & "','" & ComboBox1.Text & "')"
            cmd.ExecuteNonQuery()
            MsgBox("Succesfully Added", MsgBoxStyle.Information, "add")

        Catch ex As Exception
            MessageBox.Show(ex.Message)

        End Try
        con.Close()
    End If

    If Not ValidData() Then
        Exit Sub
    End If
End Sub



Private Sub btnUserUpdate_Click(sender As Object, e As EventArgs) Handles btnUserUpdate.Click

End Sub

Private Sub Setup_User_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'MyHotelManagementSystemDataSet19.Staff' table. You can move, or remove it, as needed.
    Me.StaffTableAdapter1.Fill(Me.MyHotelManagementSystemDataSet19.Staff)
    'TODO: This line of code loads data into the 'MyHotelManagementSystemDataSet18.Staff' table. You can move, or remove it, as needed.
    Me.User_TypeTableAdapter.Fill(Me.MyHotelManagementSystemDataSet17.User_Type)

End Sub

Private Sub cmbStaffName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbStaffName.SelectedIndexChanged

    Try
        con.Open()
        ds = New DataSet()
        cmd = New SqlCommand("select * from Staff", con)
        Adapter = New SqlDataAdapter(cmd)
        adapter.Fill(ds)
        cmbStaffName.DataSource = StaffBindingSource1
        cmbStaffName.DisplayMember = "Name"
        cmbStaffName.ValueMember = "Employee_ID"

    Catch ex As Exception
    Finally
        con.Close()
    End Try
End Sub

Answer 1

    Private Sub cmbStaffName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbStaffName.SelectedIndexChanged

        Try
            con.Open()
            ds = New DataSet()
            cmd = New SqlCommand("select * from Staff", con)
            Using adapter as New SqlDataAdapter(cmd)  
                 adapter.Fill(ds)
            End Using

            cmbStaffName.DisplayMember = "Name"
            cmbStaffName.ValueMember = "Employee_ID"
            cmbStaffName.DataSource = ds


        Catch ex As Exception
        Finally
            con.Close()
        End Try
    End Sub