[محمد اسماعيل]

السلام عليكم

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

دة كود الحذف العادي  لصف واحد علما بان هناك جداول مرتبطة

PHP كود :

 Try
            If DataGridView1.RowCount <= 0 Then
                Exit Sub
            End If
            Dim I As Integer = DataGridView1.CurrentCell.RowIndex
            con.Open()
            Dim cmd = New OleDbCommand("DELETE FROM tb1 where ID_mail like " & DataGridView1.Rows(I).Cells(0).Value & " and clien_mail like '" & DataGridView1.Rows(I).Cells(1).Value.ToString & "'", con)
            cmd.ExecuteNonQuery()
            con.Close()
            DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
            MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح", 64 + 524288, "حذف سجل من كلا الجدولين")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub 


[ibraheam]

وعليكم السلام
اعمل لوب على جميع صفوف الكرد فيو وفي حالة كانت قيمة عمود (checkbox) تساوي (true) نفذ السطور اعلاه الخاصة بالحذف

للمزيد ارفق مثال وسنساعدك انشاء الله

تحياتي

[awidan76]

متابع الموضوع

[عبدالله الدوسري]

ملاحظة :
DELETE FROM tb1 where ID_mail like

من الأفضل إستخدام = بدلاً من like

[محمد اسماعيل]

(13-01-18, 01:17 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
ممكن أخي العزيز  ترفق مثال مصغر عن المشروع أو الفكرة للتعديل عليها.

---

لقد قمنا بتصميم مثال بناء لطلبكم
المثال  :

---

كود الحذف المتعدد من الجريد فيو :

PHP كود :

Private Sub deleteMultiRows()

        Dim id As Integer = 0
        For Each row As DataGridViewRow In gvEmployee.Rows
            If row.Cells(4).Value = True Then
                id = Convert.ToInt32(row.Cells(0).Value).ToString()

                query = "Delete From Employee Where Id=@Id"
                cmd = New OleDbCommand(query, con)
                cmd.Parameters.Add("@Id", OleDbType.Integer).Value = id

                con.Open()
                cmd.ExecuteNonQuery()
                con.Close()
            End If
        Next

        MessageBox.Show("Deleted Successfully")
    End Sub 


وفقك الله لكل خير فعلا هذا هو المطلوب

[awidan76]

جزاك الله خير اخي خدور
اشكرك من كل قلبي

وتسلم على المشاركة والمساعدة
جعله الله في ميزان حسناتك

احترمك