Vb.net 无法加载数据Mysql并显示错误“；“不允许连接主机”；在VB中

网 我试图为CRUD创建一个类，但出现了错误 用于将数据显示到gridview

这是我的连接和运行查询类

 Imports MySql.Data.MySqlClient
Public Class klass_koneksi
    Public sqlconn As New MySqlConnection
    Public query As String
    Public query_table As String
    Public v_grid As New DataGridView
    Public sqlcmd As New MySqlCommand
    Public sqladpt As New MySqlDataAdapter
    Public sqltabel As New DataTable

    Public Function open_db()
        sqlconn.ConnectionString = "server=127.0.0.1;username=root;pwd=;database=inventor_brg"
        sqlconn.Open()
    End Function

    Public Function Run_Query(query)
        Try
            sqlcmd = sqlconn.CreateCommand
            sqlcmd.CommandText = query
            sqlcmd.ExecuteNonQuery()
        Catch ex As Exception
        End Try
    End Function

    Public Function open_table(query_table, v_grid)
        Try
            sqlcmd.Connection = New MySqlConnection
            sqlcmd.CommandText = query_table
            sqladpt.SelectCommand = sqlcmd
            sqladpt.Fill(sqltabel)
            v_grid = sqltabel
        Catch ex As MySqlException
            MsgBox("cant connect :" & ex.Message)
        End Try
    End Function

    Public Function close_db()
        sqlconn.Close()
        sqlconn.Dispose()
    End Function


End Class

并加载数据代码

Sub load_data()
    Dim sql_select As New klass_koneksi
    Dim query As String = "Select* from t_barang"
    sql_select.open_db()
    sql_select.open_table(query, Mgrid.DataSource)
    sql_select.close_db()
End Sub
Private Sub frmbrg_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    load_data()
End Sub

这个代码显示错误 无法连接：不允许主机“XXXXXXXXXXXX”连接MariaDB服务器

---

将数据加载到网格视图的类代码有什么问题吗？

我会直接查看连接字符串。如果你不能连接，问题就在那里。正如旁注一样，类中的公共字段违反了封装。看来，大多数都可以是私人的。查询变量似乎只在一个函数中使用，并且应该是该函数的局部变量。删除类级别的查询变量。