تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الحذف المتعدد من قاعدة البيانات
#1
السلام عليكم

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

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


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 
الرد
تم الشكر بواسطة: awidan76
#2
وعليكم السلام
اعمل لوب على جميع صفوف الكرد فيو وفي حالة كانت قيمة عمود (checkbox) تساوي (true) نفذ السطور اعلاه الخاصة بالحذف

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

تحياتي
الرد
تم الشكر بواسطة: awidan76
#3
متابع الموضوع
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة:
#4
ملاحظة :
DELETE FROM tb1 where ID_mail like

من الأفضل إستخدام = بدلاً من like
الرد
تم الشكر بواسطة: awidan76
#5
(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 

وفقك الله لكل خير فعلا هذا هو المطلوب
الرد
تم الشكر بواسطة: khodor1985 , khodor1985 , awidan76
#6
جزاك الله خير اخي خدور
اشكرك من كل قلبي

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

احترمك
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps 
3) myalsailamy
4) ahmedabdelaliem 
5) sendbad100
6)Amir_alzubidy

الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في الوصول الى قاعدة بيانات 2007 عند تغيرها 2016 alshandodi 7 120 29-05-20, 11:34 AM
آخر رد: معاند الحظ
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 99 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 3 79 27-05-20, 11:49 PM
آخر رد: momani33
  [سؤال] تصدير البيانات منه 1 39 27-05-20, 10:46 PM
آخر رد: منه
  مشكلة معقدة بعرض البيانات بالدتاجريد على ما فكرت فيها لم اجد لها حل ابو محمد محمد محمد 10 291 24-05-20, 12:16 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] مشكلة في اتصال قاعدة البيانات اكسس mazentq 9 207 24-05-20, 08:45 AM
آخر رد: mazentq
  [VB.NET] التعديل على كود لقرائة باقي المعلومات من قاعدة البيانات khairallah 1 66 24-05-20, 03:19 AM
آخر رد: اسامه الهرماوي
  [سؤال] مشكل اتصال قاعدة بينات في الفيجول 2017 ahmedbezia 2 73 20-05-20, 05:51 PM
آخر رد: rochdi191
  [VB.NET] كيف يتم تخزين المعلومات الموجودة في الداتا قريد غير متصلة بقاعدة البيانات rochdi191 8 149 16-05-20, 08:23 AM
آخر رد: عبدالله الدوسري
  طلب و أتمنى لو موجود: قاعدة بيانات أدوية DR.YASER 2 125 16-05-20, 05:47 AM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم