Объединение строк в одной таблице через запятую

Posted by obzor under sql, VBA

Дана таблица:

Нужно сделать SQL запрос, чтобы в итоге получилась вот такая таблица номер 2:

Aleksandr H.

1. пишем функцию

Function allLinesRose16(SKU As String)
    Dim sSql As String
    Dim rs As DAO.Recordset
    sSql = "SELECT [Упаковка] from Таблица2 WHERE [Продукция] like """ & SKU & "*"""
    Set rs = CurrentDb.OpenRecordset(sSql)
    Do Until rs.EOF
        allLinesRose16 = allLinesRose16 + ", " & (rs(0) & "")
        rs.MoveNext
    Loop
    If Len(allLinesRose16) > 2 Then allLinesRose16 = Mid(allLinesRose16, 2)
    Set rs = Nothing
End Function

2. пишем запрос

SELECT Таблица2.Продукция, Таблица2.Цех, allLinesRose16([Продукция]) AS Выражение1
FROM Таблица2
GROUP BY Таблица2.Продукция, Таблица2.Цех, allLinesRose16([Продукция]);

3. запускаем запрос с п.2
4. для цеха — допиливаем по аналогии.

тема на форуме

Похожие статьи

• Подсчет количества повторов построчно в Microsoft Office Access, как в Excel (Счётесли)
• Как программно увеличить толщину линий в графике на форме в Microsoft Office Access?
• Номер записи в результатах запроса (Access)
• Поле и вычисления в запросе (SQL в Access)
• Фильтр на форме в Access
• Объединение таблиц (SQL)
• Фильтр на форме в Access
• Запрос SQL на выборку максимальных значений по каждому году
• Несколько получателей письма Outlook
• Преобразование даты в SQL запросе