縦データから横データ表示について

Question

前提・実現したいこと

いつもお世話になっております。
VisualStudioのWinフォームにて
DataGridViewに縦に並んでいるデータからある列の内容を取り出し
その列の縦データを列ヘッダーにしたいと考えており、
出来ればSQLのみで対応したいと思います。
求める表示の列は可変となっており、最大30列まであります。

＜元データ＞
社員ID｜プロジェクト名｜
－－－－－－－－－－
001 ｜　A　｜
002 ｜　A　｜
003 ｜　A　｜
001 ｜　B　｜
002 ｜　B　｜
003 ｜　C　｜

＜求める表示＞
A｜　B｜　C｜・・・
－－－－－－－
001｜001｜003
002｜002｜
003｜

発生している問題・エラーメッセージ

列数が可変となっているので
動的に列を作成する必要があると思うのですが
すでにあるデータ分（重複なし）をどのようにして動的作成していくか
分かりません。

試したこと

下記サイトなどをみて考えてみましたがまだまだ初心者のため内容が掴みきれていません。
参考サイト_1
参考サイト_2

補足情報（FW/ツールのバージョンなど）

VisualStudio2017
SQLServer2016
開発言語　VB

Answer 1

[SQL Server] 縦に並んだデータを横にカンマ区切りの列データで取得する方法

Comments

[pon108]

回答ありがとうございます。

返信が遅くなってしまい、申し訳ございません。
提示頂きましたサイトを拝見させていただきましたが、思っているような表示方法は出来ませんでした。
サイトのように纏めた一覧を縦に表示したいと考えております。

他に何かいい方法はないものでしょうか。

[Orlofsky]

質問に実際に実行したSQLと実行結果を追記しては？
テーブル定義はCREATE TABLEに修正して欲しいです。

Answer 2

VB 側でやるのはどうでしょう？

Option Strict On

Module Module1

    Sub Main()
        ' データ作成
        Dim dt1 As New DataTable
        dt1.Columns.Add("社員ID")
        dt1.Columns.Add("プロジェクト名")
        dt1.Rows.Add("001", "A")
        dt1.Rows.Add("002", "A")
        dt1.Rows.Add("003", "A")
        dt1.Rows.Add("001", "B")
        dt1.Rows.Add("002", "B")
        dt1.Rows.Add("003", "C")

        ' 並び替え
        Dim dt2 As New DataTable
        Dim dic As New Dictionary(Of String, Integer)
        For Each dr As DataRow In dt1.Rows
            Dim shainId As String = dr("社員ID").ToString()
            Dim projectName As String = dr("プロジェクト名").ToString()
            Dim nRow As Integer = 0
            If Not dic.TryGetValue(projectName, nRow) Then
                dic.Add(projectName, nRow)
                dt2.Columns.Add(projectName)
            Else
                nRow += 1
                dic(projectName) = nRow
            End If
            Dim currentRow As DataRow
            If nRow >= dt2.Rows.Count Then
                currentRow = dt2.NewRow
                dt2.Rows.Add(currentRow)
            Else
                currentRow = dt2.Rows(nRow)
            End If
            currentRow(projectName) = shainId
        Next

        ' 結果表示
        Console.WriteLine(String.Join(",", dic.Keys.ToArray()))
        For Each dr As DataRow In dt2.Rows
            Console.WriteLine(String.Join(",", dr.ItemArray()))
        Next
        Console.ReadKey()
        dt1.Dispose()
        dt2.Dispose()
    End Sub

End Module

Answer 3

実行していませんが、下記でできると思います。

SELECT CASE WHEN プロジェクト名 = A THEN 社員ID END AS A,
CASE WHEN プロジェクト名 = B THEN 社員ID END AS B,
CASE WHEN プロジェクト名 = C THEN 社員ID END AS C
FROM 元データ
;

Comments

[pon108]

回答ありがとうございます。

列名としたいプロジェクト名が増えていくので、まずはプロジェクト名を重複無しで取得し、取得結果分上記コードでループさせて列を作成するという事でよかったでしょうか？
この場合のループをどのようにすればよいのか思い浮かばず、躓いています。。。

Answer 4

縦を横にするなら普通はこうでは？

create table tbl (id int,name varchar(10));
insert into tbl values
(1,'A'),
(2,'A'),
(3,'A'),
(1,'B'),
(2,'B'),
(3,'C');


select id
,sum(case name when 'A' then 1 else 0 end) as A 
,sum(case name when 'B' then 1 else 0 end) as B 
,sum(case name when 'C' then 1 else 0 end) as C 
from tbl
group by id;

• 結果

id	A	B	C
1	1	1	0
2	1	1	0
3	1	0	1

Comments

[pon108]

回答ありがとうございます。

また返信が遅くなってしまい、申し訳ありません。

横を縦という表現は語弊があるかもしれません。
回答いただきましたコードでは思ってる表示が出来ず困っております。

そもそも考えが間違っていたり、出来ないものなのでしょうか？