GRAPHIQUE MSCHART AVEC UNE BASE DE DONNÉES MYSQL

'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]

06 septembre 2004 15:34:35 :

Ajout de la capture d'écran.

06 septembre 2004 15:51:08 :

image non jpeg