[a.ahmed]

PHP كود :

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

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    fillDataGridView1()
End Sub

Sub fillComboBox1()
    Dim da As New OleDbDataAdapter(" SELECT DISTINCT [الصف] FROM [الجدول] ", conn)
    Dim dt As New DataTable
    da.Fill(dt)
    ComboBox1.DataSource = dt
    ComboBox1.DisplayMember = "الصف"
End Sub

Sub fillComboBox2()
    Dim da As New OleDbDataAdapter(" SELECT DISTINCT [المادة] FROM [الجدول] ", conn)
    da.SelectCommand.Parameters.AddWithValue("@p1", Me.ComboBox1.Text)
    Dim dt As New DataTable
    da.Fill(dt)
    ComboBox2.DataSource = dt
    ComboBox2.DisplayMember = "المادة"
End Sub

Sub fillDataGridView1()
    Dim da As New OleDbDataAdapter(" SELECT [الاسم],[الدرجة] FROM [الجدول] WHERE ([الصف]=@p1) AND  ([المادة]=@p2) ", conn)
    da.SelectCommand.Parameters.AddWithValue("@p1", Me.ComboBox1.Text)
    da.SelectCommand.Parameters.AddWithValue("@p2", Me.ComboBox2.Text)
    Dim dt As New DataTable
    da.Fill(dt)
    DataGridView1.DataSource = dt
End Sub