+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=18064)
الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو - makky - 17-11-16
اريد ان احذف من قاعدة البيانات كل الصفوف اللي حصلهم تشيك في الداتا جريد فيو
هذا الكود لا يعمل الا علي صف واحد فقط
For i As Integer = 0 To DGVTest.Rows.Count - 1
Dim c As Boolean
c = DGVTest.Rows(i).Cells(3).Value
If c = True Then
Dim rw As DataGridViewRow
rw = DGVTest.Rows(i)
Dim idx As Integer = DGVTest(2, DGVTest.Rows(i).Index).Value.ToString
Dim d As New DAL
d.Dataedit(String.Format("Delete from PT where PT_Code={0} and PT_Date=#{1}#", idx, firstdate.Value.ToString("MM/dd/yyyy")))
d.Dataedit(String.Format("Delete from Result where PT_code={0} and test_date=#{1}#", idx, firstdate.Value.ToString("dd/MM/yyyy")))
DGVTest.Rows.Remove(rw)
Else
MsgBox("من فضلك اختر صف ليتم حذفه", MsgBoxStyle.Information)
End If
Next
RE: الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو - السرور - 17-11-16
اخوي وضح شو هو DAL
RE: الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو - superwoofer - 08-12-16
متابعة.............