VB.NET MySQL 连接对所有形式开放

Question

在第一种形式中，我将在要打开数据库连接的第二个形式中加载表格。

我编写了一个类，它使我能够打开和关闭连接

Imports System
Imports System.Data
Imports MySql.Data.MySqlClient

Public Class DBConn


Dim conn As New MySqlConnection
Dim connString As String

Dim DataSchnitstelel As MySqlDataAdapter


Public Function verbindungString(ByVal Server As String, ByVal UID As String, ByVal PWD As String, _
                                 ByVal Datenbank As String)
    connString = "server=" & Server & ";uid=" & UID & ";pwd=" & PWD & ";database=" & Datenbank & ";"



    connString = CStr(connString)
End Function



Public Sub Open()
    conn.ConnectionString = connString
    Try
        conn.Open()
        MsgBox(connString)
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub



Public Function Close()
    If conn.State = ConnectionState.Open Then
        Try
            conn.Close()
            MessageBox.Show("Closed!")
        Catch ex As Exception
            MessageBox.Show("Something Wrong" & ex.Message)
        End Try
    Else
        MessageBox.Show("Verbindung bereitsgeschlossen")
    End If
End Function


Public Function UpdateStatus()
    Dim Klank As Boolean
    If conn.State = 1 Then
        Klank = True
    End If
    If conn.State = 0 Then
        Klank = False
    End If
    Return Klank
End Function

Public Function SQLSelect()

End Function

End Class

In the Second Form i Connect to the DB。 连接成功打开，但未以第一种形式打开:(

出了什么问题？

Answer 1

我想问题是你在某个地方使用了两种形式，

Dim bla as New DBConn

相反，你可以使用单例模式。在 DBConn 类中添加以下代码：

'Make Constructor Private to disallow creating an Instance from somewhere else
Private Sub New()
End Sub

'Variable to share the only created instance
Private Shared _Instance As DBConn

'Function to get access to the only instance
Public Shared ReadOnly Property Instance() As DBConn
  Get
    If _Instance Is Nothing Then
      _Instance = New DBConn
    End If
    Return _Instance
  End Get
End Property

进行这些更改后，您需要将每个表单中的一行“更正”为以下内容：

Dim bla as DBConn = DBConn.Instance

这应该确保两个表单都要求实例，并且仅在第一次创建实例时。所有进一步的请求都会收到相同的实例。

还有一件事：如果您有“WithEvents”或任何 EventHandling 连接到该 Singleton，那么请确保在关闭/处置 form1 时将 DBConn 变量设置为空。但根据你的代码，这并不重要。

Answer 2

如果您将每个表单中的连接类声明为 Dim someName as new DBConn，那么您的问题就很明显：它们不知道彼此的存在。如果除了表单之外还有一个模块，其中您将 DBConn 实例声明为 Friend，那么所有表单都会知道它