01-01-15, 01:53 PM
كود التعديل
اتمنى التصحيح من الخبراء
كود :
Try
Dim cmd As New OleDbCommand
cmd.CommandText = "update [Student] set [Student_Name]='" & ComboBox15.Text & "',[Student_CPR]='" & TextBox16.Text & "',[Student_Birth]=" & DateTimePicker6.Value.Date & ",[Student_Join]=" & DateTimePicker5.Value.Date & ",[Student_Nation]=" & ComboBox14.Text & ",[Student_Sex]=" & ComboBox9.Text & ",[Student_D]=" & ComboBox10.Text & ",[Student_Place]=" & ComboBox13.Text & ",[Student_Address]=" & TextBox24.Text & ",[Student_Sick]=" & ComboBox12.Text & ",[Student_Vairus]=" & TextBox19.Text & ",[Student_phone]=" & TextBox23.Text & ",[Student_Dad]=" & TextBox22.Text & ",[Student_mom]=" & TextBox21.Text & ",[Student_Angel]=" & TextBox20.Text & ",[Student_jobmom]=" & TextBox18.Text & ",[Student_jobdad]=" & TextBox17.Text & ",[Student_Famaly]=" & ComboBox11.Text & ",[Student_Pic]=" & PictureBox2.Image & " where [Student_ID]='" & id.Text & "'"
cmd.ExecuteNonQuery()
MsgBox("تم بنجاح", MessageBoxIcon.Information)
Catch ex As Exception
MsgBox("لم يتم تحديد اي صف أو يمكن قد ادخلت معلومات خاطئة", MsgBoxStyle.Exclamation)
End Try
اتمنى التصحيح من الخبراء