Tracer courbe avec MSChart

Version imprimable

Bonjour,

Je voudrais tracer une courbe en prenant des données dans uen base MySQL mais il ne me la trace pas.

Voici mon code :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Public Function rafraichirGraphCourbeDateDerive(ByRef mscGraph As MSChart, ByVal nomProjet As String, Optional ByVal nbHistoAAfficher As Integer = 50, Optional ByVal afficherAPartirDe As Integer = 0)
    Dim query As String
    Dim nbEnregistrements As Integer 'nombre d'enregistrements retournés par une requête
    Dim tableauDeValeurs() As Variant 'permet de stocker les valeurs des séries avant de les affecter au MSChart
    Dim i As Integer 'parcours les lignes de tableauDeValeurs
    Dim dateFin As Single
    Dim dateDebut As Single
    Dim dateFinReestime As Single
    Dim nbrDateSnapShot As Single
    Dim DateSnapShot As Single
 
    'récupération des informations nécessaire au dessin du graph
    query = "SELECT `dateSnapShot`, `dateFinEstimee`, `dateDebutEstimee`, `dateFinReestimee`, COUNT(`dateSnapShot`) " & _
            "FROM `snapshotprojet`, `infosprojet` " & _
            "WHERE `infosprojet`.`nomProjet` = '" & nomProjet & "' " & _
            "AND `snapshotprojet`.`idInfosProjet` = `infosprojet`.`idInfosProjet` " & _
            "ORDER BY `dateSnapShot` ASC"
    rst.Open query, cnx
 
    dateDebut = rst.Fields(2)
    dateFin = rst.Fields(1)
    dateFinReestimee = rst.Fields(3)
    nbrDateSnapShot = rst.Fields(4)
    DateSnapShot = rst.Fields(0)
 
    MsgBox nbrDateSnapShot
 
    'on compte le nombre d'enregistrements retournés par la requête
    While Not rst.EOF
        nbEnregistrements = nbEnregistrements + 1
        rst.MoveNext
    Wend
    rst.MoveFirst 'on remet le pointeur au début
 
    If nbEnregistrements >= 2 Then
        mscGraph.Visible = True
        txtErreurGraph.Visible = False
 
        With mscGraph
            .Repaint = False
            .ColumnCount = 1
            .RowCount = nbrDateSnapShot
            .chartType = VtChChartType2dLine
            .Column = 1
 
            For i = 1 To nbrDateSnapShot
                .Row = i
                .RowLabel = CDate(CDate(DateSnapShot))
                .Data = CLng(CDate(dateFinReestime))
            Next i
        .Repaint = True
 
        End With
    End If
 
   rst.Close
 
 
End Function

Je ne vois pas pourquoi

Merci d'avance

06/08/2007, 17h29
OhMonBato

Ca va nous manquer de plus en plus la boule de cristal à Delbeke, il est temps qu'il remette la main dessus ;)

Bon, blague à part, nbEnregistrements vaut combien par exemple ? Ca plante ton programme, ca plante pas ? Tu as mis des points d'arret ? tu fais un suivi pas à pas ?
07/08/2007, 09h30
xavier1936

Il y 5 enregistrements.

En fait ca ne plante pas mais ca n'affiche rien du tout
07/08/2007, 17h15
SfJ5Rpw8
Citation:

Envoyé par xavier1936

Il y 5 enregistrements.

En fait ca ne plante pas mais ca n'affiche rien du tout

et donc ...? réponds à la question à OhMonBato combien vaut nbEnregistrements ici :
Code:

1 2 If nbEnregistrements >= 2 Then
:roll:
07/08/2007, 17h33
xavier1936

C'est bon j'ai touvé la solution.

J'ai un autre problème, je voudrais comment on fait pour avoir la valeur de la courbe lorsqu'on pointe le pointeur de la souris sur la courbe ?

Merci
07/08/2007, 17h35
SfJ5Rpw8

Citation:

Envoyé par xavier1936

C'est bon j'ai touvé la solution.

....

:furax: on est content pour toi :langue:

merci de nous en faire profiter !

J'ai changer tout le code de A à Z

