[عاشق الرسول]

عندي داتا جريد فيو بها عمود تشيك بوكس
عند الاختيار اريد من الكود أن يحفظ البيانات الموجودة لتي تم اختيارها
قاعدة البيانات أكسس
وجربت هذا الكود

كود :

        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        If TXT_ID_ABS.Text = "" Or DGV_NAM.Rows.Count = 0 Then
            MsgBox("Cant save incomplete information", MsgBoxStyle.Critical, Me.Text)
            Exit Sub
        End If
       Dim inserted As Integer = 0
       For Each row As DataGridViewRow In DGV_NAM.Rows
           Dim isChecked As Boolean = Convert.ToBoolean(row.Cells("WARN").Value)
           If isChecked Then
               Dim SA As String
               Dim CMD As New OleDbCommand(SA, con)
               SA = "INSERT INTO ABSE_TBL VALUES(@ID_ABS, @ABS_DAT, @STU_ID,@STU_NAM,@CLS,@GRAD)"
               CMD.Parameters.AddWithValue("ID_ABS", TXT_ID_ABS.Text)
               CMD.Parameters.AddWithValue("ABS_DAT", ABSE_DAT.Text)
               CMD.Parameters.AddWithValue("@STU_ID", row.Cells("ST_Id").Value)
               CMD.Parameters.AddWithValue("@STU_NAM", row.Cells("ST_Nam").Value)
               CMD.Parameters.AddWithValue("CLS", cls_lst.Text)
               CMD.Parameters.AddWithValue("GRAD", grad_lst.Text)
               'CMD.Parameters.AddWithValue("@STU_ID", row.Cells("WARN").Value)
               con.Open()
               CMD.ExecuteNonQuery()
               con.Close()
           End If
       Next
       MessageBox.Show("تم حفظ سجل الغياب بنجاح")
   End Sub