强制访问忘记链接表的用户名和密码

Question

我有一个 MS Access 数据库，它通过链接服务器连接到 SQL 服务器。

链接表是使用修改后的AttachDSNLessTable 过程添加的：

stConnect = "ODBC;DRIVER=" & stDriverName & ";SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword
Set td = CurrentDb.CreateTableDef(stLocalTableName)
td.SourceTableName = stRemoteTableName
td.Connect = stConnect

CurrentDb.TableDefs.Append td

我在应用程序中有一个工具可以更改登录用户，这将删除所有 tabledef：

For Each td In CurrentDb.TableDefs
    If td.Name = stLocalTableName Then
        CurrentDb.TableDefs.Delete stLocalTableName
    End If
Next

然后它会使用上面的过程重新添加。

现在这似乎可以工作，但是如果我以user1 登录然后将用户更改为user2 而不关闭访问，则使用user1 凭据建立连接，运行包含SUSER_NAME() 的视图显示user1是登录用户。

有没有办法强制重置连接或强制更改用户？

编辑

我的整个登录功能：

Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stDriverName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String)
    On Error GoTo AttachDSNLessTable_Err
    Dim td As TableDef
    Dim stConnect As String

    For Each td In CurrentDb.TableDefs
        If td.Name = stLocalTableName Then
            CurrentDb.TableDefs.Delete stLocalTableName
            Exit For
        End If
    Next

    If Len(stUsername) = 0 Then
        '//Use trusted authentication if stUsername is not supplied.
        stConnect = "ODBC;DRIVER=" & stDriverName & ";SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes"
    Else
        '//WARNING: This will save the username and the password with the linked table information.
        stConnect = "ODBC;DRIVER=" & stDriverName & ";SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword
    End If

    Set td = CurrentDb.CreateTableDef(stLocalTableName)
    td.SourceTableName = stRemoteTableName
    td.Connect = stConnect

    CurrentDb.TableDefs.Append td
    AttachDSNLessTable = ""
    Exit Function

AttachDSNLessTable_Err:

    AttachDSNLessTable = err.Description

End Function

Answer 1

编辑

我花了一段时间才意识到这一点。您的问题是 Access 缓存每个 {server,database} 基础的连接。没有办法清除这个缓存（据我所知）

但是有一种解决方法：即使服务器或数据库详细信息没有更改，答案也是使连接唯一。

使用 DSN 文件 您不能更改数据库名称或服务器名称以使连接唯一，但您可以更改 DSN 文件名，Access 会将连接视为“唯一”/新连接。

如果您使用相同的 DSN 文件，连接将再次被缓存，因此您必须为每次登录尝试使用不同的 DSN 文件。

这是一个通用功能，允许用户登录或注销您的系统。每次登录都会生成一个新的 DNS 文件并与您的数据库建立新连接 => 允许您登录的用户成为新用户。

以下函数只是概念性的。根据你的需要改变 并添加错误陷阱。

Public Function FN_CREATE_DNS_FILE()


    Const Server    As String = "" ' Server
    Const Driver    As String = "" ' Driver
    Const Port      As String = "" ' Port
    Const Database  As String = "" ' Database

    Dim DsnFileName As String
    Dim Fso         As Object
    Dim DnsFile     As Object

    Set Fso = CreateObject("Scripting.FileSystemObject")
    DsnFileName = VBA.Environ$("temp") & "\" & VBA.Format(Now(), "yyyy-mm-dd_hh_mm_ss") & ".dsn"

    Set DnsFile = Fso.CreateTextFile(DsnFileName)
    DnsFile.WriteLine "[ODBC]"
    DnsFile.WriteLine "DRIVER=" & Driver
    DnsFile.WriteLine "PORT=" & Port
    DnsFile.WriteLine "DATABASE=" & Database
    DnsFile.WriteLine "SERVER=" & Server

    'Close file and clean up
    DnsFile.Close
    Set Fso = Nothing
    Set DnsFile = Nothing

    FN_CREATE_DNS_FILE = DsnFileName

