选择并显示属于特定 ID 的所有行

I have

Table student, 学生科目 and 主题_bsit

      "student"
-----------------------
|studentID | FullName |
-----------------------
|1234      | John    |
|1235      | Michael |
|1236      | Bryce   |

        "subject_bsit"
-----------------------------------
|subject_id| subject_name  |grade |
-----------------------------------
|    1     | Programming   |  3   |
|    2     | Networking    |  2.5 |
|    3     | Algorithm     |  1.75|
|    4     | Physical Educ |  2   |

This is the Junction table to connect the 
two now.

       "student_subject"
----------------------------
| student_id | subject_id |
----------------------------
|   1235     |      1     |
|   1235     |      2     |
|   1235     |      3     |
|   1234     |      1     |

正如您所看到的，表 ID 1235 是 michael，他有 3 个科目，subject_id 1,2 和 3。我想要做的是在文本框中显示 michael 的所有科目名称和成绩，而不是在数据网格视图中。

截至目前，我仍然无法将其输出到文本框。这是我的示例查询

    sql = "SELECT subject_name " & _
        " FROM student_subject " & _
        " INNER JOIN subject_bsit ON subject_bsit.subject_id = student_subject.sub_id" & _
        " where student_subject.student_id='" & Txtbox.Text & "'"

最后一个查询中的 Txtbox.text 是用户输入 ID 号的位置。

这是我将数据显示到文本框的代码。我对如何在文本框上循环并将其显示在每个文本框上没有任何想法或方法。

 cmd = New MySqlCommand(sql, myconn)
    dr = cmd.ExecuteReader

    While dr.Read
        TextBox1.Text = dr.Item("subject_name").ToString
        TextBox2.Text = dr.Item("subject_name").ToString
    End While

这是我想要实现的示例用户界面。太感谢了。

当您读取查询的结果集时，您会使用循环。

While dr.Read
    ' run this for every row in your resultset 
    ...
End While

The While循环继续进行，直到读完所有行。

您不必使用循环。如果您希望一次读取一行，就像这样

 If dr.Read
    ' just the first row
 End If
 If dr.Read
    ' just the second row
 End If
 If dr.Read
    ' just the third row
 End If
 ...

从你的问题我猜你有Textbox1, Textbox2, ... Textbox5在您的表格上。我也猜你有Grade1, Grade2 ....

要同时处理科目名称和成绩，请将查询的第一行更改为

   sql = "SELECT subject_name, grade " & _

您可以像这样填充这些项目：

 If dr.Read
    TextBox1.Text = dr.Item("subject_name").ToString
    Grade1.Text = dr.Item("grade").ToString
 End If
 If dr.Read
    TextBox2.Text = dr.Item("subject_name").ToString
    Grade2.Text = dr.Item("grade").ToString
 End If
 If dr.Read
    TextBox3.Text = dr.Item("subject_name").ToString
    Grade3.Text = dr.Item("grade").ToString
 End If
 ' more of these sets of four lines to fill your whole form.

这解决了你的问题。但您可能会注意到它重复得荒谬。您真正需要的是一个文本框数组（实际上是两个数组）。您在程序中创建并填充这些文本框。我还没有调试过这个：那是你要做的。

  Dim Subjects As Textbox()
  Dim Grades As Textbox()
  ...

  Dim rownumber, Y
  rownumber = 0
  Y = 200
  Dim Subject
  Dim Grade
  While dr.Read
    Subject = New Textbox
    Subject.Text = dr.Item("subject_name").ToString
    Subject.Width = 200
    Subject.Height = 40
    Subject.X = 175
    Subject.Y = Y
    Subjects(rownumber) = Subject
    Form.Controls.Add(Subject)
    Grade = New Textbox
    Grade.Text = dr.Item("grade").ToString
    Grade.Width = 50
    Grade.Height = 40
    Grade.X = 400
    Grade.Y = Y
    Grades(rownumber) = Grade
    Form.Controls.Add(Grade)
    rownumber = rownumber + 1
    Y = Y + 50
  End While

运行时，您将拥有两列控件，每个控件对应一列。但是这段代码很复杂，您必须使用以下命令来完成表单的所有布局Something.Y = value进而Y = Y + 50算术。

这就是网格控件存在的原因。他们负责处理这类事情。