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 |
