المشاركات : 421
المواضيع 158
الإنتساب : Sep 2014
السمعة :
8
الشكر: 720
تم شكره 931 مرات في 60 مشاركات
بسم الله الرحمن الرحيم
السلام عليكم شباب
محتاج كود حذف سطر واحد بالداتا جريد محفوظ بقاعدة البيانات
الكود الى عندى يقوم بحذف جميع البيانات
مع العلم ان هذا جدول فرعى ليس به رقم تسلسلى لاكن رقم يحفظ من الرقم التستلى الرئيسى
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
المشاركات : 25
المواضيع 5
الإنتساب : Nov 2014
السمعة :
1
الشكر: 1235
تم شكره 60 مرات في 1 مشاركات
21-03-15, 10:52 PM
(آخر تعديل لهذه المشاركة : 21-03-15, 10:55 PM {2} بواسطة nabil1982.)
يظهر لي و الله اعلم انه لابد لكل جدول مفتاح رئيسي فريد
المشاركات : 39
المواضيع 3
الإنتساب : Sep 2012
السمعة :
0
الشكر: 4
تم شكره 8 مرات في 7 مشاركات
سلام عليكم انا مش محترف بس جرب الكود ده والله المستعان
منقول للامانه طبعا
كود الحذف
If MsgBox("هل أنت متأكد من عملية الحذف ? ", MsgBoxStyle.OkCancel, "تأكيد حذف") = MsgBoxResult.Cancel Then
Exit Sub
End If
Try
CreateConn()
Dim SavInto As New OleDb.OleDbCommand
SavInto.Connection = getConn()
SavInto.CommandType = CommandType.Text
'-----------------
'حذف قيمة السجل الذي يتم تحديده
'DGview.Item(0, DGview.CurrentCellAddress.Y).Value
SavInto.CommandText = "DELETE FROM tb1 WHERE ID =" & CType(DGview.Item(0, DGview.CurrentCellAddress.Y).Value, Integer) & ""
'---------------
OpenConn()
If SavInto.ExecuteNonQuery() Then
t1.Text = "تمت علمية حذف البيانات بنجاح"
'إذا تم حذف السجل بنجاخ من قاعدة البيانات
'يتم ايضا حذفه من الداتاقريد مباشرة
If Not DGview.CurrentRow.IsNewRow Then
DGview.Rows.Remove(DGview.CurrentRow)
End If
Else
MsgBox("فشلت عملية الحذف حاول مرة أخرى ", MsgBoxStyle.MsgBoxRight, "فشل العملية")
End If
CloseConn()
Catch ex As Exception
MsgBox("لا يوجد أي سجلات للحذف ", MsgBoxStyle.MsgBoxRight, "فشل العملية")
End Try