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
لا يوجد اخطاء ولاكن لا يضهر البيانات في الداتا جريد فيو جربت الكود بلاكسيس وزبط الاكسيس بطلب من اكتب الاسم
هذه صور اخرى
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
لا يوجد اخطاء ولاكن لا يضهر البيانات في الداتا جريد فيو جربت الكود بلاكسيس وزبط الاكسيس بطلب من اكتب الاسم
هذه صور اخرى