добавить значение в выпадающий список из базы данных в vb.net

Question

это мой код -

 SqlCmd = New SqlCommand("sp_load_names", SqlCnn)
 SqlCmd.CommandType = CommandType.StoredProcedure
 SqlDR = SqlCmd.ExecuteReader()
 While SqlDR.Read
      ads_list.Items.Add(New ListItem(SqlDR(1) & ""))
 End While
 SqlDR.Close()

это должно заполнить данные выпадающего списка, но в значении, которое мне нужно, нужно выбрать поле "ID" из сохраненного процесса. сохраненный процесс отправляет два параметра, ID и имя. поэтому я заполняю имя, но как мне заполнить идентификатор в значение, как это - отметка Сэм Dennis

Надеюсь, я никого не путаю

Answer 1

ListItems являются объектами, поэтому вы можете создать свой собственный простой класс ListItem, который будет содержать как идентификатор, так и отображаемое значение

Class MyListItem
   Public ID As Integer
   Public Text As String

   Public Sub New(iID As Integer, sText As String)
      Me.ID = iID
      Me.Text = sText
   End Sub

   Public Overrides Function ToString() As String
      Return Me.Text
   End Sub
End Class

...
Dim oItem As MyListItem

While SqlDR.Read
    oItem = new MyListItem(SqlDR(0),SqlDR(1))
    ads_list.Items.Add(oItem)
End While
...

oItem = CType(ads_list.SelectedItem,MyListItem)

Answer 2

SqlCmd = New SqlCommand("sp_load_names", SqlCnn)
 SqlCmd.CommandType = CommandType.StoredProcedure
 SqlDR = SqlCmd.ExecuteReader()
 While SqlDR.Read
      ads_list.Items.Add(SqlDR(1).ToString)
 End While
 SqlDR.Close()

Answer 3

Одна из перегрузок конструктора ListItem устанавливает свойства как текста, так и значения:

New ListItem("Text", "Value")

Вы должны иметь доступ к обоим столбцам в программе чтения данных SQL, используя SqlDR(1) и SqlDR(2).