[محمد اسماعيل]

(25-02-18, 07:11 PM)العيدروس كتب : السلام علبكم.ياجماعة مافي حد يتبرع بشوية وقت لزر الحذف يلي جنني و ثوابو على الله٦

طيب هتعمل الاتي

1- انا اطلعت علي المثال نظرا لضيق الوقت لم اقم بالتعديل علية
2- قم باستدعاء عمود id  لانة مش موجود جملة select وخلية غير ظاهر وخلية رقم اول عمود بالداتا جريد
3- اضف الكود التالي لزر الحذف وعندما تريد حذف اي صف يجب الوقوف علي الصف اولا ثم الحذف لاتنسي ان تضيف عمود id لن يعمل الكود بدونة

الكود

كود :

Dim query As String
       Dim id As Integer = 0
       Dim con As New OleDbConnection(constr)
       Dim indx As Integer = DataGridView1.SelectedRows(0).Index
       id = Convert.ToInt32(indx.ToString())
       query = "Delete From ATTENDENCE  Where ID=@ID"
       Dim cmd = New OleDbCommand(query, con)
       cmd.Parameters.Add("@ID", OleDbType.Integer).Value = id
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
       DataGridView1.Refresh()
       MessageBox.Show("تم الحذف بنجاح")