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
| Private Sub Command1_Click() 'filles
On Error Resume Next
Dim MaBD As String
MaBD = App.Path & "\BD\centre_aéré.mdb"
With Adodc2
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBD & ";Persist Security Info=False"
.RecordSource = "SELECT * FROM present"
End With
Adodc2.Refresh
Adodc2.Recordset.MoveFirst
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBD & ";Persist Security Info=False"
.RecordSource = "SELECT * FROM centre_aéré"
End With
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
MoveOk = False
With MSChart1
.ChartType = VtChChartType2dBar ' type de graphe
.ColumnCount = 1 ' nombre de barre
.RowCount = 14 ' nombre de mois
' lecture du nom des mois
For i = 1 To 14
.Row = i
.Column = 1
.RowLabel = Adodc2.Recordset.Fields(0) & " ans" ' l'age
If IsNull(Adodc2.Recordset.Fields(2).Value) Then
.Data = 0
Else
.Data = Adodc2.Recordset.Fields(2).Value
End If
Adodc2.Recordset.MoveNext ' le mois suivant
Next i
End With
End Sub |
