VB.NET 实现MS Access数据库全运行周期连接保持打开的方法

• 现有实现的性能损耗来源：每个窗体独立初始化OleDb连接对象、每次数据操作前手动触发Open流程、无统一的资源释放逻辑，反复创建连接会重复触发Access的文件权限校验、句柄分配流程，是导致应用运行变慢的核心原因，并非长连接本身带来的问题。

全局单例连接实现逻辑 #

放弃在每个窗体中公共声明连接对象的写法，将连接管理逻辑收敛到全局单例类中，保证全应用运行周期仅存在一个连接实例，实现启动即开、退出统一关的流程。

单例连接管理类的参考实现：

' 全局数据库连接管理单例类
Public Class DbConnectionManager
    ' 全局唯一的类实例，由CLR保证初始化时的线程安全
    Private Shared ReadOnly _instance As New DbConnectionManager()
    ' 全局共享的OleDb连接对象
    Private ReadOnly _dbConnection As OleDbConnection

    ' 私有构造函数，禁止外部直接实例化
    Private Sub New()
        ' 统一维护连接字符串，避免分散在各窗体重复配置
        Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files (x86)\SACCO\SACCO_DB.accdb"
        _dbConnection = New OleDbConnection(connString)
    End Sub

    ' 对外暴露的单例实例入口
    Public Shared ReadOnly Property Instance As DbConnectionManager
        Get
            Return _instance
        End Get
    End Property

    ''' <summary>
    ''' 应用启动时调用，打开全局共享连接
    ''' </summary>
    Public Sub OpenGlobalConnection()
        ' 仅在连接处于关闭状态时执行打开操作，避免重复触发Open异常
        If _dbConnection.State = ConnectionState.Closed Then
            _dbConnection.Open()
        End If
    End Sub

    ''' <summary>
    ''' 供数据操作获取全局共享的连接对象
    ''' </summary>
    Public ReadOnly Property CurrentConnection As OleDbConnection
        Get
            Return _dbConnection
        End Get
    End Property

    ''' <summary>
    ''' 应用退出时调用，统一关闭连接并释放资源
    ''' </summary>
    Public Sub CloseGlobalConnection()
        ' 仅在连接处于打开状态时执行关闭，避免空状态触发异常
        If _dbConnection.State = ConnectionState.Open Then
            _dbConnection.Close()
            _dbConnection.Dispose()
        End If
    End Sub
End Class

接入流程 #

• 在应用启动入口（可选择VB.NET全局Sub Main()方法、主启动窗体的Load事件）调用DbConnectionManager.Instance.OpenGlobalConnection()，应用加载时即完成连接初始化，无需在每次数据操作前手动执行Open。
• 删除所有窗体中原有的myConnection、cmd公共声明代码，所有数据操作统一从DbConnectionManager.Instance.CurrentConnection获取全局连接对象，替换原来的独立连接逻辑，参考写法：

  ' 原INSERT逻辑的全局连接适配示例
  Dim sql As String = "INSERT INTO STAFF([ID_NO],[FULL_NAME],[EMAIL],[PASSWORD]) Values(?,?,?,?)"
  ' 用Using块包裹命令对象，保证执行完自动释放资源，不干扰全局连接
  Using insertCmd As New OleDbCommand(sql, DbConnectionManager.Instance.CurrentConnection)
      ' OleDb的参数匹配按顺序对应，注意和SQL中的?占位符顺序一致
      insertCmd.Parameters.AddWithValue("p1", 输入的ID号值)
      insertCmd.Parameters.AddWithValue("p2", 输入的姓名值)
      insertCmd.Parameters.AddWithValue("p3", 输入的邮箱值)
      insertCmd.Parameters.AddWithValue("p4", 输入的密码值)
      insertCmd.ExecuteNonQuery()
  End Using
  

• 在应用退出的统一回调逻辑（比如主窗体的FormClosed事件、全局应用退出钩子）中调用DbConnectionManager.Instance.CloseGlobalConnection()，保证应用退出时统一释放连接资源，避免Access文件句柄残留导致的数据库锁定问题。

运行注意事项 #

• 全局连接的生命周期完全和应用运行周期绑定，不要在单次数据操作完成后手动关闭该连接，否则会失去长连接的性能优化效果。
• 所有通过全局连接创建的OleDbCommand、OleDbDataReader等操作对象，必须使用Using块包裹，保证执行完即释放资源，不会和全局连接产生资源竞争。
• 可在日常数据操作前增加连接状态校验：如果发现当前连接状态为关闭或断开，直接调用OpenGlobalConnection()方法重新建立连接，适配系统休眠、共享盘连接波动等异常场景，提升稳定性。
• 原配置中数据库存储在C:\Program Files (x86)路径存在UAC权限风险，该路径在Win7及以上系统默认对非管理员用户开放只读权限，容易出现写入失败、数据库锁定问题，建议将数据库文件迁移到应用自定义的公共数据目录，比如通过Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData)获取的系统公共应用路径下，权限可控。

内容的提问来源于stack exchange，提问作者Sheikh Kelvin