在 VB.NET 操作期间保持数据库打开

Question

我需要一种方法来让我的 MSaccess 数据库在整个应用程序操作过程中保持打开状态，而不是在每次输入数据时打开和关闭。 目前Dim provider As String Dim dataFile As String Dim connString As String Dim myConnection As OleDbConnection = New OleDbConnection Dim cmd As New OleDbCommand 在每种形式中都是公开的。并且在私有类上声明了以下内容

 provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
        dataFile = "C:\Program Files (x86)\SACCO\SACCO_DB.accdb"
        connString = provider & dataFile
        myConnection.Open()
        Dim str As String
        str = "INSERT INTO STAFF([ID_NO],[FULL_NAME],[EMAIL],[PASSWORD]) Values(?,?,?,?)"
        Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection) 

这会使我的应用程序变慢。请有人指导我如何在启动时保持数据库打开并在退出时关闭。

Answer 1

是的，这是一个由来已久的问题 - 我们几乎每周都会看到有关打开数据库时如何发生大延迟的帖子。因此，在这 20 多年的时间里，几乎每天，从访问前端到后端，解决方案一直是强制 + 保持持久连接。我可以写一篇关于如何以及为什么会发生这种情况的长篇文章，但它与 Windows 文件系统有关 - 因此是文件的打开，并且 Access 试图打开独占，因为它试图将文件的使用翻转为高速度单用户模式可能会导致非常大的延迟。如前所述，强制并保持连接打开是近 20 年来我们在这里看到的几乎每天的建议。

那么，好吧，我们现在使用 vb.net？

只需将标准代码模块中的全局变量声明为公共变量。然后在你的启动代码中，你可以做两件事之一：

打开数据库对象 - 这意味着您不必提前知道“选择”要打开的特定表。

例如：

Imports System.Data.OleDb

Module MyGlobalCode

    Public gDBCon As OleDbConnection ' global connection object

    Public Sub GlobalOpenDatabase()
        gDBCon = New OleDbConnection(My.Settings.TESTAce)
        gDBCon.Open
    End Sub

    Public Sub GlobalCloseDatabase()
        gDBCon.Close()
    End Sub


End Module

那么，现在在任何和所有代码中？您使用上述 gDBCon 并且您：

不必一遍又一遍地创建新的连接对象。 您消除了这个由来已久的缓慢打开问题。

现在，尚不清楚为什么在某些网络和设置上不会发生这种大延迟 - 但是，如果发生这种情况，那么上述将显示性能的惊人改进。通常问题甚至是病毒扫描软件，有时似乎与 Active Directory 有关。而其他时候，它与非常慢的文件创建时间有关（每次打开数据库时，也会创建一个“.ldb”文件 - 在某些系统上创建此文件的时间可能很长 - 再次强制打开连接将消除您的软件速度受到 AD 或病毒软件等外部因素或导致此问题的大量其他问题的限制。