如何在執行SetDefaultWorkgroupFile之後恢復爲默認的System.mdw？

我做在代碼中設置默認的工作組文件如下：如何在執行SetDefaultWorkgroupFile之後恢復爲默認的System.mdw？

Application.SetDefaultWorkgroupFile「C：\ myworkgroup.mdw」

如何找出當前工作組是我做這個之前，所以我可以恢復？有沒有內置Access的東西？

感謝，格雷格

2010-09-20 Greg ' ' Wildman' ' Finzer

我不知道一個方法或屬性返回當前的工作組文件。但是，當您在Access中打開數據庫時，可以從CurrentProject.Connection中提取它。

Public Function CurrentWorkgroupFile() As String 
    Dim strSplit1 As String 
    strSplit1 = Split(CurrentProject.Connection, "System database=")(1) 
    CurrentWorkgroupFile = Split(strSplit1, ";")(0) 
End Function

編輯：我認爲斯普利特（）函數可以在Access版本開始與2000年如果你的訪問不是最新版本，則需要通過其他方法來提取工作組文件位置。

編輯2：閱讀關於DBEngine.SystemDB在此答案的評論。

來源

2010-09-20 16:41:01 HansUp

呃，有沒有理由不使用DBEngine.SystemDB？ – 2010-09-20 21:12:26

DBEngine.SystemDB就是這樣。謝謝！ – 2010-09-22 12:00:40

這個問題有些混亂。默認的工作組文件可能完全不同於特定的Access實例所使用的文件。即使對於使用默認值的Access實例，更改默認工作組文件的設置也不會更改該實例中使用的工作組文件。 – 2010-09-22 19:13:05

如何在執行SetDefaultWorkgroupFile之後恢復爲默認的System.mdw？

回答

相關問題