2015-03-10 2 views
-1

Может ли кто-нибудь объяснить, почему первый combobox заполняется, а второй нет? Я построил второй запрос в Workbench MySQL, и он отлично работает. Но мое приложение не вернет никаких результатов в поле со списком.SQL Query, не заполняющий combobox в VB 2013

 'populate my projects combo1 
     Dim da1 As New MySqlDataAdapter("SELECT * FROM stylus_projects WHERE aid = '" & Me.aid.Text & "' ORDER by title asc", sql.SQLcon) 
     Dim dt1 As New DataTable 
     da1.Fill(dt1) 
     ComboBox1.DisplayMember = "title" 
     ComboBox1.ValueMember = "id" 
     ComboBox1.DataSource = dt1 

     'populate contrib combo2 
     Dim da2 As New MySqlDataAdapter("SELECT DISTINCT stylus_contrib.pid,stylus_projects.title FROM stylus_contrib INNER JOIN stylus_projects ON stylus_contrib.pid = stylus_projects.id WHERE stylus.contrib.aid = 3", sql.SQLcon) 
     Dim dt2 As New DataTable 
     da2.Fill(dt2) 
     ComboBox2.DisplayMember = "title" 
     ComboBox2.ValueMember = "pid" 
     ComboBox2.DataSource = dt2 

ответ

0

Я понял это. У меня был период, а не подчеркивание между стилусом и вкладчиком в выделенную область. D'о!

Dim da2 As New MySqlDataAdapter("SELECT DISTINCT stylus_contrib.pid, stylus_projects.title FROM stylus_contrib INNER JOIN stylus_projects ON stylus_contrib.pid = stylus_projects.id WHERE **stylus_contrib.aid** = '3'", sql.SQLcon) 
     Dim dt2 As New DataTable 
     da2.Fill(dt2) 
     ComboBox2.DisplayMember = "title" 
     ComboBox2.ValueMember = "pid" 
     ComboBox2.DataSource = dt2 
0

Используйте TableName с FieldsName. Это должно быть как

ComboBox2.DisplayMember = "stylus_projects.title" ComboBox2.ValueMember = "stylus_contrib.pid"

+0

Спасибо за ваш ответ! В этом есть смысл. Тем не менее, я все еще не получаю никаких результатов в combobox. У тебя есть другие идеи? –

Смежные вопросы