[mostafa12]

Imports System.Data.OleDb
Imports Toast_Notification
Imports Bunifu.Framework
Public Class Form13

    Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
    Dim da As New OleDbDataAdapter()
    Dim dt As New DataTable
    Dim table As New DataTable
    Sub load_date()


        Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)

        cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
        Dim adapter1 As New OleDbDataAdapter(cmd)
        Dim table As New DataTable
        adapter1.Fill(table)

    End Sub
    Sub save_date()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub
    Private Sub Form13_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        load_date()
        DataGridView1.DataSource = table
    End Sub
End Class

لا يوجد اخطاء ولاكن لا يضهر البيانات في الداتا جريد فيو جربت الكود بلاكسيس وزبط الاكسيس بطلب من اكتب الاسم

---

هذه صور اخرى