15-08-19, 07:57 AM
عندي داتا جريد فيو بها عمود تشيك بوكس
عند الاختيار اريد من الكود أن يحفظ البيانات الموجودة لتي تم اختيارها
قاعدة البيانات أكسس
وجربت هذا الكود
عند الاختيار اريد من الكود أن يحفظ البيانات الموجودة لتي تم اختيارها
قاعدة البيانات أكسس
وجربت هذا الكود
كود :
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