使用SQL语句将相同名的多行字段内容拼接(方法详解)

SELECT column_name, GROUP_CONCAT(another_column SEPARATOR ',') as concat_column
FROM table_name
GROUP BY column_name;

SELECT column_name, STRING_AGG(another_column, ',') as concat_column
FROM table_name
GROUP BY column_name;

Public Function ConcatenateField(fieldName As String, tableName As String, Optional separator As String = ", ") As String
    Dim rs As Recordset
    Dim result As String
    Set rs = CurrentDb.OpenRecordset("SELECT " & fieldName & " FROM " & tableName & ";")
    While Not rs.EOF
        result = result & rs.Fields(fieldName) & separator
        rs.MoveNext
    Wend
    rs.Close
    If Len(result) > 0 Then
        ConcatenateField = Left(result, Len(result) - Len(separator))
    Else
        ConcatenateField = ""
    End If
End Function

SELECT columnName, ConcatenateField("anotherColumn", "tableName") as concat_column
FROM table_name
GROUP BY columnName;