有沒有辦法判斷另一個Access數據庫是否與我的鏈接？

Question

我有一箇舊的Access數據庫與過多的查找表。據說這是一堆其他一些部門訪問應用程序鏈接到一個倉庫。我們想殺死它。但是，id有一種方法來查明是否有任何應用程序目前與其鏈接？

Answer 1

將其移動到另一個目錄。鏈接表具有硬編碼路徑。

Answer 2

數據庫未使用時不可使用。當它在使用中時，你應該看到一個LDB/LACCDB文件。您可以用記事本打開它以查看工作站名稱。

如果您使用Access安全性，您還將看到Access用戶標識。否則，您將看到「Admin」

使用記事本打開.ldb/.laccdb文件將向您顯示當前在數據庫中的人員以及數據庫中的一些工作站。當某人退出訪問他們的工作站名稱和訪問登錄ID時，管理員（除非您使用的是Access安全性）留在「插槽」或​​記錄在ldb文件中。此插槽或記錄可能會在下次有人進入MDB時被覆蓋，具體取決於ldb文件中之前可用的插槽或記錄。

Determining the workstation which caused the Microsoft Access MDB corruption

Answer 3

您需要的完整路徑和所有Access應用程序的文件名;這可能是不可能的。

對於那些可以，遍歷所有文件：

1. 連接到每個數據庫來測試鏈接。
2. 循環遍歷TestForLinkDatabase.TableDefs中的所有表格
3. 檢查每個表是否存在.SourceTableName和.Connect = YourLookupTableWarehouse。我認爲SourceTableName是本地表的空字符串。
4. 跟蹤＃3。如果在其他文件中找到單個實例，則可以選擇停止檢查其餘表。

同樣，它並不是萬無一失的，但是對於掌握浮動在您公司周圍的所有Access應用程序將是一個很好的練習。

*代碼不會排除系統表。

Private Sub CheckToSeeIfLinked() 
    Dim Dbs As DAO.Database 
    Dim Tdf As DAO.TableDef 
    Dim Tdfs As TableDefs 

    Dim wrk As DAO.Workspace 
    Set wrk = DBEngine.Workspaces(0) 

    Dim TestDatabaseForLinks As String 
    TestDatabaseForLinks = "C:\FileNameToCheck.mdb" 

    Set Dbs = wrk.OpenDatabase(TestDatabaseForLinks) 
    Set Tdfs = Dbs.TableDefs 

    For Each Tdf In Tdfs 

     If Tdf.Connect <> "" Then 
      Debug.Print "Table: " & Tdf.Name & " - Is Linked To: " & Tdf.Connect 
     Else 
      Debug.Print "Table: " & Tdf.Name & " is not linked" 

     End If 

    Next 

    If Not (Dbs Is Nothing) Then 
     Dbs.Close 
     Set Dbs = Nothing 
     Set Tdfs = Nothing 
    End If 

End Sub