Access服务器端应用：如何将断连用户标记为已登出？

当然可以通过后端机制实现异常断开用户的会话状态更新，以下是几种实用的方案：

1. 心跳检测机制 #

这是最通用且可靠的方案，核心思路是通过客户端定期上报活跃状态，后端清理超时会话：

• 客户端配置：在Access应用中添加定时器（比如每隔3分钟触发一次），执行VBA代码更新后端会话表的最后活跃时间字段，确保只有在线用户会持续刷新这个时间
• 后端定时清理：设置定时任务（比如用Windows任务计划调用Access宏，或后端数据库的定时模块），每隔5分钟扫描会话表，将最后活跃时间超过阈值（比如8分钟，比心跳间隔长）且状态为登录中的记录更新为已登出

客户端心跳更新示例代码：

Sub RefreshUserHeartbeat()
    Dim dbConn As ADODB.Connection
    Set dbConn = CurrentProject.Connection
    ' 假设会话表名为UserSessions，包含UserID、SessionStatus、LastActive字段
    dbConn.Execute "UPDATE UserSessions SET LastActive = Now() " & _
                   "WHERE UserID = '" & CurrentUser() & "' AND SessionStatus = '登录中'"
    Set dbConn = Nothing
End Sub

后端清理无效会话示例代码：

Sub CleanInactiveSessions()
    Dim dbConn As ADODB.Connection
    Set dbConn = CurrentProject.Connection
    dbConn.Execute "UPDATE UserSessions SET SessionStatus = '已登出' " & _
                   "WHERE SessionStatus = '登录中' AND LastActive < DateAdd('n', -8, Now())"
    Set dbConn = Nothing
End Sub

2. 后端锁定文件解析 #

Access客户端连接后端数据库时，会自动生成.laccdb（旧版本为.ldb）锁定文件，文件内记录了当前所有活跃连接的用户信息：

• 编写脚本（VBA或PowerShell）解析锁定文件，提取当前在线用户列表
• 对比会话表中标记为登录中的用户，将不在活跃列表中的用户状态更新为已登出
• 注意：锁定文件是二进制格式，解析时需要处理特定的格式规则，也可以通过Access的自定义函数提取用户列表

3. 客户端标识关联检测 #

登录时记录客户端的机器名、进程ID等唯一标识，后端定时验证这些标识的有效性：

• 登录时通过VBA获取客户端信息：Environ("COMPUTERNAME")获取机器名，调用Windows APIGetCurrentProcessId获取进程ID，存入会话表
• 后端定时任务通过局域网工具（比如ping命令）检测机器是否在线，或通过远程进程管理工具验证进程是否存在，无法检测到则标记会话为已登出
• 局限性：仅适用于局域网环境，且需要足够的系统权限

注意事项 #

• 心跳间隔和超时阈值需根据业务场景调整，避免因用户暂时离开应用导致误判
• 定时任务的执行频率要平衡状态及时性和服务器负载
• 如果后端使用SQL Server等专业数据库，可直接利用其原生会话跟踪视图（如sys.dm_exec_sessions），实现更精准的状态检测

内容的提问来源于stack exchange，提问作者Ashraf Fouad