[VB6] [MSChart] Courbe incorrecte

Version imprimable

bonjour,
voilà je veux tracer un graphique à partir d'un recordset (j'ai suivi le conseil de Bidou), voilà mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 MaBase = OpenDatabase ("chemine") Req = "Select *....." Set Rstable = MaBase.OpenRecordset(Req, dbOpenSnapshot) With Rstable .MoveFirst Do While not .EOF Graph.Data = .Fields(0) .MoveNext Loop
mais apparement ca marche pas, car l'allure de graphe en correspond pas en aucun cas au données.
aussi j'ai un autre problème avec l'échelle est ce que le MSChart corrige automatiquement l'échelle du graphique en fonction de la plage des valeurs affecter à la propriété Data?? :roll: :roll:
toutes autres suggestions me sera bien utile concernant les propriétés du MSChart (c la première fois que j'utilise ce contrôle) :oops: :oops:
merci à tous

03/10/2002, 20h30
elifqaoui
en vérifiant le contenu de Graph.Data à chaque fois dans un MsgBOx, j'ai trouvé que les valeurs contenues dans le Data ne sont pas les memes que ceux dans le Recordset.
j'ai utilisé une variable Double pour l'affectation
Code:

1 2 3 Temp = Rstable.Fields(0) Graph.Data = Temp
mais le problème persiste..
j'ai essayé d'exploiter mon Grid en utilisant les coordonnées de Col et Row, mais apparement les indices de Col et Row sont aussi aléatoires à chaque fois il me sort des indices qui ne correspond en aucun cas à la position de la case.

quelqu'un a une idée la dessus!!! :koi:
04/10/2002, 07h58
bidou

Mets les données de ton recordset dans un tableau.
Affectes ce tableau à la propriété ChartData.
04/10/2002, 12h01
elifqaoui

Ok bidou, je vais essayer avec un tableau ,et espérant que ca marche...
04/10/2002, 13h23
elifqaoui
bonjour,
concernant toujours le meme problème et essayant de mettre un tableau pour l'affectation des données à la propriété Graph.ChartData j'ai une erreur '9': Indice en dehors de la plage
voilà mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim K as integer Dim Temp() as Double K=1 RsTable.MoveFirst While Not RsTable.EOF Temp(K) = RsTable.Fields(3) K=K+1 RsTable.MoveNext Loop
d'où peut venir cette erreur, est ce qu'il faut que j'initialise aussi mon tableau??? :?
04/10/2002, 13h33
bidou

il manque un redim pour le tableau

merci bidou, je me sens tellement ridicule à cette fatale erreur.
j'ai un pb concernant mon recordset, voilà mon recordset contient 4 enregistrements et quand je le parcours je ne trouve que 3 enregis.
voilà le code complet :
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 RsTable.MoveFirst K = 1 Do While Not RsTable.EOF K = K + 1 RsTable.MoveNext Loop Graph.RowCount = K 'pour déterminer le nombre de point dans mon 'graphique ReDim Temp(Graph.RowCount) 'la dimension du tableau K = 1 RsTable.MoveFirst Do While Not RsTable.EOF Temp(K) = RsTable.Fields(3) K = K + 1 RsTable.MoveNext Loop For i=1 to Graph.RowCount Graph.ChartData = Temp(i) 'l'affectation des valeurs Next
si je les vérifies un par un je trouve que c'est le dernier enregistrement qui n'est pas pris en compte, d'où peut venir cette erreur, j'ai tout refait mais ca persiste :? :? , meme en utilisant un movelast et vérifier le dernier enregistrement je trouve que c l'avant dernier, pourquoi???

j'utlise en meme temps un Grid, et là il me sort les 4 enregistrement, le Grid est alimenté par le meme recordset.

le deuxième problème c auniveau de l'affectation de la propriété ChartData j'ai une erreur erreur '1101':Argument de fonction incorrect, je n'ai pas compris grand chose, vu que c ma première rencontre avec un MSChart (c pas facile comme controle :( )

merci encore pour toutes tes msg :oops: :oops:

04/10/2002, 14h48
bidou

je ne comprends pas bien le premier problème, car sur mon poste je n'ai pas de problème.
Quelques corrections toutefois
Graph.RowCount = K-1
ReDim Temp(1 To Graph.RowCount)

pour affecter à chartdata
Graph.ChartData = Temp
04/10/2002, 21h22
elifqaoui
oui je sais pas non plus comment expliquer le premier problème, mais je vais voir plus, pour l'instant ce qui me préoccupe le plus c le graphique.

pour les deux premières remarques, ils sont bien placées bidou, mais en ce qui concerne
Code:

1 2 Graph.ChartData = Temp
il n'y a aucune erreur concernant cette instruction , mais le pb c que le RowCount devient nul après (pas de point sur le graphique) en plus l'utlisation d'un MsgBox pour vérifier la valeur Temp renvoit une erreur d'exécution "Type Incompatible".
ca commence à rendre dingue ce controle, vraiment il n'est pas sympa du tout :arf: :fou:

J'en ai fait un petit qui marche bien. Je te file le 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
Option Explicit
 
Private Sub Form_Load()
    Dim rs      As ADODB.Recordset
    Dim nRow    As Long
 
    'Définition du Recordset
    Set rs = New ADODB.Recordset
    rs.Open "qryTests", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Maxence\Mes documents\BDDXP_Tests.mdb", adOpenKeyset
 
    'Définition du Graphique
    With MSChart1
 
        'Définition des dimensions
        .Top = 0
        .Left = 0
        .Width = ScaleWidth
        .Height = ScaleHeight
 
        'Définition de l'aspect
        .AllowSeriesSelection = True
        .AllowDynamicRotation = True
        .AllowSelections = True
        .Enabled = True
 
        .TitleText = "Ceci est un test"
        .ToolTipText = "Eh ben j'espère que ca ira !"
 
        'Définition des dimensions
        rs.MoveLast: rs.MoveFirst
        .ColumnCount = rs.Fields.Count - 1
        .RowCount = rs.RecordCount
 
        'Remplissage
        For nRow = 1 To .RowCount
            .RowLabel = rs(0)
            .Column = 1
            .Row = nRow
            .Data = rs(1)
            rs.MoveNext
        Next
 
        'Recalcul et traçage
        .Layout
    End With
 
    'Terminaison
    rs.Close
    Set rs = Nothing
End Sub

En espérant que ça marchera

04/10/2002, 23h29
Maxence HUBICHE

Sinon, j'ai fait encore plus cool : avec un controle ADO DATA
en Data Source du MS Chart !
Et ca marche
05/10/2002, 15h51
bidou

Comment fais tu pour vérifier avec ton msgbox.
Parce que sur mon poste, ta fonction marche en DAO.
05/10/2002, 20h52
elifqaoui

Merci Zemenass pour ton code, il est vraiment génial, mais comme je l'ai déjà dit j'utilise un controle DATA DAO et non ADO, et ce qui me rend la tache plus difficile.

oui Bidou à l'intérieur de la boucle je met un MsgBox Temp pour vérifier la valeur du tableau, mais là il me renvoit une erreur.

aussi la propriété RowCount lors de l'affichage de Graph devient 1 et il n'y a aucun point sur le graph.
06/10/2002, 19h57
elifqaoui
j'ai enfin réussi à faire tracer un graphique qui n'est pas très convaiquant (l'expression est mal choisie). dans le code suivant j'ai changé la propriété ChartData par la propriété Data et ca a marché.
Code:

1 2 3 4 For i=1 to Graph.RowCount Graph.ChartData = Temp(i) 'l'affectation des valeurs Next
né au moins maintenant je vais exploiter le Grid que j'ai sur la page alors j'ai changé l'instruction de données par :
Code:

1 2 3 4 5 6 For i=1 to Graph.RowCount Grid.Col = 3 'c la première colonne qui contient des données numériques Grid.Row = i Graph.Data = Grid.Text Next
le problème que j'ai avec ce code, c que lors de l'instructionGrid.Col=3 j'ai une erreur Indice en dehors de la plage mais moi mon Gride se compose de 7 colonnes, les 4 dernières sont numériques.
merci les amis encore pour toutes vos réponses :oops: :oops:
08/10/2002, 14h36
elifqaoui

Bonjour,
toujours concernant ce MSChart, est ce qu'on peut modifier l'échelle de façon à modifier le Zéro par la valeur minimale car j'ai des valeurs énormes, aussi comment change-t-on les text des abcisses.

pour ce qui est de l'exploitation du Grid je n'ai pas encore arrivé à le résoudre, est ce que qlq'un a une idée la dessus????? :? :?
08/10/2002, 17h25
elifqaoui
toujours concernant l'exploitation de grid (je baisse pas les bras), j'ai essayé avec le code suivant mais j'ai une erreur que je comprends pas Erreur d'Exécution '30010' : Valeur de colonne non valide et la valeur de Grid.Col à ce moment est =1, alors que moi je veux qu'elle soit à 4.
la Comande Grid.Col permet de positionner le curseur où on veut c ca les amis, ai-je tort :oops: :oops: ????
Code:

1 2 3 4 5 6 For i = 1 To 4 Grid.Col = 4 Grid.Row = i Graph.Data = Grid.Text Next
sinon qu'est ce qu'il cloche la dedans
est ce que c possible d'enlever le quadrillage du MSChart, et changez la couleur de l'arrière plan
08/10/2002, 18h05
bidou

Dans les propriété personnalisées tu as un onglet "grille des axes" et un onglet "backdrop".

merci Bidou je l'ai trouvé et c fait.
j'ai un autre problème avec l'échelle de l'axe Y, je veux spécifier la valeur minimale et modifier le zéro du genre (valeur minimale égale à la plus petite valeur -100)

aussi j'aimerais changez les etiquettes des point sur l'axe des X et les remplacer par la valeur d'un champ date.

concernant les étiquettes de l'axe X, voilà j'ai essayé en Déclarant un tableau string puis en affectant les text en meme temps que les données voilà le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ReDim Temp(Graph.RowCount) ReDim TempTxt(Graph.RowCount) K = 1 RsTable1.MoveFirst Do While Not RsTable1.EOF Temp(K) = RsTable1.Fields(3) TempTxt(K) = RsTable1.Fields(0) K = K + 1 RsTable1.MoveNext Loop For I = 1 To Graph.RowCount Graph.Data = Temp(I) Graph.RowLabel = TempTxt(I) Next
jusqu'ici c bien mais le problème c que il me met la date du premier élement à la donnée du 3ème élément et il a tout mélangé.
de quoi peut venir ce problème (je crois que ce MSChart ne va pas me lacher avant 2003, il va me refroidir c sur) :kill:

08/10/2002, 21h53
elifqaoui

une
Rmq : Mon Recordset est déjà trié par Date, et dans le traçage de donnée, il les trace suivant le trie de Date, tandis que les string affecté au etiquettes du Graph sont mélangées
merci encore pour tout les amis
:ccool: :coucou: