合并行/连接行

Posted

技术标签:

【中文标题】合并行/连接行【英文标题】:Combine rows / concatenate rows 【发布时间】:2010-09-10 16:46:08 【问题描述】:

我正在寻找与 SQL Server 的 COALESCE 函数等效的 Access 2007。

在 SQL Server 中,您可以执行以下操作:

人物

John
Steve
Richard

SQL

DECLARE @PersonList nvarchar(1024)
SELECT @PersonList = COALESCE(@PersonList + ',','') + Person
FROM PersonTable

PRINT @PersonList

产生:约翰、史蒂夫、理查德

我想在 Access 2007 中做同样的事情。

有人知道如何在 Access 2007 中像这样组合行吗?

【问题讨论】:

【参考方案1】:

这是一个示例用户定义函数 (UDF) 和可能的用法。

功能:

Function Coalsce(strSQL As String, strDelim, ParamArray NameList() As Variant)
Dim db As Database
Dim rs As DAO.Recordset
Dim strList As String

    Set db = CurrentDb

    If strSQL <> "" Then
        Set rs = db.OpenRecordset(strSQL)

        Do While Not rs.EOF
            strList = strList & strDelim & rs.Fields(0)
            rs.MoveNext
        Loop

        strList = Mid(strList, Len(strDelim))
    Else

        strList = Join(NameList, strDelim)
    End If

    Coalsce = strList

End Function

用法:

SELECT documents.MembersOnly, 
    Coalsce("SELECT FName From Persons WHERE Member=True",":") AS Who, 
    Coalsce("",":","Mary","Joe","Pat?") AS Others
FROM documents;

ADO 版本,灵感来自 onedaywhen 的评论

Function ConcatADO(strSQL As String, strColDelim, strRowDelim, ParamArray NameList() As Variant)
   Dim rs As New ADODB.Recordset
   Dim strList As String

   On Error GoTo Proc_Err

       If strSQL <> "" Then
           rs.Open strSQL, CurrentProject.Connection
           strList = rs.GetString(, , strColDelim, strRowDelim)
           strList = Mid(strList, 1, Len(strList) - Len(strRowDelim))
       Else
           strList = Join(NameList, strColDelim)
       End If

       ConcatADO = strList

   Exit Function

   Proc_Err:
       ConcatADO = "***" & UCase(Err.Description)
   End Function

发件人:http://wiki.lessthandot.com/index.php/Concatenate_a_List_into_a_Single_Field_%28Column%29

【讨论】:

我一直在寻找这个问题的解决方案太久了 - 谢谢!小修正 - 前导分隔符未正确从列表中剥离:strList = Mid(strList, Len(strDelim)+1)【参考方案2】:

我认为 Nz 是您所追求的,语法是 Nz(variant, [if null value])。这是文档链接:Nz Function

---Person--- 
John
Steve
Richard

DECLARE @PersonList nvarchar(1024)
SELECT @PersonList = Nz(@PersonList + ',','') + Person
FROM PersonTable

PRINT @PersonList

【讨论】:

【参考方案3】:

虽然 Nz 与 COALESCE 做了类似的事情,但您不能在 Access 中使用它来执行您正在执行的操作。构建行值列表的不是 COALESCE,而是变量的连接。

不幸的是,这在 Access 查询中是不可能的,它必须是单个 SQL 语句并且没有声明变量的工具。

我认为您需要创建一个函数来打开一个结果集,对其进行迭代并将行值连接成一个字符串。

【讨论】:

【参考方案4】:

要在 Access 中组合行,您可能需要如下所示的代码:

Public Function Coalesce(pstrTableName As String, pstrFieldName As String)

Dim rst As DAO.Recordset
Dim str As String

    Set rst = CurrentDb.OpenRecordset(pstrTableName)
    Do While rst.EOF = False
        If Len(str) = 0 Then
            str = rst(pstrFieldName)
        Else
            str = str & "," & rst(pstrFieldName)
        End If
        rst.MoveNext
    Loop

    Coalesce = str

End Function

您需要添加错误处理代码并清理您的记录集,如果您使用 ADO 而不是 DAO,这将略有改变,但总体思路是相同的。

【讨论】:

【参考方案5】:

我在这里了解到您有一个包含 3 条记录的表“人”。没有什么比得上你在 Access 中描述的。

在“标准”访问(DAO 记录集)中,您必须打开记录集并使用 getrows 方法获取数据

Dim rs as DAO.recordset, _
    personList as String, _
    personArray() as variant

set rs = currentDb.open("Person")
set personArray = rs.getRows(rs.recordcount)

rs.close

一旦你有了这个数组(它将是二维的),你可以操纵它来提取你需要的“列”。可能有一种聪明的方法可以从中提取一维数组,因此您可以使用“Join”指令将每个数组值连接到一个字符串中。

【讨论】:

PERSON 是示例中的字段名称,而表是 PersonTable。

以上是关于合并行/连接行的主要内容,如果未能解决你的问题,请参考以下文章

Excel - 合并具有共同值的行并将差异连接在一列中

python--pandas合并与连接

pandas:合并(内连接)数据框的行数比原始行数多

Python pandas数据框将2行合并为1行

matlab - 如何合并/交错 2 个矩阵?

sql server 数据行合并问题