Voici le nouveau code :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Public Function rafraichirGraphCourbeDateDerive(ByRef mscGraph As MSChart, ByVal nomProjet As String, Optional ByVal nbHistoAAfficher As Integer = 50, Optional ByVal afficherAPartirDe As Integer = 0)
    Dim query As String
    Dim nbEnregistrements As Integer 'nombre d'enregistrements retournés par une requête
    Dim limiteDeriveInitiale As Single 'limite de la dérive prévue au début du projet
    Dim limiteDeriveReestimee As Single 'limite de la dérive au cours du projet
    Dim tableauDeValeurs() As Variant 'permet de stocker les valeurs des séries avant de les affecter au MSChart
    Dim i As Integer 'parcourt les lignes de tableauDeValeurs
 
    'récupération des informations nécessaire au dessin du graph
    query = "SELECT `dateFinReestimee`, `dateFinEstimee`, `dateSnapShot`, `dateDebutEstimee` " & _
            "FROM `snapshotprojet`, `infosprojet` " & _
            "WHERE `infosprojet`.`nomProjet` = '" & nomProjet & "' " & _
            "AND `snapshotprojet`.`idInfosProjet` = `infosprojet`.`idInfosProjet` " & _
            "ORDER BY `dateSnapShot` ASC"
    rst.Open query, cnx
 
    'on compte le nombre d'enregistrements retournés par la requête
    While Not rst.EOF
        nbEnregistrements = nbEnregistrements + 1
        rst.MoveNext
    Wend
 
    If nbEnregistrements >= 2 Then
        mscGraph.Visible = True
        txtErreurGraph.Visible = False
 
        With mscGraph
            'on paramètre un certain nombre de choses avant de dessiner le graph
            .Repaint = False
            .Plot.UniformAxis = True 'permet d'étaler le graphique sur toute la surface du contrôle
            .AllowSelections = True 'autoriser la sélection sur le contrôle MSChart
            .chartType = VtChChartType2dLine 'combinaison de plusieur type de graphique sur un même graphique (barres et courbes)
            .Stacking = True 'on empile les séries du graphique
            .ColumnCount = 2
 
            'échelles auto : oui ou non
            .Plot.Axis(VtChAxisIdX).ValueScale.Auto = False
            .Plot.Axis(VtChAxisIdY).ValueScale.Auto = False
            .Plot.Axis(VtChAxisIdY).Labels.Item(1).Format = "jj/mm/aaaa"
 
            'titre du graph
            .Title.VtFont.Size = 10
            .Title.VtFont.Effect = VtFontEffectUnderline
            .Title.Text = "Date du projet " & nomProjet
 
            'légende
            .Legend.Location.Visible = True
            .Legend.Location.LocationType = VtChLocationTypeBottom
 
 
            '///// début dessin graph
            'on fait le remplissage du tableau en trois fois car il y a des valeurs qui s'empilent et d'autre non
            '//premier passage
            If nbEnregistrements < nbHistoAAfficher Then nbHistoAAfficher = nbEnregistrements
            ReDim tableauDeValeurs(1 To nbHistoAAfficher, 1 To 2) As Variant 'pour l'instant, on fait les deux premières séries
            i = 1
            rst.MoveFirst
            rst.Move afficherAPartirDe
            While Not rst.EOF And i <= nbHistoAAfficher
                tableauDeValeurs(i, 1) = CLng(rst.Fields(0))
            '    tableauDeValeurs(i, 2) = CLng(rst.Fields(1))
 
    '      MsgBox CLng(rst.Fields(1))
 
                i = i + 1 'ligne suivante
                rst.MoveNext 'enregistrement suivant
            Wend
 
            .ChartData = tableauDeValeurs 'on passe les valeurs du tableau au MSChart pour dessinner le graph
 
 
            'étiquettes de l'axe des abscisses
            i = 1
            rst.MoveFirst
            rst.Move afficherAPartirDe
            .Row = 1
            While Not rst.EOF And i <= nbHistoAAfficher
                .RowLabel = Format(rst.Fields("dateSnapShot"), "dd/mm/yyyy")
 
 
                If .Row < .RowCount Then .Row = .Row + 1
                i = i + 1
                rst.MoveNext
            Wend
 
            'étiquettes pour la légende
            .Column = 1
            .ColumnLabel = "Date projet reestimee"
            .Column = 2
            .ColumnLabel = "Date projet idéal"
 
            rst.MoveFirst
            .Plot.Axis(VtChAxisIdY).ValueScale.Minimum = CDate(rst.Fields(3))
            .Plot.Axis(VtChAxisIdY).ValueScale.Maximum = CDate(rst.Fields(0) + 100)
 
            'on change les couleurs en fonction de celles choisies par l'utilisateur
            Call majCouleursCourbeDate
 
            .Repaint = True
        End With
    Else
        mscGraph.Visible = False
        txtErreurGraph.Visible = True
    End If
 
    mscGraph.DoSetCursor = False
    mscGraph.MousePointer = VtMousePointerArrowQuestion
 
 
    rst.Close
 
End Function

Une idée pour le post d'avant