[Sajad]

السلام عليكم

اكتب هذا الكود في أي زر تريد

كود :

Dim constr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\mydata.accdb"

        Dim mycon As New OleDbConnection(constr)

        Dim myadapter As New OleDbDataAdapter("select * from mytable where num between 1 and 20", mycon)

        Dim mytable As New DataTable()

        Dim myset As New DataSet()

        mycon.Open()

        myadapter.Fill(myset, "mytable")

        mycon.Close()

        mytable = myset.Tables(0)

        DataGridView1.DataSource = mytable

على فرض ان اسم قاعدة البيانات mydata واسم الجدول mytable واسم العمود num