如何設置已打開的數據庫vba的引用

Question

我正在嘗試從excel vba獲取已經打開的數據庫的記錄集。 在daoDB變量中獲取已打開的db的引用 。 我的excel vba代碼

Public Sub getdatafromaccess1()
Dim daoDB As DAO.Database
Dim daoQueryDef As DAO.QueryDef
Dim daoRcd As DAO.Recordset

'Here i want to reference to already opened database instead of opening


Set daoDB= OpenDatabase("C:\temp\sample.accdb")
Set daoQueryDef = daoDB.QueryDefs("Headings")
Set daoRcd = daoQueryDef.OpenRecordset
ThisWorkbook.Worksheets("w1").Range("A1").CopyFromRecordset daoRcd

End Sub

Answer 1

為了維護更清晰和可訪問的代碼，將連接狀態移動到全局變量是一個明智的想法，這樣您就可以在所有函數和子函數中使用該對象。

更新 - 這將在工作簿打開時保持連接。

Global daoDB As DAO.Database

Private Sub Workbook_Open()
    Set daoDB = OpenDatabase("C:\temp\sample.accdb") 'Your DB connection function
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    daoDB.Close
End Sub