0

我在 Visual Studio 2008 中创建了一个共享加载项，并使用共享加载项向导并在 VB 中进行编码。在 Access 2003 中运行插件时，我想检查用户是否打开了数据库，因此我将 AccessApplication 变量设置为 OnConnection 过程中的应用程序对象，然后单击按钮检查 AccessApplication.CurrentDB 是否为 Nothing If没有数据库打开 点击按钮后Access会正确关闭。但是如果数据库是打开的，那么我必须在 VS 调试器中停止 Access。

请在我的 OnConnection、OnDisconnection 和 OnClick 程序下方找到任何有关此问题的帮助，我们将不胜感激。

Public Sub OnDisconnection(ByVal RemoveMode As Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnDisconnection
    m_oTestMenu.Delete()
    m_oTestBtn.Delete()

    m_oTestMenu = Nothing
    m_oTestBtn = Nothing

    AccessApplication = Nothing
End Sub

Public Sub OnConnection(ByVal application As Object, ByVal connectMode As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
    Dim oCommandBars As Microsoft.Office.Core.CommandBars

    On Error GoTo ErrHandler

    AccessApplication = CType(application, Microsoft.Office.Interop.Access.Application)

    oCommandBars = AccessApplication.CommandBars

    ' Add the menu to the existing menu list
    m_oTestMenu = AddMenu(oCommandBars, "Test", "Test")

    ' Now create menu options
    m_oTestBtn = AddMenuButton(m_oTestMenu, _
        "TestBtn", MsoButtonStyle.msoButtonIconAndCaption, "Test Btn", MsoButtonState.msoButtonUp)

    ' Clean up
    oCommandBars = Nothing
    Exit Sub

ErrHandler: oCommandBars = Nothing MsgBox("Error") End Sub

Private Sub m_oTestBtn_Click(ByVal Ctrl As Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean) Handles m_oTestBtn.Click
    Dim AccessDB As dao.Database

    On Error GoTo ErrHandler

    AccessDB = AccessApplication.CurrentDb

    MsgBox("DB Found " & AccessDB.Name)

    'Try To Close Everything
    AccessDB.Close()
    AccessDB = Nothing

    AccessApplication.CurrentDb.Close()
    AccessApplication = Nothing

    Exit Sub

ErrHandler: MsgBox("点击错误") AccessDB = Nothing End Sub

4

1 回答 1

2

找到这篇文章

http://www.xtremevbtalk.com/showthread.php?t=160433

看来我需要在 OnDisconnect 过程结束时手动进行垃圾收集。

添加了

        GC.Collect()
    GC.WaitForPendingFinalizers()

到 OnDisconnect 函数的末尾 Access 现在关闭

希望这对其他人有帮助

于 2009-01-20T13:58:01.440 回答