End Function

Public Function LogOut()

    Dim Qdf         As QueryDef

    For Each Qdf In CurrentDb.QueryDefs
        If (VBA.InStr(Qdf.Connect, "ODBC")) > 0 Then
            Qdf.Connect = "ODBC;" 'Either delete if you don't require this object or set to blank connection string
        End If
    Next Qdf

End Function



Public Function LogIn(stUsername As String, stPassword As String)

    Dim Tdf         As TableDef
    Dim Qdf         As QueryDef
    Dim stConnect   As String
    Dim ConForQuery As String
    Dim I           As Integer: I = 0

    Dim DsnFileName As String

    On Error GoTo AttachDSNLessTable_Err
    'Produce new DNS file with new filename to make Acces Connection unique
    DsnFileName = FN_CREATE_DNS_FILE()

    stConnect = "ODBC;AUTO_RECONNECT=1;NO_PROMPT=1"
    If Len(stUsername) = 0 Then
        '//Use trusted authentication if stUsername is not supplied.
        stConnect = stConnect & ";Trusted_Connection=Yes"
        ConForQuery = stConnect
    Else
        '//WARNING: This will save the username and the password with the linked table information.
        stConnect = stConnect & ";UID=" & stUsername & ";PWD=" & stPassword
        ConForQuery = stConnect & ";UID=" & stUsername
    End If

    ConForQuery = ConForQuery & ";" & "FILEDSN=" & DsnFileName
    stConnect = stConnect & ";" & "FILEDSN=" & DsnFileName

    On Error GoTo ERROR_Invalid_login
    'Update all linked tables
    For Each Tdf In CurrentDb.TableDefs
        If (VBA.InStr(Tdf.Connect, "ODBC")) > 0 Then
            Tdf.Connect = stConnect & ";TABLE=" & Tdf.Name
            If (I = 0) Then Tdf.RefreshLink 'Refreshing one table is enough as long as table definition hasnt changed
            I = I + 1
        End If
    Next Tdf

    'update all passthrough queries
    For Each Qdf In CurrentDb.QueryDefs
        If (VBA.InStr(Qdf.Connect, "ODBC")) > 0 Then
            Qdf.Connect = stConnect
        End If
    Next Qdf

    LogIn = ""
    Exit Function

AttachDSNLessTable_Err:
    LogIn = Err.Description
    Exit Function

ERROR_Invalid_login:
    LogIn = "Login failed"
    LogOut 'Delete or set blank for all pass through queries
End Function

如果用户登录，您只需调用

LogIn(Username, password)

这将更新所有链接表以及直通查询。

这是一个屏幕截图。

QryCurrentUser 执行 MySQL 命令select user();，显示当前连接的所有者。 如您所见，现在每个登录都显示正确的登录用户名。

如果登录失败，您有两种选择。删除表和直通查询中的所有链接。或将它们设置为空白连接字符串。

附言 我已将 NO_PROMPT & AUTO_RECONNECT 添加到连接字符串中，以防止在登录失败时显示数据库连接窗口并自动重新连接（MySQL 命令，不确定它是否适用于 MSSQL）如果不兼容则删除它们。

如果你能做到这一点，请告诉我。

Answer 2

有几个想法可以尝试。我只推荐这些，因为它们很容易检查。

1. 尝试先重命名旧表，然后创建新表，然后删除旧表。如果您欺骗 Access 以为您是在添加而不是替换，它可能会配合。

2. 尝试将另一个元素添加到连接字符串（除了 UID，Access 以特殊方式处理它）以使其每个用户唯一。我相信您可以将任意标记/值对添加到 ODBC 连接字符串，它会被忽略。例如

   "ODBC;Driver=SQL Server;MyUniqueTag=" & stUserName & ";UID=" & stUserName
   

   ODBC 连接池对于每个连接字符串都是唯一的，因此这可能会欺骗 Access 使用不同的连接池，因为它不知道 ODBC 驱动程序不使用MyUniqueTag。