MySqlConnection 上的“InvalidOperationException：连接必须有效且打开”

Question

我正在从事 VB.Net 项目（第一次，我之前在 VBA 工作），我似乎无法与 MariaDB/MySQL 数据库建立连接。
我想获取一列的所有行，以将其用作表单中名为 CBClient 的 ComboBox 的源

到目前为止，这是我的代码：

头等舱：ClassSQL

Imports MySql.Data.MySqlClient
Imports MySql.Data.Types

Public Class ClassSQL
    Public Shared ConfigSQL As String = 
        "DATABASE=(My actual DB);DATA SOURCE=(IP of the server);USER ID=(UserID);PASSWORD=(Password)"

    Public Shared ConnectDB As New MySqlConnection(ConfigSQL)
End Class

还有 Form 类：

Imports MySql.Data.MySqlClient

Public Class NewDossier
    Private Sub NewDossier_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        GetCBClient()
    End Sub

    Sub GetCBClient()
        ClassSQL.ConnectDB.Open()

        Dim Requete As String = "SELECT NomClient FROM MSClients"
        Dim Query As New MySqlCommand(Requete, ClassSQL.ConnectDB)
        Dim rs As MySqlDataReader = Query.ExecuteReader

        Do While rs.Read
            CBClient.Items.Add(rs.GetString("NomClient"))
        Loop

        ClassSQL.ConnectDB.Close()
    End Sub
End Class

在 Form 类中的 ClassSQL.ConnectDB.Open() 上，我有一个例外：

InvalidOperationException：连接必须有效且打开

我的连接是否有问题？还是我做错了什么？
有没有办法指定端口？

Answer 1

在 ADO.Net 中，尝试在整个应用程序中重复使用相同的连接对象通常不是一个好主意，因为有一个称为连接池的功能。连接器已经在为您管理这个。相反，为大多数查询创建一个新的连接实例确实更好。只需将连接字符串放在手边并重新使用它。这与IDisposable/Using 模式结合使用效果特别好。

此外，最好将查询放在与连接字符串相同的类或模块中，与应用程序的其余部分隔离，其中每个查询都是返回数据的函数，并且（通常）接受一个参数告诉它要查找什么数据。

Public Module SQL
    'Making this private helps ensure you remember to put database activities here in this class.
    Private ConnectionString As String = "DATABASE=(My actual DB);DATA SOURCE=(IP of the server);USER ID=(UserID);PASSWORD=(Password)"

    'You could also design this function to return a DataTable object, if Iterator blocks aren't your thing
    Public Iterator Function GetMSClients() As IEnumerable(Of String)
        Dim Requete As String = "SELECT NomClient FROM MSClients"

        Using cn As New MySqlConnection(ConnectionString), _
              cmd As New MySqlCommand(Requete, cn)
            cn.Open()

            Using rdr As MySqlDataReader = cmd.ExecuteReader()
                While rdr.Read()
                     Yield rdr.GetString("NomClient")
                End While
            End Using
        End Using
    End Function

End Module

Public Class NewDossier
    Private Sub NewDossier_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CBClient.Items.AddRange(SQL.GetMSClients().ToArray())
    End Sub
End Class