[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته

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

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

دمتم بود

[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

[جيولوجي مبتدئ]

(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

مشكور اخي العزيز وبارك الله تم المطلوب بمساعدتك الله يجعله في موازين حسناتك