ComboBox не заполняя с кодом

Question

У меня есть следующий код:

Using conn = New SqlConnection(connStr) 
     Dim sql = "SELECT [CATEGORIA], [AREA] FROM [CATEGORIAS] WHERE ([AREA] = @AREA)" 
     Dim sqlCmd = New SqlCommand(sql, conn) 
     sqlCmd.Parameters.AddWithValue("@AREA", CStr(PublicLogin.Area)) 

     conn.Open() 
     Dim ds As New DataSet 
     Dim da As New SqlDataAdapter(sql, conn) 
     da.Fill(ds, "CATEGORIAS") 

     With cboCat 
      .DataSource = ds.Tables("CATEGORIAS") 
      .DisplayMember = "CATEGORIAS_AREA" 
      .ValueMember = "CATEGORIAS_AREA" 
      .SelectedIndex = 0 
     End With 

    End Using 

Она должна теоретически заполнить право поля со списком? Это не так. Это не дает мне никаких ошибок или чего-то еще; поле со списком просто там пусто. Я уверен, что запрос работает хорошо, и он захватывает правильную информацию, но Combobox не заполняется. Если я возьму запрос, он заполнит CB «System.Data.Row ...»

ОБНОВЛЕНИЕ: Рабочий код на случай, если кому-то это понадобится;

 Using conn = New SqlConnection(connStr) 
     Dim sql = "SELECT [CATEGORIA], [AREA] FROM [CATEGORIAS] WHERE ([AREA] = @AREA)" 
     Dim sqlCmd = New SqlCommand(sql, conn) 
     sqlCmd.Parameters.AddWithValue("@AREA", CStr(PublicLogin.Area)) 

     conn.Open() 
     Dim ds As New DataSet 
     Dim da As New SqlDataAdapter(sqlCmd) 
     da.Fill(ds, "CATEGORIAS") 

     With cboCat 
      .DataSource = ds.Tables("CATEGORIAS") 
      .DisplayMember = "CATEGORIA" 
      .ValueMember = "CATEGORIA" 
      .SelectedIndex = 0 
     End With 

    End Using 

Answer 1

Его пустой, потому что, вероятно, запрос ничего не возвращает. Обратите внимание, что вы не добавляете параметр к окончательному запросу в переменной sql.

Вы создаете команду с запросом и параметром, но никогда не используете его, поэтому при выборе всех значений WHERE ([AREA] = @AREA) он ничего не возвращает.

Попробуйте это:

Dim da As New SqlDataAdapter(sqlCmd) 

Answer 2

Это выглядит странно для меня:

.DisplayMember = "CATEGORIAS_AREA" 
.ValueMember = "CATEGORIAS_AREA" 

Это должно, вероятно, будет что-то вроде этого:

.DisplayMember = "CATEGORIA" 
.ValueMember = "AREA" 

От MSDN on DisplayMember:

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

EDIT: Вам также необходимо заменить this:

Dim da As New SqlDataAdapter(sql, conn) 

с this:

Dim da As New SqlDataAdapter(sqlCmd) 

В противном случае ваши параметры никогда не используются.