写真やデータを更新するには？

Question

写真が存在していてもデータのみを更新しても、写真は自動的に削除されることに気がつきました。具体的には、データまたは写真、またはその両方を更新するために使用できるコードが必要です。

qry = "update StudentDetails.Students set StudentName=@StudentName,Day=@Day,Month=@Month,Year=@Year,Age=@Age,DateAdmit=@DateAdmit,Gender=@Gender,GuardianName=@GuardianName,Phone=@Phone,Email=@Email,Address=@Address,City=@City,Region=@Region,Photo = CASE WHEN @Photo IS NULL THEN Photo ELSE @Photo END where StudentId='" & txtStudentID.Text & "'" 
      cmd = New SqlCommand(qry, cn) 
      cmd.Parameters.Add(New SqlParameter("@StudentID", Val(txtStudentID.Text))) 
      cmd.Parameters.Add(New SqlParameter("@StudentName", txtName.Text)) 
      cmd.Parameters.Add(New SqlParameter("@Day", cboDay.Text)) 
      cmd.Parameters.Add(New SqlParameter("@Month", cboMonth.Text)) 
      cmd.Parameters.Add(New SqlParameter("@Year", txtYear.Text)) 
      cmd.Parameters.Add(New SqlParameter("@Age", Val(lblAge.Text))) 
      cmd.Parameters.Add(New SqlParameter("@DateAdmit", DateTimePicker1.Value)).ToString() 
      cmd.Parameters.Add(New SqlParameter("@Gender", Gender)) 
      cmd.Parameters.Add(New SqlParameter("@GuardianName", txtGName.Text)) 
      cmd.Parameters.Add(New SqlParameter("@Phone", txtPhone.Text)) 
      cmd.Parameters.Add(New SqlParameter("@Email", txtEmail.Text)) 
      cmd.Parameters.Add(New SqlParameter("@Address", txtAddress.Text)) 
      cmd.Parameters.Add(New SqlParameter("@City", txtTown.Text)) 
      cmd.Parameters.Add(New SqlParameter("@Region", cboRegion.Text)) 
      If img Is Nothing Then 
       cmd.Parameters.Add(New SqlParameter("@Photo", DBNull.Value)) 
      Else 
       cmd.Parameters.Add(New SqlParameter("@Photo", img)) 
      End If 

     cmd.ExecuteNonQuery() 
     MessageBox.Show("Record successfully Updated", "Updated", MessageBoxButtons.OK, MessageBoxIcon.Informaation) 

Answer 1

これは1つの解決策です。

qry = "update StudentDetails.Students set StudentName=@StudentName,Day=@Day,Month=@Month,Year=@Year,Age=@Age,DateAdmit=@DateAdmit,Gender=@Gender,GuardianName=@GuardianName,Phone=@Phone,Email=@Email,Address=@Address,City=@City,Region=@Region,Photo = CASE WHEN @Photo IS NULL THEN Photo ELSE @Photo END where StudentId='" & txtStudentID.Text & "'" 

：置き換え

Dim sbQry As New StringBuilder(1000) 

    sbQry.Append("update StudentDetails.Students set StudentID=@StudentID,StudentName=@StudentName,Day=@Day,Month=@Month,Year=@Year,Age=@Age,DateAdmit=@DateAdmit,Gender=@Gender,GuardianName=@GuardianName,Phone=@Phone,Email=@Email,Address=@Address,City=@City,Region=@Region") 
    If img IsNot Nothing Then 
     sbQry.Append(",Photo=@Photo") 
    End If 
    sbQry.Append(" where StudentId='").Append(txtStudentID.Text).Append("'") 

    cmd = New SqlCommand(sbQry.ToString, cn) 

をし、この置き換えます。これで

If img Is Nothing Then 
    cmd.Parameters.Add(New SqlParameter("@Photo", DBNull.Value)) 
Else 
    cmd.Parameters.Add(New SqlParameter("@Photo", img)) 
End If 

を：

If img IsNot Nothing Then 
    cmd.Parameters.Add(New SqlParameter("@Photo", img)) 
End If