منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : حذف صف من الداتاقريد فيو وقاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

اخواني عندي داتاقريدفيو مرتبطة بجدول في قاعدة بيانات sql  كما يوجد عندي textbox  الذي أريده عندما أكتب قيمة في textbox  يحدث عملية اختيار الصف الذي يحتوي على هذه القيمة ( يعني يعمل select  للصف ) ثم يقوم بحذفه من الداتاقريدفيو وكذلك من قاعدة البيانات

آسف على الاطالة

دمتم بود
هذ كود للحذف مباشرة من الداتا جرد فيو وقاعدة البيانات بدلالة السطر المحدد
يتبقى عليك فقط تعويض اسم الجدول واسم الحقل وباستدعاء الامر وضع اسم الداتا جرد فيو


كود :
Public Sub DeleteRow(ByVal DGV As DataGridView)
       Dim Position As Integer = DGV.CurrentRow.Index
       Dim ID_Position As Integer = DGV.Rows(Position).Cells("FieldName").Value
       Dim Cmd As New SqlCommand
       With Cmd
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Delete  From tableName Where FieldName = @FieldName"
           .Parameters.Clear()
           .Parameters.AddWithValue("@FieldName", SqlDbType.Int).Value = ID_Position
       End With
       If Con.State = 1 Then Con.Close()
       Con.Open()
       Cmd.ExecuteNonQuery()
       Con.Close()
       MsgBox("تم حذف بيانات السجل بنجاح.", MsgBoxStyle.Information, "حذف")
       Cmd = Nothing
   End Sub
الاستدعاء


كود :
If MessageBox.Show("هل أنت متأكد من انك تريد مواصلة عملية الحذف؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
           Exit Sub
       Else
           DeleteRow(DGVName)
       End If
(09-05-20, 09:33 PM)aljzazy كتب : [ -> ]هذ كود للحذف مباشرة من الداتا جرد فيو وقاعدة البيانات بدلالة السطر المحدد
يتبقى عليك فقط تعويض اسم الجدول واسم الحقل وباستدعاء الامر وضع اسم الداتا جرد فيو


كود :
Public Sub DeleteRow(ByVal DGV As DataGridView)
       Dim Position As Integer = DGV.CurrentRow.Index
       Dim ID_Position As Integer = DGV.Rows(Position).Cells("FieldName").Value
       Dim Cmd As New SqlCommand
       With Cmd
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Delete  From tableName Where FieldName = @FieldName"
           .Parameters.Clear()
           .Parameters.AddWithValue("@FieldName", SqlDbType.Int).Value = ID_Position
       End With
       If Con.State = 1 Then Con.Close()
       Con.Open()
       Cmd.ExecuteNonQuery()
       Con.Close()
       MsgBox("تم حذف بيانات السجل بنجاح.", MsgBoxStyle.Information, "حذف")
       Cmd = Nothing
   End Sub
الاستدعاء


كود :
If MessageBox.Show("هل أنت متأكد من انك تريد مواصلة عملية الحذف؟", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
           Exit Sub
       Else
           DeleteRow(DGVName)
       End If
مشكور اخي العزيز وبارك الله تم المطلوب بمساعدتك الله يجعله في موازين حسناتك