GRAPHIQUE MSCHART AVEC UNE BASE DE DONNÉES MYSQL , Source N°25494

Information sur la source

Catégorie :Base de Donnees Niveau : Débutant Date de création : 18/08/2004 Date de mise à jour : 06/09/2004 15:51:08 Vu : 6 589

Auteur : topan

Ecrire un message privé

Note :

9,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Ce petit programme sert à representé un graphique Mschart basé sur des données d'une base Mysql.

J'ai vu ke bcqs ont de problèmes pr exploiter mschart avec une base de données.
Je l'ai déjà utilisé avec une base de données Mysql ds le cadre d'un projet ça marche mais je n'ai pas essayéer avec un autre SGBD.
Bon je vous donne le code peut être ke ça interessear qlq1.
Ce qu'il faut sur le formulaire : 1mschart, j'utilise un treeview mais vous pouvez utiliser un bouton.
Base de données mysql avec une table pdv et des propriétés spécifiées ds la requete
Essayer avec un autre SGBD, ya pas de raison que ca ne marche pas.
Bonne prog les amis!

Source

'J'utilise d'un treeview mais vous pouvez le mettre ss 1 bouton
Private Sub Tree1_NodeClick(ByVal Node As MSComctlLib.Node)
' déclaration d'une connexion sur ma base Mysql
Dim connexion As New ADODB.Connection Dim recordset As New
'declaration d'un recordset pour l'histogramme
Dim recordset As New ADODB.recordset
'Connexion à la base mysql
connexion.Provider = "MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=basemysql;Initial Catalog=GEOSTAT"
connexion.Open
'Requete de selection des données à representer ds mschart
requete = "SELECT count( PDV_ID_PK ),PDV_VILLE FROM `pdv` group by PDV_VILLE ;"
'activation du recordset
recordset.CursorLocation = adUseClient
'exécution de la requete
recordset.Open requete, connexion, adOpenStatic, adLockOptimistic
'Initialisation du mschart
MSChart1.Visible = True
MSChart1.chartType = VtChChartType2dBar
MSChart1.Title = "Nombre de point de vente par ville"
With recordset
If .RecordCount = 0 Then Exit Sub
.MoveFirst
Do While Not .EOF
'deux boucles pour pour afficher la taille des colonnes en fonction des villes
For Column = 1 To .RecordCount
For Row = 1 To .RecordCount
'J'affiche le nombre de colonne correspondant au nombre d'enregistrement
MSChart1.ColumnCount = .RecordCount
MSChart1.Column = Column
MSChart1.Row = Row
MSChart1.Data = .Fields(0)
'Affiche le nombre correspondant à la colonne dans la legende
MSChart1.ColumnLabel = .Fields(1) & " = " & .Fields(0)
' MSChart1.RowLabel = .Fields(1)
'affiche la légende
MSChart1.Legend.location.LocationType = VtChLocationTypeRight
MSChart1.Legend.location.Visible = True
MSChart1.Legend.VtFont.VtColor.Set 0, 0, 255
MSChart1.Legend.VtFont.Name = "arial"
MSChart1.Legend.VtFont.Size = 10
Next Row
recordset.MoveNext
Next Column
Loop
End With
'J'espère que ça vs aidera. Je suis ouvert à tte suggestion ou critique .
'ZAK
[img]http://[/img]

'J'utilise d'un treeview mais vous pouvez le mettre ss 1 bouton
Private Sub Tree1_NodeClick(ByVal Node As MSComctlLib.Node)

' déclaration d'une  connexion sur ma base Mysql
Dim connexion As New ADODB.Connection Dim recordset As New 

'declaration d'un recordset pour  l'histogramme 
Dim recordset As New ADODB.recordset   

'Connexion à la base mysql
connexion.Provider = "MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=basemysql;Initial Catalog=GEOSTAT"
connexion.Open

'Requete de selection des données à representer ds mschart
requete = "SELECT count( PDV_ID_PK ),PDV_VILLE FROM `pdv` group by PDV_VILLE  ;"

'activation du recordset
recordset.CursorLocation = adUseClient

'exécution de la requete
recordset.Open requete, connexion, adOpenStatic, adLockOptimistic

'Initialisation du mschart
MSChart1.Visible = True
    MSChart1.chartType = VtChChartType2dBar
    MSChart1.Title = "Nombre de point de vente par ville"

 With recordset
   If .RecordCount = 0 Then Exit Sub
      .MoveFirst
   Do While Not .EOF
'deux boucles pour  pour afficher la taille des colonnes en fonction des villes
    For Column = 1 To .RecordCount
        For Row = 1 To .RecordCount
    'J'affiche le nombre de colonne correspondant au nombre d'enregistrement
             MSChart1.ColumnCount = .RecordCount
            MSChart1.Column = Column
            MSChart1.Row = Row
            MSChart1.Data = .Fields(0)
    'Affiche le nombre correspondant à la colonne dans la legende
            MSChart1.ColumnLabel = .Fields(1) & " = " & .Fields(0)
           ' MSChart1.RowLabel = .Fields(1)
    'affiche la légende
            MSChart1.Legend.location.LocationType = VtChLocationTypeRight
            MSChart1.Legend.location.Visible = True
            MSChart1.Legend.VtFont.VtColor.Set 0, 0, 255
            MSChart1.Legend.VtFont.Name = "arial"
            MSChart1.Legend.VtFont.Size = 10
        Next Row
       recordset.MoveNext
      Next Column
    Loop
    End With

'J'espère que ça vs aidera. Je suis ouvert à  tte suggestion ou critique .
'ZAK


[img]http://[/img]

Conclusion

J'ai pas rencontré de bug!

Historique

06 septembre 2004 15:34:35 :: Ajout de la capture d'écran.
06 septembre 2004 15:51:08 :: image non jpeg

Sources du même auteur

Toutes les sources de topan

Sources de la même categorie

Toutes les sources de la catégorie Base de Donnees

Commentaires

Commentaire de ITALIA le 20/08/2004 08:40:46

Une capture serait cool !!
Commentaire de hy_honey le 04/08/2005 08:50:36

salut je vien de lire ton code moi je dois faire un camembert . les données je les récuper aussi d'une base de données mysql je suis en vb6.net et mon probleme est que je ne sais pas du tout comment commencer . est ce que la boite a outil qui te génere les text box , listebox, etc peu te générer aussi le camembert si oui quelle est le nom du camembert dans la boite a outil
si non comment je pourrai déciner le camenber avant de commencer a codé dérière pour quil maffiche se que je veu

merci de ton aide