1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
opendb()
Dim requete As String
requete = "Select count(D.Num_demande) as test1 ,I.Nom_intervenants as test2 " & _
"from DEMANDE D,INTERVENANTS I " & _
"where D.Num_intervenants = I.Num_intervenants " & _
"group by I.Nom_intervenants "
ObjetDataAdapter = New OleDb.OleDbDataAdapter(requete, connexion)
ObjetDataSet = New DataSet("DEMANDE")
ObjetDataAdapter.Fill(ObjetDataSet, "DEMANDE")
ObjetDataTable = ObjetDataSet.Tables("DEMANDE")
Chart1.DataSource = ObjetDataTable
'Add the X and Y values based on fields taken from datatable
Chart1.Series("Planificateur").XValueMember = "test2"
Chart1.Series("Planificateur").YValueMembers = "test1"
'Finally, bind the chart
Chart1.DataBind()
closedb()
End Sub |
Partager