Creation graphique StackedColumn Vb.net

Version imprimable

16/08/2016, 14h40
sabermekni

2 pièce(s) jointe(s)

Creation graphique StackedColumn Vb.net

Bonjour

Je Veux Créer StackedColumn en Vb.net qui recupere les données automatiquement à partir d'une base des données.

Pièce jointe 218018

Un Graphique semilaire à celui là

Pièce jointe 218014
16/08/2016, 14h45
Prisson

Bonjour,
votre pj ne peut s'ouvrir.

2 pièce(s) jointe(s)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
      conn = New SqlConnection()
        conn = connexion()
        Try
            Chart5.Series(0).Points.Clear()
            sql = "select distinct(a.code),SUM(v.time) 'Time' from vacation v INNER JOIN work_cell w ON v.workplace = w.code JOIN cost_center cc ON cc.code = w.cost_center join area a on cc.area = a.code join time_code tc on tc.code=v.code  where v.date BETWEEN '" & from_date & "' AND '" & to_date & "' and tc.type='Planned' GROUP BY a.code"
            Dim cmd As SqlCommand = New SqlCommand(sql, conn)
            Dim reader As SqlDataReader = cmd.ExecuteReader
            While reader.Read
                Chart5.Series("Planned").Points.AddXY(reader.GetValue(0), reader.GetValue(1))
                Chart5.Series(0).IsValueShownAsLabel = True
            End While
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        conn = New SqlConnection()
        conn = connexion()
        Try
            Chart5.Series(1).Points.Clear()
            sql = "select distinct(a.code),SUM(v.time)'Time' from vacation v INNER JOIN work_cell w ON v.workplace = w.code JOIN cost_center cc ON cc.code = w.cost_center join area a on cc.area = a.code join time_code tc on tc.code=v.code  where v.date BETWEEN '" & from_date & "' AND '" & to_date & "' and tc.type='Unplanned' GROUP BY a.code"
            Dim cmd1 As SqlCommand = New SqlCommand(sql, conn)
            Dim reader1 As SqlDataReader = cmd1.ExecuteReader
            While reader1.Read
                Chart5.Series("Unplanned").Points.AddXY(reader1.GetValue(0), reader1.GetValue(1))
                Chart5.Series(1).IsValueShownAsLabel = True
            End While
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)

16/08/2016, 16h11
ZenZiTone

Il existe un Chart Control fournit par le framework .NET. Tu auras des infos sur la documentation MSDN .

EDIT :

Je n'avais pas vu ton message. Cependant, merci d'indiquer où tu as des difficultés à arriver au bon résultat.
16/08/2016, 16h24
sabermekni

1 pièce(s) jointe(s)

Citation:

Envoyé par ZenZiTone

Il existe un Chart Control fournit par le framework .NET. Tu auras des infos sur la documentation MSDN .

EDIT :

Je n'avais pas vu ton message. Cependant, merci d'indiquer où tu as des difficultés à arriver au bon résultat.

Oui, Il exitste un tyoe de graphique StackedColumn mais le probleme c'est comment remplir le StackedColumn à partir de deux requtes différentes (Une pour le jaune et une pour le bleu)

Hum, je suppose que si tu as deux points qui ont le même "Y" ils s'empileront automatiquement. Dans ton code tu as ceci :
Code:

1 2 3 4 While reader1.Read Chart5.Series("Unplanned").Points.AddXY(reader1.GetValue(0), reader1.GetValue(1)) Chart5.Series(1).IsValueShownAsLabel = True End While
Tu peux, dans un premier temps, remplir ces valeurs "à la main" en mettant deux point ([5;1] et [5;3] par exemple) pour voir si le comportement souhaité est reproduit.

bonjour

1/Tes 2 requêtes doivent renvoyer le même nombre de lignes !!!
Il faut un compteur dans chaque boucle While et dans la 2eme boucle While sortir si les 2 compteurs sont égaux !!!

2/Essayons de deviner pour répondre au souci ....!!!
Dans ce code :
Code:

1 2 3 4 5 6 While reader1.Read Chart5.Series("Unplanned").Points.AddXY(reader1.GetValue(0), reader1.GetValue(1)) Chart5.Series(1).IsValueShownAsLabel = True End While
- reader1.GetValue(0) ....C'est quoi comme type ?