有没有办法判断另一个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