使用 VB.Net 连接到远程 MySQL 数据库
将 vb.net 连接到远程 MySql 数据库；无论您使用的是什么 VB.Net 版本，都只需执行以下步骤即可。
1) 从 url (https://dev.mysql.com/downloads/connector/net/) 下载 Mysql Connector/Net
2) 安装连接器；默认情况下，连接器将安装在我安装的版本的路径（C:\Program Files\MySQL\Connector Net 6.9.6）中。
3) 打开 VB.Net IDE 并启动新项目。
4) 添加“Mysql.Data.dll”作为对您项目的引用，您可以在路径中找到它 (C:\Program Files\MySQL\Connector Net 6.9.6\Assemblies\v4.5) ;
5) 准备您的连接表格，如图所示；
6) 创建名为“Database”的类，并编写如下代码。
数据库类代码
导入 MySql.Data.MySqlClient
公共类数据库
Private _connection As New MySqlConnection
Private _errormessge As String
Private _servername As String
Private _databasename As String
Private _userid As String
Private _password As String
Public WriteOnly Property ServerName() As String
Set(ByVal value As String)
_servername = value
End Set
End Property
Public WriteOnly Property DatabaseName() As String
Set(ByVal value As String)
_databasename = value
End Set
End Property
Public WriteOnly Property UserID() As String
Set(ByVal value As String)
_userid = value
End Set
End Property
Public WriteOnly Property Password() As String
Set(ByVal value As String)
_password = value
End Set
End Property
Public ReadOnly Property ErrorMessage() As String
Get
Return _errormessge
End Get
End Property
Public Function Connection() As Boolean
Try
_connection.ConnectionString = "Server=" & _servername & ";Port=3306;Database=" & _databasename & ";User ID=" & _userid & ";Password=" & _password & ""
_connection.Open()
If _connection.State = ConnectionState.Open Then
_connection.Close()
Return True
End If
Catch ex As Exception
_errormessge = ex.Message
Return False
End Try
End Function
结束类
表单类代码
公共类 Frm_Main
Private Sub btn_connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 处理 btn_connect.Click
'对象声明和实例化
将数据变暗为新数据库
With data
'Assing the object property values
.ServerName = txt_server.Text
.DatabaseName = txt_database.Text
.UserID = txt_uid.Text
.Password = txt_pwd.Text
'Connection testing
If .Connection Then
MessageBox.Show("Database Conneted.")
Else
MessageBox.Show(.ErrorMessage)
End If
End With
End Sub
Private Sub btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_exit.Click
Close()
End Sub
结束类
7) 运行项目并尝试连接；如果连接成功，那么你的运气；如果连接不成功并出现以下错误消息，请不要继续阅读更多内容；
8) 记下@之后错误消息中的 ip 地址（那是您的 ip）并将其添加到您的域 cpanel“远程 mysql 访问”下图说明了远程 mysql 访问的样子（它们可能相同）推迟颜色）；不要忘记按“添加主机”按钮。对于使用静态 ip 的用户，此设置每天都可以使用。
执行上述步骤后看到成功消息；
但是，如果错误消息仍然存在，请尝试将密码文本留空，如果您的远程数据库中没有密码，请再次连接；如果错误再次出现，除非将 YES 更改为 NO，那么您必须检查您是否在 DHCP；
9) 如果您在 DHCP 中，这意味着 IP 在每个新的 Internet 连接中都会发生变化。如果您使用调制解调器，可能您在 DHCP 中。如果您在动态 ips 中，请检查 ip 的 4 个块中发生了什么变化。如果第一次连接的第一个ip是197.250.3.201，下一个ip是197.250.60.70，下一个ip是197.250.80.24；您必须在您的 cpanel 访问主机中添加 197.250.% 才能使您的连接稳定。
10) 注意：随着百分号（通配符）流向 IP 地址的左侧，安全门打开得越多。如果出现新错误，请联系您的域提供商，域中可能存在其他一些安全问题。谢谢！