vb怎么连接mysql数据库代码

VB连接MySQL数据库的代码如下：

Imports MySql.Data.MySqlClient

Public Class Form1
    Dim conn As MySqlConnection
    Dim cmd As MySqlCommand
    Dim sql As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 连接MySQL数据库
        conn = New MySqlConnection()
        conn.ConnectionString = "server=数据库服务器地址;user id=用户名;password=密码;database=数据库名称"

        Try
            conn.Open()
            MessageBox.Show("连接成功！")
        Catch ex As Exception
            MessageBox.Show("连接失败：" & ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 执行SQL语句
        sql = "SELECT * FROM 表名"
        cmd = New MySqlCommand(sql, conn)

        Try
            Dim reader As MySqlDataReader = cmd.ExecuteReader()
            While reader.Read()
                ' 处理查询结果
                Dim data As String = reader.GetString("字段名")
                MessageBox.Show(data)
            End While
            reader.Close()
        Catch ex As Exception
            MessageBox.Show("查询失败：" & ex.Message)
        End Try
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        ' 关闭数据库连接
        conn.Close()
    End Sub
End Class

这段代码使用了MySQL Connector/Net来连接MySQL数据库。在Form1_Load事件中，首先创建了一个MySqlConnection对象，然后设置连接字符串，其中包括了数据库服务器地址、用户名、密码和数据库名称。接下来通过conn.Open()方法打开数据库连接，如果连接成功则显示连接成功的提示框，否则显示连接失败的提示框。

在Button1_Click事件中，执行了一个SELECT语句来查询数据库中的数据。首先创建了一个MySqlCommand对象，并传入要执行的SQL语句和连接对象。然后通过cmd.ExecuteReader()方法执行查询，并通过MySqlDataReader读取查询结果。通过reader.GetString()方法可以获取指定字段的值。在代码中使用了MessageBox.Show()方法来展示查询结果。

在Form1_FormClosing事件中，关闭了数据库连接，确保在关闭窗体时释放数据库资源。

请注意，这段代码中的数据库连接信息需要根据实际情况进行修改，替换为正确的数据库服务器地址、用户名、密码和数据库名称。