Discussion :

[djelloharmel]

Voici le tablau et la représentation graphique que je veux obtenir.

le tableau est attaché à la vue "v_nb_inscrit_tb"
et le graphe est lié à la requête "select [niveau_de_classe],[annee_scolaire],[nb_inscrit] from v_nb_inscrit"
Je suis bloqué sur le fait que je n'arrive pas à créer les séries

Dans le choix des axes, le code est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ms_chart.Series(0).XValueMember = "annee_scolaire"
ms_chart.Series(0).YValueMembers = "nb_inscrit"
ms_chart.Series(0).ChartType = SeriesChartType.Spline

Comment je fais pour généraliser pour les n séries?

[djelloharmel]

J'ai oublié que j'utilisais une connexion dynamique selon le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sqlCONN.Open()
        Dim bSql as String="select [niveau_de_classe],[annee_scolaire],[nb_inscrit] from v_nb_inscrit"
        Dim sqlCmd As New SqlCommand(bSql)
        Dim Dadpter As New SqlDataAdapter(sqlCmd)
        dim bTab as New DataTable
        Dim dSet As New DataSet
        sqlCmd.Connection = sqlCONN
        Dadpter.Fill(DSet, bTable)
        bTab = DSet.Tables(bTable)
 
        ms_chart.DataSource=bTab
 
        sqlCmd = Nothing
        Dadpter = Nothing
        sqlCONN.Close()
        DSet = Nothing

[djelloharmel]

En lisant le tuto de P. Lasserre, j'ai trouvé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ms_chart.DataBindCrossTable(Database1DataSet.v_nb_inscrit, "niveau_de_classe", "annee_scolaire", "nb_inscrit", "label=nb_inscrit")

Pour ce faire, j'ai créé une source de données que j'ai déplacé sur le form.
ça marche parfaitement sauf que je ne suis pas habitué à cette manière de coder. Je fais une connexion dynamique en utilisant le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
        qlCONN.Open()
        Dim bSql as String="select [niveau_de_classe],[annee_scolaire],[nb_inscrit] from v_nb_inscrit"
        Dim sqlCmd As New SqlCommand(bSql)
        Dim Dadpter As New SqlDataAdapter(sqlCmd)
        dim bTab as New DataTable
        Dim dSet As New DataSet
        sqlCmd.Connection = sqlCONN
        Dadpter.Fill(DSet, bTable)
        bTab = DSet.Tables(bTable)
 
        ms_chart.DataSource=bTab
 
        sqlCmd = Nothing
        Dadpter = Nothing
        sqlCONN.Close()
        DSet = Nothing

Comment je remplace "Database1DataSet.v_nb_inscrit" en utilisant le code décrit plus haut?

[djelloharmel]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
       chrt_nb.Series.Clear()
 
        sqlCONN.Open()
        Dim sqlCmd As New SqlCommand("select niveau_de_classe,annee_scolaire,nb_inscrit from v_nb_inscrit order by annee_scolaire")
        sqlCmd.Connection = sqlCONN
        Dim oReader As SqlDataReader
        oReader = sqlCmd.ExecuteReader
        chrt_nb.DataBindCrossTable(oReader, "niveau_de_classe", "annee_scolaire", "nb_inscrit", "label=Nb_inscrit")
        sqlCmd = Nothing
        oReader = Nothing
        sqlCONN.Close()
 
        Dim series As Series
 
        For Each series In chrt_nb.Series
            series.ChartType = SeriesChartType.Spline
        Next

Utilisation de "DataBindCrossTable" et "DataReader"