vb如何创建mysql连接

Install-Package MySql.Data

Imports MySql.Data.MySqlClient

Module Module1
    Sub Main()
        ' 连接字符串，根据实际情况修改
        Dim connectionString As String = "Server=localhost;Database=testdb;Uid=root;Pwd=yourpassword;"
        
        ' 创建连接对象
        Dim connection As New MySqlConnection(connectionString)
        
        Try
            ' 打开连接
            connection.Open()
            
            Console.WriteLine("成功连接到MySQL数据库！")
            
            ' 在这里执行SQL查询或其他数据库操作
            
        Catch ex As MySqlException
            Console.WriteLine("连接失败: " & ex.Message)
        Finally
            ' 关闭连接
            If connection IsNot Nothing AndAlso connection.State = ConnectionState.Open Then
                connection.Close()
            End If
        End Try
    End Sub
End Module