mysql - 与 MySql 中的数据库的 Visual Basic 连接

Question

大家好，我在从我的 easyphpMyadmin 连接到我的数据库时遇到问题我收到此错误(我使用 catch 并尝试收集消息)-

提前致谢

导入 MySql.Data导入 MySql.Data.MySqlClient

公开课Form1

Dim dbCon As MySqlConnection
Dim strQuery As String = ""
Dim SQLCmd As MySqlCommand
Dim DR As MySqlDataReader



Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    GetDBData()

End Sub

Private Sub GetDBData()
    Try
        'PREPARE CONNECTION AND QUERY
        dbCon = New MySqlConnection("Server = localhost;Database = users; Uid=root; Pwd = password ")
        strQuery = "SELECT users.name, users.surname " & _
            "FROM users "

        SQLCmd = New MySqlCommand(strQuery, dbCon)
        '  Pwd = password
        ' Open
        dbCon.Open()

        DR = SQLCmd.ExecuteReader

        While DR.Read
            txtData = txtData.Text & DR.Item("name") & Space(10) & DR.Item("surname") & vbCrLf
        End While

        'Close

        DR.Close()
        dbCon.Close()

    Catch ex As Exception
        MsgBox(" Failure to communicate " & vbCrLf & vbCrLf & ex.Message)
    End Try

End Sub

下课

Answer 1

txtData 是一个文本框。因此，要设置其内容，您需要使用属性 Text。
相反，您的代码会尝试将连接产生的字符串直接分配给显然不能分配给字符串的 TextBox 对象。

 While DR.Read
        txtData.Text = txtData.Text & _
              DR.Item("name") & Space(10) & DR.Item("surname") & vbCrLf
 End While

还要记住将 txtData 的 Multiline 属性设置为 true 并确保增加文本框的高度，否则您将看不到第一行之后的行一个。