Вывод данных в строку

[satka]

Таблица
—————
Id | Data
—————
1 | a
1 | b
1 | с
2 | a
2 | d

Нужно получить в запросе так
Id | Data
—————
1 | a, b, с
2 | a, d
Вопрос: как будет выглядет запрос?

[Teslenko_EA]

Здравствуйте satka.
"..как будет выглядет запрос?.."
Средствами SQL в MS Access получить подобное отображение не возможно.
Решить задачу можно создав в VBA подобную пользовательскую функцию:

Function toRows$(Id)
Const sQ = "SELECT DISTINCT Data FROM Table WHERE Id= "
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
    Set cn = CurrentProject.Connection
    rs.Open sQ & Id, cn, adOpenStatic, adLockReadOnly, adCmdText
    If Not rs.EOF Then toRows = rs.GetString(adClipString, , , ", ")
    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing
End Function

и с её применением строить SQL конструкцию:

SELECT Id, toRows(Id) FROM Table

так будет выглядеть запрос.
Евгений.

[cherepushka]

Здравствуйте, Евгений! А можно ли сделать тоже самое, но для создания отчета? Что-то бьюсь, а ничего не выходит. Есть форма со строками, напротив каждой строчки кнопка для создания этой строки в отчете для печати.

[Teslenko_EA]

Здравствуйте cherepushka.
"..сделать тоже самое ...для... отчета.." - конечно можно, если в качестве источника данных для отчета
использовать запрос содержащий такое-же поле (с обращением к функции).
Евгений.

[ikrukov]

вариант, который работает у меня (БД во вложении):
1. пронумеровать значения Data, относящиеся к одному ID
(запрос Q_3_Numeration_of_NonEmptyTime)
2. создать таблицу пронумерованных значений
(запрос Q_4_MakeTable_of_Numerated_NonEmpty TimeSplits)
3. транспонировать таблицу
(Q_5_Transponate_of_TimeSplits)