改用SQL用户连接MSAccess应用，能否仍获取Windows用户信息？

方法1：Access端传递用户名到SQL会话上下文（推荐） #

这是最可靠且易实现的方案，核心是在Access操作数据前，把当前Windows用户名存入SQL Server的会话上下文，触发器从上下文读取值写入审计表。

• Access端VBA代码（每次操作前执行）：

  Dim conn As ADODB.Connection
  Set conn = CurrentProject.Connection
  ' 获取带域名的Windows用户名
  Dim winUser As String
  winUser = Environ("USERDOMAIN") & "\" & Environ("USERNAME")
  ' 将用户名写入SQL会话上下文
  conn.Execute "EXEC sp_set_session_context @key = N'WinUserName', @value = N'" & winUser & "'"
  Set conn = Nothing
  

  注：sp_set_session_context仅支持SQL Server 2016及更高版本

• SQL触发器中读取用户名的代码：

  DECLARE @WinUserName NVARCHAR(128)
  SELECT @WinUserName = CONVERT(NVARCHAR(128), SESSION_CONTEXT(N'WinUserName'))
  ' 将@WinUserName写入审计表对应字段，示例：
  INSERT INTO AuditTable (OperationType, TableName, UserName, ChangeTime)
  VALUES ('UPDATE', 'YourTableName', @WinUserName, GETDATE())
  

• 注意：如果Access使用连接池，需确保每次操作前都更新会话上下文，避免复用旧会话导致用户名错误。

方法2：修改Access操作逻辑，直接写入审计记录 #

绕过SQL触发器，在Access端完成数据操作的同时，直接插入审计记录，完全控制用户名来源。

• Access VBA示例：

  Dim winUser As String
  winUser = Environ("USERDOMAIN") & "\" & Environ("USERNAME")
  
  ' 执行主表更新
  CurrentDb.Execute "UPDATE MainTable SET Column1 = 'NewValue' WHERE ID = 1;"
  ' 同步插入审计记录
  CurrentDb.Execute "INSERT INTO AuditTable (TableName, Operation, UserName, ChangeTime) " & _
                    "VALUES ('MainTable', 'UPDATE', '" & winUser & "', GETDATE());"
  

• 优缺点：无需修改SQL Server配置，但需确保所有数据操作都通过Access的统一入口执行，避免直接操作SQL导致审计遗漏。

方法3：域环境下配置Kerberos约束委派（复杂） #

如果你的系统处于域环境中，可通过配置Kerberos约束委派，让SQL Server获取客户端的Windows身份，但配置门槛高且有安全风险：

• 步骤：
  1. 在域控制器中为SQL Server服务账户配置约束委派，允许委派到客户端Windows账户。
  2. 在SQL Server中创建签名存储过程，用于获取客户端原始Windows身份。
  3. 修改触发器调用该存储过程获取用户名。
• 注意：此方法需域管理员配合，且可能引入安全隐患，仅在必须保留触发器逻辑且域环境支持时考虑。

内容的提问来源于stack exchange，提问作者Donald Schroeder