[طالب برمجة]

PHP كود :

Imports System.Data.OleDb

Public Class Form1

    Dim provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DOUSSA.mdb;Persist Security Info=True"
    Dim Conn As OleDbConnection = New OleDbConnection(provider)

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        Dim da As New OleDbDataAdapter("SELECT [ANNEE], [MASCULIN] , [FEMININ]FROM [MMSHART]", Conn)
        Dim dt As New DataTable
        da.Fill(dt)
        Chart1.DataSource = dt

        Chart1.Series.Clear()

        Chart1.Series.Add("الذكور")
        With Chart1.Series(0)
            .Color = Color.Blue
            .XValueMember = "ANNEE"
            .YValueMembers = "MASCULIN"
        End With

        Chart1.Series.Add("الإناث")
        With Chart1.Series(1)
            .Color = Color.DeepPink
            .XValueMember = "ANNEE"
            .YValueMembers = "FEMININ"
        End With

    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Me.Hide()
        Form2.Show()
    End Sub

End Class