[mostafa12]

الكود كان شغال لما كنت ماخذ         da = New OleDbDataAdapter("select * from table2", con) هاي
ولكن انا غيرت بلكود وحدث خطا


Imports System.Data.OleDb
Imports Toast_Notification
Imports Bunifu.Framework
Public Class Form13
    Dim Notification As Notification = New Notification()

    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
    Function 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 da As New OleDbDataAdapter(cmd)
        Dim dt As New DataTable
        da.Fill(dt)
        Return dt
    End Function
    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
        DataGridView1.DataSource = load_date()
        DataGridView1.Refresh()
        Me.DataGridView1.Columns(1).HeaderText = "اسم المشترك"

    End Sub

    Private Sub DataGridView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDoubleClick


    End Sub

    Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
        Dim pos As String = BindingContext(dt).Position
        TextBox1.Text = dt.Rows(pos).Item(1).ToString()
        MaskedTextBox1.Text = dt.Rows(pos).Item(2).ToString()
        TextBox3.Text = dt.Rows(pos).Item(3).ToString()
        TextBox4.Text = dt.Rows(pos).Item(4).ToString()
        If dt.Rows(pos).Item(2).ToString() = "" Then
            MaskedTextBox1.Text = ""
            Exit Sub
        End If
        MaskedTextBox1.Text = Convert.ToDateTime(dt.Rows(pos).Item(2).ToString()).ToString("yyyy/MM/dd")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If (String.IsNullOrWhiteSpace(TextBox1.Text) Or String.IsNullOrWhiteSpace(MaskedTextBox1.Text) Or String.IsNullOrWhiteSpace(TextBox3.Text) Or String.IsNullOrWhiteSpace(TextBox4.Text)) Then
            Notification.Show_Noti(3000, False, "يجب ملئ جميع الخانات", My.Resources.Warning_50, Color.FromArgb(54, 59, 63), Color.FromArgb(222, 223, 225), 80)


            Return
        End If
        Dim pos1 As String = BindingContext(dt).Position
        dt.Rows(pos1).Item(1) = TextBox1.Text
        dt.Rows(pos1).Item(2) = MaskedTextBox1.Text
        dt.Rows(pos1).Item(3) = TextBox3.Text
        dt.Rows(pos1).Item(4) = TextBox4.Text
        Notification.Show_Noti(3000, False, "تم التعديل بنجاح", My.Resources.suc_50, Color.FromArgb(54, 59, 63), Color.FromArgb(222, 223, 225), 80)


        save_date()
        load_date()
    End Sub
End Class

ما هو الخطاء

---

بلفورم 5 اضغط دبل كليك على الرو ليضهر لك فورم وهناك المشكله هاذا هو مشروعي

---

بعرف انو راح تقلويلب المشكله ب dt وda
ولكن عدلتهن وبقت المشطله نفس الاشي

---

Imports System.Data.OleDb

Public Class Form8

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
Function 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 da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
Return dt
End Function
Sub save_date()
Dim save As New OleDbCommandBuilder(da)
save.QuotePrefix = "["
save.QuoteSuffix = "]"
da.Update(dt)
dt.AcceptChanges()
End Sub

Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.DataSource = load_date()
DataGridView1.Refresh()
Me.DataGridView1.Columns(1).HeaderText = "اسم المشترك"

End Sub

Private Sub DataGridView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDoubleClick


End Sub

Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
Dim pos As String = BindingContext(dt).Position
TextBox1.Text = dt.Rows(pos).Item(1).ToString()
MaskedTextBox1.Text = dt.Rows(pos).Item(2).ToString()
TextBox3.Text = dt.Rows(pos).Item(3).ToString()
TextBox4.Text = dt.Rows(pos).Item(4).ToString()
If dt.Rows(pos).Item(2).ToString() = "" Then
MaskedTextBox1.Text = ""
Exit Sub
End If
MaskedTextBox1.Text = Convert.ToDateTime(dt.Rows(pos).Item(2).ToString()).ToString("yyyy/MM/dd")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrWhiteSpace(TextBox1.Text) Or String.IsNullOrWhiteSpace(MaskedTextBox1.Text) Or String.IsNullOrWhiteSpace(TextBox3.Text) Or String.IsNullOrWhiteSpace(TextBox4.Text)) Then


Return
End If
Dim pos1 As String = BindingContext(dt).Position
dt.Rows(pos1).Item(1) = TextBox1.Text
dt.Rows(pos1).Item(2) = MaskedTextBox1.Text
dt.Rows(pos1).Item(3) = TextBox3.Text
dt.Rows(pos1).Item(4) = TextBox4.Text


save_date()
load_date()
End Sub
End Class

هاذا الكود بعد التعديل وضلت نفس المشكله ما هو السبب