+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الحذف المتعدد (/showthread.php?tid=19464)
الصفحات:
1
2
الحذف المتعدد - abdulla2 - 28-02-17
هذا المشروع بمجرد إختيار صف يقوم بحذف الصف من خلال الزر
وهنا ليس عندي مشكله
ما اريده هو :
اني اضفت تشك بوكس للحذف المتعدد بمعنى اعمل تشك لعدة حقول
ثم اضغط حذف يقوم بحذف المحدد .. وهذا ما اريده
وهل سيحدث تعارض حذف صف مه حذف متعددعبر تشكبوكس
ام ان كل حذف على حده
وهذا المشروع الذي اريده
شكرا لكم
RE: الحذف المتعدد - مساعدة - 28-02-17
السلام عليكم
تفضل التعديل
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
cmd = New OleDbCommand(String.Empty, conn)
conn.Open()
For i = 0 To dgv.Rows.Count - 1
If dgv.Item(2, i).Value = True Then
Dim id As Integer = dgv.Item(0, i).Value
cmd.CommandText = "Delete from tb2 where Id = " & id
cmd.ExecuteNonQuery()
End If
Next
conn.Close()
Form1_Load(Nothing, Nothing)
MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Exclamation, "تنبيه")
Catch ex As Exception
Exit Sub
End Try
End Subلا داعي لوضع عمود CheckBox في قاعدة البيانات لتحديد الحذف،
لأنه بامكانك بعد إضافة البيانات أن تضيف عمود CheckBox في الداتاجريدفيو بالكود لتحديد الحذف،
وهذه هي الطريقة
كود :
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim da As New OleDbDataAdapter("select * from tb2", conn)
Dim dt As New DataTable()
da.Fill(dt)
dgv.DataSource = dt
dgv.Columns.Add(New DataGridViewCheckBoxColumn With {.HeaderText = "حذف", .Name = "Delete"})
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
cmd = New OleDbCommand(String.Empty, conn)
conn.Open()
For i = 0 To dgv.Rows.Count - 1
' يمكن الإشارة باسم العمود بدلا من رقمه لمعرفة القيمة
If dgv.Item("Delete", i).Value = True Then
Dim id As Integer = dgv.Item(0, i).Value
cmd.CommandText = "Delete from tb2 where Id = " & id
cmd.ExecuteNonQuery()
End If
Next
conn.Close()
Form1_Load(Nothing, Nothing)
MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Exclamation, "تنبيه")
Catch ex As Exception
Exit Sub
End Try
End SubRE: الحذف المتعدد - abdulla2 - 28-02-17
شكرا لسرعة الرد ..
أجرب واوافيك اخي ..[مساعدة]
RE: الحذف المتعدد - abdulla2 - 28-02-17
أخي [مساعدة]
كل شئ على مايرام ..مشكوراً لك أخي ولكن هناك خطأ بسيط ..
أريدك ان تجربه عندك وهو ..
عندما أنشا تشكبوكس بالكود كما تفضلت .. واقوم بالحذف سواء بصف او صفوف متعدده ..
يتم الحذف بنجاح ولكن يظهر كولوم أىخر بجانب كولوم التشكبوكس فيكون عددهم 2 وأحيانا يصبح 3 كولوم تشكبوكس ..؟؟؟
---
حاولت اوقف اللود في الحذف ولا زالو يظهروا ؟؟
هناك مشكلة في الحذف في حالة انني أنشأت التشكبوكس بالكود ؟؟؟
RE: الحذف المتعدد - مساعدة - 01-03-17
ضع dgv.Columns.Clear في بداية حدث Form_Load
RE: الحذف المتعدد - abdulla2 - 01-03-17
هي موجوده عندي .. ولكن استسمحك عذرا ..
كتبتها نهاية كود الود وليست في البدايه وبعد اعادة التفريغ في الاعلى مشي الحال ..
شكرا لك [ مساعده ]
حليت لي مشكله اتعبتني ..
بارك الله فيك ..
RE: الحذف المتعدد - مساعدة - 01-03-17
الحمد لله،
ربنا يوفقك.
RE: الحذف المتعدد - abdulla2 - 01-03-17
حينما طبقت الكود في مشروع صغير يعمل
وحينما انقله لمشروعي لا يعمل ممكن النظر فيه مرة أخرى أخي [ مساعدة ]
وهنا وضعت الفورم الذي به المشكله
وهاك البيانات
http://up.top4top.net/downloadf-4251dndg1-rar.html
RE: الحذف المتعدد - مساعدة - 01-03-17
العمود ID_Format نصي وليس رقمي،
تفضل التعديل
كود :
Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Try
cmd = New OleDbCommand(String.Empty, conn)
conn.Open()
For i = 0 To DGVAlert.Rows.Count - 1
' يمكن الإشارة باسم العمود بدلا من رقمه لمعرفة القيمة
If DGVAlert.Item("X", i).Value = True Then
Dim ID_Format As String = DGVAlert.Item(0, i).Value
cmd.CommandText = "Delete from TB_Notices where ID_Format = '" & ID_Format & "' "
cmd.ExecuteNonQuery()
End If
Next
conn.Close()
FillDGVAlert()
MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Exclamation, "تنبيه")
Catch ex As Exception
Exit Sub
End Try
End Subأثناء كون البرنامج في مرحلة التطوير قم بتعطيل Try ليظهر أي خطأ محتمل في الكود.
RE: الحذف المتعدد - abdulla2 - 01-03-17
كنت قد غيرتها الى نصي ولا زالت المشكله ولكن بما انك نبهتني بها ايضا
سأعود واعيدها من جديد
واوافيك