15-11-20, 04:58 PM
(آخر تعديل لهذه المشاركة : 15-11-20, 05:04 PM {2} بواسطة khowla.goma.)
Private Sub Button2_Click1(sender As System.Object, e As System.EventArgs) Handles ButEdit.Click
cn.Open()
Try
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = "update Sader1 set mawdo_MasgS='" & mawdo_MasgS.Text & "', Sader_men='" & Sader_men.Text & "' , date_MasgS ='" & date_MasgS.Text & "', Sader_ela ='" & Sader_ela.Text & "', morfagatS='" & morfagatS.Text & "', Mostalem='" & Mostalem.Text & "' , sefa ='" & sefa.Text & "', namberphon ='" & namberphon.Text & "', websait='" & websait.Text & "', note='" & note.Text & "' where id_esaryS = '" & id_esaryS.Text & "'"
cmd.ExecuteNonQuery()
MsgBox("هل تريد تعديل بيانات ")
Catch ex As Exception
MsgBox(ex.Message.ToString)
MsgBox("تم تعديل بيانات بنجاح ")
End Try
cn.Close()
يعطي مسج بهذا الخطأ
cn.Open()
Try
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = "update Sader1 set mawdo_MasgS='" & mawdo_MasgS.Text & "', Sader_men='" & Sader_men.Text & "' , date_MasgS ='" & date_MasgS.Text & "', Sader_ela ='" & Sader_ela.Text & "', morfagatS='" & morfagatS.Text & "', Mostalem='" & Mostalem.Text & "' , sefa ='" & sefa.Text & "', namberphon ='" & namberphon.Text & "', websait='" & websait.Text & "', note='" & note.Text & "' where id_esaryS = '" & id_esaryS.Text & "'"
cmd.ExecuteNonQuery()
MsgBox("هل تريد تعديل بيانات ")
Catch ex As Exception
MsgBox(ex.Message.ToString)
MsgBox("تم تعديل بيانات بنجاح ")
End Try
cn.Close()
يعطي مسج بهذا الخطأ