Объединить строки / объединить строки

Question

Я ищу Access 2007 эквивалентный функции SQL Server COALESCE.

В SQL Server вы можете сделать что-то вроде:

лицо

John
Steve
Richard

SQL

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

PRINT @PersonList

Который производит: Джон, Стив, Ричард

Я хочу сделать то же самое, но в 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

Здесь я понимаю, что у вас есть таблица "человек" с 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

когда у вас есть этот массив (он будет двумерным), вы можете манипулировать им, чтобы извлечь нужную вам «колонку». Может быть разумный способ извлечь из этого одномерный массив, поэтому вы можете использовать инструкцию «Соединение» для объединения каждого значения массива в одну строку.

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

Я думаю, что Nz - это то, что вам нужно, синтаксис - Nz(variant, [if null value]). Вот ссылка на документацию: Функция Nz

---Person--- 
John
Steve
Richard

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

PRINT @PersonList