mysql - 读者 if 和 else 语句

Question

我正在练习 Visual Basic 编程我在 Visual Basic 中有两种形式。第一个表单有一个命令按钮，将显示第二个表单的输入数据第二种形式有一个文本框，我需要在其中输入数据并保存它。

我在第二种形式中输入的数据存储在MySQL中

第一个表格有一个名为“显示我的成绩”的命令按钮，如果我单击该按钮，我想显示表格 2 并显示成绩。它确实有效，但是如果我没有输入任何成绩，然后单击“显示我的成绩”按钮，它就会崩溃，我不知道错误。我尝试使用代码“if READER.HasRows then:但还是不行还尝试了 if READER.Read then:else MessageBox.Show("目前没有成绩输入")请帮忙。

这是我当前在表单 1 的命令按钮中的代码。

Me.Visible = False
Form2.Show()


    MySqlConn = New MySqlConnection
        MySqlConn.ConnectionString = "server=localhost;userid=root;password=qwerty;database=ssg"
        Dim COMMAND As New MySqlCommand
        Dim READER As MySqlDataReader
        MySqlConn.Open()
        COMMAND.Connection = MySqlConn
        COMMAND.CommandText = "select grade from gradetable"
        READER = COMMAND.ExecuteReader
        Form2.TextBox1.Text = READER("grade")                             
        End Sub

只要我先输入成绩，它就可以工作，但是如果我没有输入任何成绩，它就会崩溃。

如果我点击表格 1 中的“显示我的成绩”按钮，而没有在表格 2 中输入成绩，我只想显示一条消息“您目前仍然没有成绩”

请帮忙。

Answer 1

1. 带有匹配的 End using 的 using 语句。这是代替 Dim 的。即使出现错误，它也能确保您的对象被正确关闭和处置。这对于应尽快关闭的连接尤其重要。

2. 我使用连接的构造函数来传入连接字符串。设置属性就好了。这只是节省了一行代码。

3. 与命令构造函数的想法相同。它可以接受命令文本和连接。节省一点打字时间。

4. 你的想法是正确的；使用.HasRows。您只需添加 READER.Read 即可获取第一条记录，如 jmcilhinney 的评论中所述。

Private Sub GetGrade()
    Using MySqlConn As New 
        MySqlConnection("server=localhost; userid=root; password=qwerty; database=ssg")
        Using COMMAND As New MySqlCommand("select grade from gradetable", MySqlConn)
            MySqlConn.Open()
            Using READER As MySqlDataReader = COMMAND.ExecuteReader
                If READER.HasRows Then
                    READER.Read()
                    Form2.TextBox1.Text = READER("grade")
                Else
                    MessageBox.Show("Sorry, no grade yet.")
                End If
            End Using
        End Using
    End Using
End Sub