Ms Access Query: объединение строк с помощью запроса

Question

Предположим, у меня есть таблица в Ms Access со следующей информацией:

ColumnA ColumnB
1       abc
1       pqr
1       xyz
2       efg
2       hij
3       asd

У меня вопрос, как я могу объединить значения во втором столбце со значением строки на основе первого столбца. Результаты запроса, которые я хочу, выглядит следующим образом:

ColumnA ColumnB
1       abc, pqr, xyz
2       efg, hij
3       asd

Я хочу добиться этого с помощью запроса. Может ли кто-нибудь помочь мне достичь этого?

Answer 1

Вам нужна функция для объединения.

Microsoft Access сжимает несколько строк в таблице

Пример использования ваших данных:

Select T.ColumnA
  , GetList("Select ColumnB From Table1 As T1 Where T1.ColumnA = " & [T].[ColumnA],"",", ") AS ColumnBItems
From Table1 AS T
Group By T.ColumnA;

Answer 2

Вот выдающаяся ссылка: как это сделать из SQL, вызвав функцию. Инструкции исключительно понятны и функция написана для вас, так что вы можете просто скопировать, вставить и перейти. Даже тот, кто не знает VB, может легко реализовать его: объединить значения из связанных записей

Answer 3

Это может быть очень трудно получить. Если вы ДОЛЖНЫ делать это в запросе, а не в функции, проблема, с которой вы столкнетесь, заключается в ограничении количества строк, которые вы можете объединить в один столбец. До сих пор единственный способ, которым я нашел, чтобы достигнуть этого, является заявлениями iif.

SELECT 
test1.ColumnA AS ColumnA, 
First([test1].[ColumnB]) & IIf(Count([test1].[ColumnB])>1,"," & Last([test1].[ColumnB])) AS ColumnB
FROM test1
GROUP BY test1.ColumnA;

возвращает:

ColumnA  ColumnB 
1      abc,xyz 
2      efg,hij 
3      asd

Это вернет первый и последний только, но я уверен, что немного поработав, вы могли бы поработать с функцией Выбрать, но, как я уже сказал, вам придется добавлять больше операторов iif для каждого дополнительного элемента, который вы хотите добавить, следовательно ограничение.

Answer 4

Таблица может иметь столбец последовательности, который дает ей уникальный первичный ключ ColumnA-sequence:

table: t1
ColumnA sequence ColumnB
1       1        abc
1       2        pqr
1       3        xyz
2       1        efg
2       2        hij
3       1        asd

И кросс-таблица может быть создана:

query: x1
TRANSFORM Min([columnB] & ", ") AS Expr1
SELECT t1.columnA
FROM t1
GROUP BY t1.columnA
PIVOT t1.sequence;

columnA 1    2    3
1       abc, pqr, xyz,
2       efg, hij,
3       asd,

Затем последний запрос может объединить столбцы и удалить последнюю запятую:

SELECT x1.columnA, Left([1] & [2] & [3],Len([1] & [2] & [3])-2) AS columnB FROM x1;

columnA columnB
1       abc, pqr, xyz
2       efg, hij
3       asd

Для автоматизации заполнения последовательности можно использовать следующий код VBA:

Sub fill_sequence_t1()
  Dim i: i = 1
  Do While DCount("*", "t1", "sequence IS NULL") > 0
    DoCmd.RunSQL "SELECT t1.columnA, Min(t1.columnB) AS columnB_min INTO t2" & _
                 " FROM t1 WHERE t1.sequence IS NULL GROUP BY t1.columnA;"
    DoCmd.RunSQL "UPDATE t1 INNER JOIN t2 ON (t1.columnA = t2.columnA)" & _
                 " AND (t1.columnB = t2.columnB_min) SET t1.sequence=" & i
    CurrentDb.TableDefs.Delete "t2"
    i = i + 1
  Loop
End Sub