(12-07-17, 02:40 PM)سعود كتب :

PHP كود :

Imports System.Data.OleDb
Public Class saudform
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Nationality.accdb")
    Dim da As OleDbDataAdapter ' جدول مصدر المعلومات 
    Dim dt As DataTable        ' مكان التخزين
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        da = New OleDbDataAdapter("select * from Nationality where [Gender]='Male' and [Age]>=25", con)
        dt = New DataTable
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub
End Class 


---

اضفت فورم saudform جديد انظر للحدثين Load  و حدث النقر لزر الامر