Question

我正在寻找与SQL Server的COALESCE功能相当的Access 2007。

在SQL Server中，您可以执行以下操作：

人

John
Steve
Richard

SQL

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

PRINT @PersonList

产生：John，Steve，Richard

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

有没有人知道如何在Access 2007中组合这样的行？

Answer 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

Answer 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

Answer 3

尽管Nz与COALESCE相似，但您无法在Access中使用它来执行您正在执行的操作。不是COALESCE正在构建行值列表，它是变量的串联。

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

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

Answer 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，这将略有改变，但总体思路是相同的。

Answer 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”指令将每个数组值连接在一个字符串中。

组合行/连接行

5 个答案: