Access数据库按双字段分组并以逗号合并第三字段值

需求说明 #

按line和spool两个字段分组，将对应joint字段的多个值合并为逗号分隔的字符串，实现从原始数据到目标格式的转换。

方法一：自定义VBA聚合函数（推荐，兼容性好） #

Access没有内置的字符串聚合函数，我们可以通过自定义VBA函数实现：

1. 打开Access数据库，按Alt+F11打开VBA编辑器
2. 插入新模块（菜单栏：插入 -> 模块）
3. 粘贴以下代码，替换你的表名为实际表名称：

Function ConcatJoints(strLine As String, strSpool As String) As String
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strResult As String
    
    ' 构建筛选当前line和spool的查询，处理单引号避免语法错误
    strSQL = "SELECT joint FROM 你的表名 WHERE line = '" & Replace(strLine, "'", "''") & "' AND spool = '" & Replace(strSpool, "'", "''") & "'"
    
    Set rs = CurrentDb.OpenRecordset(strSQL)
    
    ' 遍历记录拼接joint值
    Do While Not rs.EOF
        If strResult <> "" Then strResult = strResult & ","
        strResult = strResult & rs!joint
        rs.MoveNext
    Loop
    
    ConcatJoints = strResult
    rs.Close
    Set rs = Nothing
End Function

4. 创建查询获取结果
   打开查询设计视图，切换到SQL视图，输入以下语句（替换你的表名）：

SELECT line, spool, ConcatJoints(line, spool) AS joint
FROM 你的表名
GROUP BY line, spool;

运行查询即可得到目标格式的数据。

方法二：域聚合查询（适合小数据量场景） #

如果不想编写VBA，可使用嵌套查询实现（仅适合数据量较小的表）：

SELECT 
    t1.line, 
    t1.spool,
    (SELECT Join(",", (SELECT joint FROM 你的表名 t2 WHERE t2.line = t1.line AND t2.spool = t1.spool))) AS joint
FROM 你的表名 t1
GROUP BY t1.line, t1.spool;

注意事项 #

• 若joint为数字类型，自定义函数中的SQL语句无需给字段值加单引号，可调整代码适配
• 为提升查询效率，建议给line和spool字段添加联合索引
• 自定义函数中的Replace用于处理字段值包含单引号的情况，避免SQL语法错误

内容的提问来源于stack exchange，提问作者Masood MORADI