بسم الله الرحمن الرحيم
السلام عليكم شباب
محتاج كود حذف سطر واحد بالداتا جريد محفوظ بقاعدة البيانات
الكود الى عندى يقوم بحذف جميع البيانات
مع العلم ان هذا جدول فرعى ليس به رقم تسلسلى لاكن رقم يحفظ من الرقم التستلى الرئيسى
يظهر لي و الله اعلم انه لابد لكل جدول مفتاح رئيسي فريد
وعليكم السلام ورحمه الله وبركاته
لم افهم بالضبط ايش تقصد بان ليس له رقم تسلسلي
لكن
اذا اردت ان تحدف اي سطر لابد يتم تحديد عن طريق الاي دي للجدول المراد الحدف منه
وهذا مثال توضيحي واتمنى وصلت الفكرة
كود :
Private Sub btnDell_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDell.Click
Dim deletOk As String = MsgBox("هل تريد حدف البيانات المحددة ", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تاكيد عملية الحدف")
If deletOk = vbYes Then
Dim deletConfirm As Boolean = WinClass.SQLExicute(" Delete From jop Where JopID =" & txtID.Text)
If deletConfirm = True Then
MsgBox("تم عملية الحدف بنجاح", MsgBoxStyle.Exclamation, "تم الحدف")
txtname.Text = ""
FillDataGraid()
Else
MsgBox("خطا في عملية حذف البيانات", MsgBoxStyle.Critical, "خطا")
End If
End If
End Sub
سلام عليكم انا مش محترف بس جرب الكود ده والله المستعان
منقول للامانه طبعا
كود الحذف
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