IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Tracer courbe avec MSChart


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Étudiant
    Inscrit en
    Février 2005
    Messages
    118
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2005
    Messages : 118
    Par défaut Tracer courbe avec MSChart
    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 : 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
    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

  2. #2
    Membre Expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    Mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 660
    Par défaut
    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 ?

  3. #3
    Membre confirmé
    Profil pro
    Étudiant
    Inscrit en
    Février 2005
    Messages
    118
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2005
    Messages : 118
    Par défaut
    Il y 5 enregistrements.

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

  4. #4
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
     If nbEnregistrements >= 2 Then

  5. #5
    Membre confirmé
    Profil pro
    Étudiant
    Inscrit en
    Février 2005
    Messages
    118
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Février 2005
    Messages : 118
    Par défaut
    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

  6. #6
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Citation Envoyé par xavier1936
    C'est bon j'ai touvé la solution.

    ....
    on est content pour toi

    merci de nous en faire profiter !

Discussions similaires

  1. comment tracer une courbe avec gtk
    Par killer_instinct dans le forum GTK+ avec C & C++
    Réponses: 5
    Dernier message: 01/10/2007, 22h53
  2. Tracer une courbe avec GTK+
    Par insa59 dans le forum GTK+ avec C & C++
    Réponses: 11
    Dernier message: 16/03/2007, 15h29
  3. Tracer courbe avec coordonnées de points
    Par ddsjm dans le forum MATLAB
    Réponses: 6
    Dernier message: 10/12/2006, 21h02
  4. tracé de courbe xy avec mschart
    Par legos dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 24/09/2006, 15h30
  5. Tracer une courbe avec 2 tableau de points
    Par babarpapa dans le forum 2D
    Réponses: 3
    Dernier message: 19/04/2006, 15h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo