SQLテーブルから円グラフを作成する

Question

SQLテーブルから提供されたデータを使用して円グラフを作成しようとしています。クエリの結果は次のようになります。

Total A B C  D  E  F 
11005 0 1485 3667 2665 2579 609 

問題は、それぞれに1つのデータしか含まれていない多くの「シリーズ」があることです。私は、円グラフを表示できるようにするために、「セリ」を1つだけ構築しなければならないと思います。 私のコードは次のとおりです。

Dim RequeteByTpe As String = "SELECT COUNT(*) as Total, 
Sum(CASE 
    WHEN [Type] = 'A' THEN 1 
    ELSE 0 
    END) A, 
    Sum(CASE 
    WHEN [Type] = 'B' THEN 1 
    ELSE 0 
    END) B, 
    Sum(CASE 
    WHEN [Type] = 'C' THEN 1 
    ELSE 0 
    END) C, 
    Sum(CASE 
    WHEN [Type] = 'D' THEN 1 
    ELSE 0 
    END) D, 
Sum(CASE 
    WHEN [Constructeur] = 'E' THEN 1 
    ELSE 0 
    END) E, 
Sum(CASE 
    WHEN [Constructeur] = 'F' THEN 1 
    ELSE 0 
    END) F   
From DBase.dbo.MyTable" 

    Dim DA As New SqlDataAdapter(RequeteByType, ConnexionMyBase) 
    Dim DS As New DataSet() 
    DAConstC.Fill(DS, "ByType") 

    Dim ChartType As New Chart 

    Dim ChartArea2 As New ChartArea() 

    ChartConstC.ChartAreas.Add("ChartArea2") 

    ChartConstC.ChartAreas(0).Area3DStyle.Enable3D = True 

    Dim Series21 As Series = New Series("A") 
    Dim Series22 As Series = New Series("B") 
    Dim Series23 As Series = New Series("C") 
    Dim Series24 As Series = New Series("D") 
    Dim Series25 As Series = New Series("E") 
    Dim Series26 As Series = New Series("F") 

    Series21.ChartArea = "ChartArea2" 
    Series22.ChartArea = "ChartArea2" 
    Series23.ChartArea = "ChartArea2" 
    Series24.ChartArea = "ChartArea2" 
    Series25.ChartArea = "ChartArea2" 
    Series26.ChartArea = "ChartArea2" 

    ChartByType.DataSource = DS.Tables("ByType") 

    ChartByType.Series.Add(Series21) 
    ChartByType.Series.Add(Series22) 
    ChartByType.Series.Add(Series23) 
    ChartByType.Series.Add(Series24) 
    ChartByType.Series.Add(Series25) 
    ChartByType.Series.Add(Series26) 

    ChartByType.Series(0).YValueMembers = "A" 
    ChartByType.Series(1).YValueMembers = "B" 
    ChartByType.Series(2).YValueMembers = "C" 
    ChartByType.Series(3).YValueMembers = "D" 
    ChartByType.Series(4).YValueMembers = "E" 
    ChartByType.Series(4).YValueMembers = "F" 

    ChartByType.Titles.Add("Type proportions") 
    ChartByType.Titles(0).Font = New Font("Arial", 12, FontStyle.Regular) 

    ChartByType.Titles(0).Alignment = System.Drawing.ContentAlignment.TopCenter 

    ChartByType.Location = New System.Drawing.Point(15, 45) 

    ChartByType.Size = New System.Drawing.Size(760, 260) 

    Me.Controls.Add(ChartByType) 

他のいくつかのデータ属性方法やでこれを修正する可能性がある場合、私は他のデータ型を取得するために私のSQLクエリを変更したりする必要がある場合、私は知りません。誰でも助けてくれますか？

Answer 1

代わりの列、あなたが行...

ではなく、独自の列にA、B、Cを置くことを必要とする、
合計各行によって

例えばSQL ...

select [Type], count(*) as Total From DBase.dbo.MyTable group by [Type] 

私は

... case文の二つの列、
が必要な場合は、一緒に結果を union可能性があります気づきました

select [Type] as Label, count(*) as Total From DBase.dbo.MyTable group by [Type] 
union all 
select [Constructeur] as Label, count(*) as Total From DBase.dbo.MyTable group by [Constructeur]