منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الحذف المتعدد من قاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

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


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.OKMessageBoxIcon.Error)
 
       End Try
 
   End Sub 
وعليكم السلام
اعمل لوب على جميع صفوف الكرد فيو وفي حالة كانت قيمة عمود (checkbox) تساوي (true) نفذ السطور اعلاه الخاصة بالحذف

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

تحياتي
متابع الموضوع
ملاحظة :
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(querycon)
 
               cmd.Parameters.Add("@Id"OleDbType.Integer).Value id

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

        MessageBox
.Show("Deleted Successfully")
 
   End Sub 

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

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

احترمك