Блог

Мой вопрос: «Пользователь должен иметь возможность обновлять (редактировать) ранее введенный журнал, но дата и номер недели не должны редактироваться»

Как мне запретить пользователю не обновлять текстовое поле даты и недели?

Вот мой текущий код обновления:

     Private Sub Btnupdatelog_Click(sender As Object, e As EventArgs) Handles Btnupdatelog.Click
        Dim conn As New SqlConnection
        Dim cmd As New SqlCommand

        cmd = New SqlCommand("update Logbook Objectives='" amp; Txtobjectives.Text amp; "',Contents='" amp; Txtcontent.Text amp; "',Company_Signature_Stamp='" amp; Txtsignature.Text amp; "',Company_Date='" amp; DateTimePicker2.Text amp; "' where LogId=" amp; TxtLogId.Text amp; "", conn)
        conn.ConnectionString = "Data Source=(LocalDB)MSSQLLocalDB;AttachDbFilename=C:UsersAlexsourcereposCurriculumVitae(CV)binDebugCurriculumVitae(CV).mdf;Integrated Security=True;Connect Timeout=30"

        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()
        MsgBox("Update Successfully")
    End Sub
End Class
  

Чтобы предотвратить обновление определенных полей, просто не включайте эти поля в текст команды. Я удалил поле даты из текста.

Объекты базы данных должны быть закрыты и удалены. Using...End Using блоки обрабатывают это за вас, даже если есть ошибка. В этом коде и соединение, и команда включены в блок Using . Обратите внимание на запятую в конце первой строки использования.

Никогда не объединяйте строки для построения текста sql. Всегда используйте параметры, чтобы избежать внедрения sql. Я должен был угадать тип данных и размер ваших полей. Проверьте правильность значений в вашей базе данных.

 Private Sub Btnupdatelog_Click(sender As Object, e As EventArgs) Handles Btnupdatelog.Click
    Using conn As New SqlConnection("Data Source=(LocalDB)MSSQLLocalDB;AttachDbFilename=C:UsersAlexsourcereposCurriculumVitae(CV)binDebugCurriculumVitae(CV).mdf;Integrated Security=True;Connect Timeout=30"),
            cmd As New SqlCommand("update Logbook Set Objectives= @Objectives, Contents= @Contents, Company_Signature_Stamp= @Signature where LogId= @ID;", conn)
        With cmd.Parameters
            .Add("@Objectives", SqlDbType.VarChar, 300).Value = Txtobjectives.Text
            .Add("@Contents", SqlDbType.VarChar, 300).Value = Txtcontent.Text
            .Add("@Signature", SqlDbType.VarChar, 100).Value = Txtsignature.Text
            .Add("@ID", SqlDbType.Int).Value = CInt(TxtLogId.Text)
        End With
        conn.Open()
        cmd.ExecuteNonQuery()
    End Using
    MsgBox("Update Successfully")
End Sub