salut,
J'ai un problème au niveau de l'affectation des valeurs dans la courbe à partir d'une base Mysql.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
60
61
Dim cn As ADODB.Connection
Dim rs As Recordset
Dim recherche As Boolean
Dim sql As String
 
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft OLE DB Provider for ODBC Drivers;Password=mabase;Persist Security Info=True;User ID=root;Mode=ReadWrite;dsn=" & "mybase" & ";"
    cn.Open
    Set rs = cn.Execute("select * from tab_var where parametre like '%%vitesse'; ")
     MSChart1.AllowSelections = False
   With MSChart1
     .chartType = VtChChartType2dLine
     .ColumnCount = 1
     .RowCount = 4
     For i = rs.BOF To rs.RecordCount
            .Row = i
            .Column = rs.RecordCount
            .RowLabel = rs("valeur")
           ' .Data = rs.Fields("parametre").Value
     Next i
   End With
 MSChart1.TitleText = "Vitesse"
   With MSChart1.Title.VtFont
     .Name = "Comic Sans MS"
     .Size = 15
     .Effect = VtFontEffectUnderline
   End With
    MSChart1.DoSetCursor = True
    MSChart1.MousePointer = VtMousePointerCross
    MSChart1.Visible = True
' pour ecrire le titre axe des x
   With MSChart1.Plot.Axis(0, 1)
     .AxisTitle.VtFont.Size = 14
     .AxisTitle.Visible = True
     .AxisTitle.Text = "Date"
   End With
 
' Titre pour l'axe des Y côté droit
   With MSChart1.Plot.Axis(1, 1)
     .AxisTitle.VtFont.Size = 14
     .AxisTitle.Visible = True
     .AxisTitle.Text = "m"
   End With
   rs.Close
   txtparametre.Text = "Vitesse"
   sql = "select Max(valeur) as max from tab_var where parametre like '%%vitesse' ;"
   rs.Open sql
   txtmax.Text = rs.Fields("max")
   rs.Close
   sql = "select Min(valeur) as min from tab_var where parametre like '%%vitesse' ;"
   rs.Open sql
   txtmin.Text = rs.Fields("min")
   rs.Close
   sql = "select AVG(valeur) as moy from tab_var where parametre like '%%vitesse' ;"
   rs.Open sql
   txtmoyenne.Text = rs.Fields("moy")
   rs.Close
   sql = "select STDDEV(valeur) as ecart from tab_var where parametre like '%%vitesse' ;"
   rs.Open sql
   txtecarttype.Text = rs.Fields("ecart")
   rs.Close
***********
quelqu'un peut m'aidez????????