mysql - 连接到 vps 服务器 vb net 上的 phpmyadmin MySql

Question

我需要连接到我的 MySQL 数据库，该数据库位于我的 phpmyadmin 主机上。 我在那里有一张带有客户的 table ，我想连接那里，然后在我正在尝试编码的桌面应用程序中显示 table 。 问题是我什至无法与我的代码成功连接，这在我看来还可以，因为我看到很多人使用它，所以我很感谢一些高级开发人员的建议和帮助。

PS: 我尝试用托管帐户的 IP 更改域名，我也尝试检查 IP 白名单，一切正常 我的代码:

Imports MySql.Data.MySqlClient

    Public Class Form1
        Dim MySqlConn As MySqlConnection
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            MySqlConn = New MySqlConnection
            MySqlConn.ConnectionString =
                "server=mydomain.com; port=2083; userid=database_user; password=password; database=database_name"
            Try
                MySqlConn.Open()
                MessageBox.Show("Connection Successful!")
                MySqlConn.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            Finally
                MySqlConn.Dispose()
            End Try
        End Sub
    End Class

Answer 1

所以我更深入地挖掘，这就是我所做的:D

1. 我要访问我的 VPS 帐户，希望启用 MySql 的远程访问。
2. 在托管 cPanel 中，我单击:远程 MySQL
3. 然后，我通过谷歌搜索 WhatismyIP 并允许我的 IP 进行远程连接，在“远程数据库访问主机”字段中简单地输入我的 IP。

4. 我(再次)更改了在谷歌上找到的代码，所以这里是工作代码:

   Imports MySql.Data.MySqlClient

   Public Class Form1
       Dim MysqlConn As MySqlConnection
       Dim ContactsCommand As New MySqlCommand
       Dim ContactsAdapter As New MySqlDataAdapter
       Dim ContactsData As New DataTable
       Dim SQL As String
   
       Private Sub btnGrabData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGrabData.Click
           MysqlConn = New MySqlConnection()
   
           ' Define the SQL to grab data from table.
           SQL = "SELECT * FROM clients"
   
           'Connection String
           MysqlConn.ConnectionString = "server=mydomain.com;" _
           & "user id=user_of_databse;" _
           & "password=Database_pass;" _
           & "database=Database_name"
   
           ' Try, Catch, Finally
           Try
               MysqlConn.Open()
   
               ContactsCommand.Connection = MysqlConn
               ContactsCommand.CommandText = SQL
   
               ContactsAdapter.SelectCommand = ContactsCommand
               ContactsAdapter.Fill(ContactsData)
   
               DataGridView1.DataSource = ContactsData
   
           Catch myerror As MySqlException
               MessageBox.Show("Cannot connect to database: " & myerror.Message)
           Finally
               MysqlConn.Close()
               MysqlConn.Dispose()
           End Try
   
       End Sub
   
   End Class
   

瞧!就是这样!!我现在拥有 DataGridView 中显示的表名称中的所有客户端:) 在我的生命中，我首先回答自己的一个非常困难的事情呵呵