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

Question

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

В 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

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

---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» для объединения каждого значения массива в одну строку.