使用SQL语句将相同名的多行字段内容拼接起来

以下内容来自CHATGPT，其中PGADMIN经实验，有效
1、在MYSQL中使用：
可以使用GROUP_CONCAT函数来实现相同名称的多行字段内容拼接。具体语法如下：

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

其中，column_name是相同名称的字段，another_column是需要拼接的字段，SEPARATOR是拼接多个字段内容之间的分隔符。GROUP BY用于将所有相同column_name的行分组在一起。最终结果将会得到每个相同column_name的值以及对应的拼接内容。

2、在PGADMIN中使用：
可以使用STRING_AGG函数来实现相同名称的多行字段内容拼接。具体语法如下：

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

其中，column_name是相同名称的字段，another_column是需要拼接的字段，','是拼接多个字段内容之间的分隔符。GROUP BY用于将所有相同column_name的行分组在一起。最终结果将会得到每个相同column_name的值以及对应的拼接内容。需要注意的是，STRING_AGG函数是PostgreSQL特有的，不支持在其他数据库中使用。

运行结果

3、在VBA中使用
在Access中，可以使用自定义函数来实现相同名称的多行字段内容拼接。具体步骤如下：

1. 创建一个新的模块，名为“Module1”（可以自定义名称）。
2. 在模块中添加以下VBA代码：

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

3. 在SQL查询中调用自定义函数，具体语法如下：

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

其中，columnName是相同名称的字段，anotherColumn是需要拼接的字段，tableName是需要拼接的表名，separator是拼接多个字段内容之间的分隔符。GROUP BY用于将所有相同columnName的行分组在一起。最终结果将会得到每个相同columnName的值以及对应的拼接内容。需要注意的是，自定义函数中的SQL语句需要使用Access的SQL语法。