Я сталкиваюсь с ошибкой в любое время, когда я пытаюсь обновить свои записи в базе данных, это указывает, что оператор завершен, потому что данные будут обрезаны, пожалуйста, помогите
Dim command As SqlClient.SqlCommand = con.CreateCommand()
command.CommandText = "UPDATE staff SET staff_pic=@staff_pic,fullname=@fullname,dob=@dob,gender=@gender,nationality=@nationality,hometown=@hometown,religion=@religion,tel=@tel,address=@address,position=@position,qualification=@qual WHERE Staff_ID=@ID"
Dim mem As New MemoryStream
staff_pic.Image.Save(mem, staff_pic.Image.RawFormat)
command.Parameters.Add("@ID", SqlDbType.VarChar).Value = staff_id.Text
command.Parameters.Add("@staff_pic", SqlDbType.Image).Value = mem.ToArray()
command.Parameters.Add("@dob", SqlDbType.Date).Value = staff_dob.Text
command.Parameters.Add("@fullname", SqlDbType.VarChar).Value = staff_lname.Text
command.Parameters.Add("@gender", SqlDbType.VarChar).Value = staff_gender.SelectedItem
command.Parameters.Add("@nationality", SqlDbType.VarChar).Value = staff_nationality.Text
command.Parameters.Add("@hometown", SqlDbType.VarChar).Value = staff_hometown.Text
command.Parameters.Add("@religion", SqlDbType.VarChar).Value = staff_religion.Text
command.Parameters.Add("@tel", SqlDbType.VarChar).Value = staff_phone.Text
command.Parameters.Add("@address", SqlDbType.VarChar).Value = staff_address.Text
command.Parameters.Add("@position", SqlDbType.VarChar).Value = staff_position.SelectedItem
command.Parameters.Add("@qual", SqlDbType.VarChar).Value = qual.SelectedItem
If command.ExecuteNonQuery() > 0 Then
MsgBox("info inserted")
Else
MsgBox("info hasnt been inserted")
End If
con.Close()