[muad]

ياشباب عايز الكود التالي لو سمحتم
حذف  صف محدد من القريد داتا فيو ومن قاعدة البيانات في نفس الوقت

[حريف برمجة]

لنفرض الداتاقريدفيو لها اسم = dg1

ورقم السجل الآيدي في أول عمود من الداتاقريد

conn = متغير إتصال الداتابيز
Table1 = اسم الجدول
ID = حقل الآيدي في الجدول

عدّل ما يلزم ليتناسب معك

* ضع هذا الكود في حدث : CellMouseClick للداتاقريدفيو

كود :

'إختياري هذا السطر لإظهار رسالة برقم السجل الآيدي عند النقر على الداتاقريدفيو
        'MsgBox(dg1.Rows(e.RowIndex).Cells(0).Value)

'حذف الصف من جدول قاعدة البيانات
        Dim Cmd As New OleDbCommand("DELETE From [Table1] WHERE ID=" & dg1.Rows(e.RowIndex).Cells(0).Value & " ", conn)
        If conn.State = ConnectionState.Closed Then conn.Open()
        Cmd.ExecuteNonQuery()
        conn.Close()

'حذف الصف من الداتاقريدفيو
        dg1.Rows.RemoveAt(e.RowIndex)

        MsgBox("Record Deleted")

في حال كان حقل الآيدي ID نصي تضع نفس الكود بالأعلى وتستبدل السطر هذا بالسطر الذي بالأعلى :

كود :

       Dim Cmd As New OleDbCommand("DELETE From [Table1] WHERE ID='" & dg1.Rows(e.RowIndex).Cells(0).Value & "' ", conn)

[muad]

(14-10-19, 10:18 AM)حريف برمجة كتب : لنفرض الداتاقريدفيو لها اسم = dg1

ورقم السجل الآيدي في أول عمود من الداتاقريد

conn = متغير إتصال الداتابيز
Table1 = اسم الجدول
ID = حقل الآيدي في الجدول

عدّل ما يلزم ليتناسب معك

* ضع هذا الكود في حدث : CellMouseClick للداتاقريدفيو

كود :

'إختياري هذا السطر لإظهار رسالة برقم السجل الآيدي عند النقر على الداتاقريدفيو
        'MsgBox(dg1.Rows(e.RowIndex).Cells(0).Value)

'حذف الصف من جدول قاعدة البيانات
        Dim Cmd As New OleDbCommand("DELETE From [Table1] WHERE ID=" & dg1.Rows(e.RowIndex).Cells(0).Value & " ", conn)
        If conn.State = ConnectionState.Closed Then conn.Open()
        Cmd.ExecuteNonQuery()
        conn.Close()

'حذف الصف من الداتاقريدفيو
        dg1.Rows.RemoveAt(e.RowIndex)

        MsgBox("Record Deleted")

في حال كان حقل الآيدي ID نصي تضع نفس الكود بالأعلى وتستبدل السطر هذا بالسطر الذي بالأعلى :

كود :

       Dim Cmd As New OleDbCommand("DELETE From [Table1] WHERE ID='" & dg1.Rows(e.RowIndex).Cells(0).Value & "' ", conn)

جزاك الله خير
وبارك فيك وفي علمك

[abdalaziz224]

ياليت ترسل لنا مثال عملي لأني جربته طلع لي رسالة خطاء
*وين احصل هذا الكود في حدث : CellMouseClick وهل انسخ الداتاقريدفيو
داخل الحدث لاستعراض الجدول أو لاستعراض الحذف