Вопросы | ms-access

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

Вопрос

NakedBrunch | 12185 просмотров | рейтинг: 13

Я ищу 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?



Ответы

Fionnuala

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

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

PRINT @PersonList
 

 


Rikalous

+ 0 -
Хотя Nz делает нечто похожее на COALESCE, вы не можете использовать его в Access для выполнения выполняемой вами операции. Это не COALESCE, который строит список значений строк, это конкатенация в переменную. К сожалению, это невозможно в запросе Access, который должен быть одним оператором SQL и где нет возможности объявить переменную. Я думаю, что вам нужно создать функцию, которая будет открывать набор результатов, перебирать его и объединять значения строк в строку.  


Dave DuPlantis

+ 0 -
Чтобы объединить строки в 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, но общая идея та же.  


Philippe Grondier

+ 0 -
Я понимаю, что у вас есть таблица человек с 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 для объединения каждого значения массива в одну строку.  


Nick Craver

+ 13 -
Вот пример пользовательской функции (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


Теги

ms-access | ms-access-2007 | access-vba | coalesce