Вывод значений через запятую в запросе

[sergey-911]

Всем доброго времени суток.

Код: Выделить всё

SELECT Table1.Pole1, Table2.Pole2
FROM Table1 INNER JOIN Table2 ON Table1.ID = Table2.ID


Уважаемые. Здесь, для каждого значения Pole1 существует несколько значений Pole2 (один - ко многим).
Нужно, чтобы в результате запроса выводилось, к примеру, не 10 одинаковых значений Pole1 в одной колонке таблицы и соответствующие 10 разных значений Pole2 в другой. Нужно вывести одно значение Pole1 и через запятую, соответствующие значения Pole2.
Как такой запрос реализовать.

[sergey-911]

Для лучшего восприятия прикрепляю Access-овский файл, см. запрос "vw_Abonent"

[alibek]

Боюсь, что никак. Правда в Access есть перекрестные запросы, они выполняют как раз то, что тебе нужно. Но это именно в Access, в других СУБД их не будет.

[Andrey Fedorov]

Боюсь, что никак. Правда в Access есть перекрестные запросы, они выполняют как раз то, что тебе нужно. Но это именно в Access, в других СУБД их не будет.

На SQL-сервере нечто подобное можно реализовать в хранимой процедуре. Или формировать данный Recordset на клиенте из обычного запроса... Или ударяться в изучение OLAP...

В общем простор для выбора.

[sergey-911]

Всем доброго времени.
Спасибо за отзыв всем
Посмотрел перекрестные запросы - не совсем то, что хотелось. Возможно не совсем разобрался.
Другого пути, понимаю, нет?

Код: Выделить всё

TRANSFORM Var(vw_Abonent.AbonentID) AS [Var-AbonentID]
SELECT vw_Abonent.Абонент
FROM vw_Abonent
GROUP BY vw_Abonent.Абонент
PIVOT vw_Abonent.Телефон;


Возможно, сам запрос не правильный?

[Konst_One]

вот так:

[sergey-911]

Всем доброго времени. Спасибо всем.
Должно быть так:

Код: Выделить всё

SELECT Abonent.AbonentID, Abonent.Abonent, GetPhones(AbonentID) AS Phones
FROM Abonent


Konst_One, спасибо. Очень помог.
Посмотрел твой сайт http://www.visualsoftru.com, грамотно.
Скачал VisualOpenDB (trial). Все продуманно, а скролл не работает?
Открой военную тайну. За счет чего сетка так быстро срабатывает. На то, чтобы открыть 40 тыс записей, используя VideoSoftGrid - у меня уходит время (подключение через ADO соединение, прописанное вручную). А здесь - моментально.
И еще, для вывода на печать, использовал ли ты свой компонент, или же сторонних разработчиков (чем-то напоминает генератор отчетов Formula1).

[sergey-911]

Код: Выделить всё

Option Compare Database
Public cn As ADODB.Connection

Public Function GetPhones(ByVal AbonentID As String) As String
Dim s As String
Dim rs As ADODB.Recordset
   
    If cn Is Nothing Then
        Set cn = New ADODB.Connection
        cn.CursorLocation = adUseClient
        cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
        cn.Open "Data Source=" & Application.CurrentDb.Name & ";User ID=Admin;Password="
    End If
   
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select [Телефон] as Phone from vw_Abonent where AbonentID=" & AbonentID, cn, adOpenStatic, adLockReadOnly, adCmdText
   
    s = ""
    Do While Not rs.EOF
        If Len(s) = 0 Then
            s = rs.Fields(0).Value
        Else
            s = s & ", " & rs.Fields(0).Value
        End If
        rs.MoveNext
    Loop
    Set rs = Nothing

    GetPhones = s

End Function


[Konst_One]

использовал все стандартное, никаких сторонних контролов
отчеты делаются в HTML/XML и показываются в браузере

[sergey-911]

Спасибо.