手动关闭 ODBC DSN 连接

Question

我有一个 MS Access 数据库，它通过用户级 DNS ODBC 数据源连接到另一个数据库。

首次启动连接时，ODBC 驱动程序将提示我输入用户名和密码。然后它连接到服务器上的数据库取决于我使用的用户名。

一旦建立连接，Access 将保持/保持活动状态，直到我关闭 Access 数据库。

有没有办法强制 Access 关闭所有打开的 ODBC 连接，要求我在下次尝试访问服务器上的对象时再次提供登录凭据。我想要做的是切换 ODBC 连接正在访问的数据库，而不必完全关闭 Access 并重新打开数据库。

Answer 1

两件事：
1) 您可以通过以下操作使关闭和重新打开 Access 的过程对您的用户尽可能轻松：

' Close and restart
Shell "restart.bat", vbNormalFocus
Application.Quit

restart.bat 由类似的东西组成

REM wait for Access to close
TIMEOUT 3
REM your actual command line goes here
msaccess.exe mydatabase.mdb

2) 你提到：

我想要做的是切换 ODBC 的哪个数据库 连接正在访问

你发布的链接给了我一个想法：

任何后续 ODBC 对象碰巧在三个上匹配 参数（ODBC 驱动程序、服务器和数据库）将重用缓存的 连接。

如果您将链接表从用户 DSN 切换到无 DSN 连接，您想要的行为应该会自动发生。
只需通过更改“Database=...”部分来更改所有表的 .Connect 字符串，Access 应在下次访问表时要求提供凭据。

Answer 2

哦，链接表。我认为这是不可能的。
您可以尝试重置连接信息，但我怀疑它会起作用：

Dim TD As TableDef

For Each TD In DB.TableDefs
    ' Linked table? You can also check the .Connect string more specifically for KB_SQL
    If TD.Connect <> "" Then
        TD.Connect = TD.Connect
        TD.RefreshLink
    End If
Next TD

一种可能实际可行的更激进的方法是删除表格链接并重新添加它们。

Dim TD As TableDef
Dim sConn As String, sName As String

For Each TD In DB.TableDefs
    If TD.Connect <> "" Then
        sName = TD.Name
        sConn = TD.Connect
        ' Remove linked table
        DB.TableDefs.Delete sName
        ' and add it as new link
        DoCmd.TransferDatabase acLink, "ODBC Database", sConn, acTable, sName, sName
    End If
Next TD

您可能需要与 For Each 不同的循环，因为您在循环中修改 DB.TableDefs 集合。