VB.Net и SQLite не сохраняются

Question

, как гласит заголовок, он не сохраняется

Код

Try
        connection()
        Dim cmd As New SQLiteCommand
        'cmd.Connection = connection()
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "UPDATE Emp SET Value = Value +1 WHERE Id='1'"
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        connect.Close()
        MsgBox("Data Has been Saved !")
    Catch ex As Exception
        MsgBox("Failed when saving data")
    End Try

В основном я увеличиваю Log на 1, если Id равен X.

ошибка кажетсянаходиться в "cmd.ExecuteNonQuery ()"

Имя таблицы: Emp Значение = Integer Id = Integer

Answer 1

Я не знаю, если это ошибка или что-то еще ... но я создал другой проект, затем скопируйте и вставьте все.

странная вещь, это работает!но оригинал все еще не делает.я имею в виду, что я копирую и вставляю все, от дизайнера, до кода и копировщика, пока оригинал не

Я использую VS 2013 Обновлено 5 ...

спасибо вам обоимвы.

Answer 2

Комментарии и пояснения в строке.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Try
        'Get your connection locally
        Using cn As New SQLiteConnection("Your connection string")
            'The using blocks ensure that your database objects are 
            'closed and disposed even if there is an error.
            'You have put your Id in single quotes '1'
            'This indicates that it is a string
            'Usually an Id is a number, check your database
            Using cmd As New SQLiteCommand("UPDATE Emp SET Value = Value +1 WHERE Id='1'", cn)
                'You can pass your command text and the connection
                'directly to the command constructor
                cmd.CommandType = CommandType.Text
                cn.Open()
                cmd.ExecuteNonQuery()
            End Using
        End Using
        MsgBox("Data Has been Saved !")
    Catch ex As Exception
        MsgBox("Failed when saving data. " & ex.Message)
    End Try
End Sub

Если ваш идентификатор в предложении Where не является литералом и поступает из пользовательского ввода, то вам нужно использовать параметры.