Visual Basic与MySql中创建的数据库的连接

时间:2014-03-29 17:02:58

标签: mysql vb.net

嘿伙计我从easyphpMyadmin连接到我的数据库时遇到问题 我收到此错误(我使用catch并尝试收集消息) - code with error PHP

提前致谢

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

Public Class 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

结束班

1 个答案:

答案 0 :(得分:0)

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

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

还要记住将Multiline的{​​{1}}属性设置为true,并确保增加文本框的高度,否则在第一个文本框之后将看不到这些行。