vb.net MS Access вставляет запись с столбцом первичного ключа с автоматическим номером в таблицу с запросом SQL

Question

Я хочу вставить новую строку в таблицу со столбцом автоматического номера.Мой код ниже, я не могу узнать, как вставить столбец автоматического номера одновременно с другими столбцами:

pth = My.Application.Info.DirectoryPath

Dim SQL = "INSERT INTO approved (id, word, approveds) VALUES (@idd, @word, @approval)"

Using Con As New OleDbConnection("Provider=Microsoft.ace.oledb.12.0; Data Source=" & pth & "\database.mdb; User Id=; Password=;")
    Dim Cmd As New OleDbCommand(SQL, Con)

    Cmd.Parameters.Add("@idd", OleDb.OleDbType.VarChar).Value = @@identity
    Cmd.Parameters.Add("@word", OleDb.OleDbType.VarChar).Value = RichTextBox1.SelectedText
    Cmd.Parameters.Add("@approval", OleDb.OleDbType.VarChar).Value = "YES"

    Con.Open()
    Cmd.ExecuteNonQuery()
End Using

Ключевое слово @@identity не работает;что такое правильный метод?

Answer 1

это сработало:

 pth = My.Application.Info.DirectoryPath



            Dim SQL = "insert into approved (word, approveds) VALUES (@word, @approval)"
            Using Con As New OleDbConnection("Provider=Microsoft.ace.oledb.12.0; Data Source=" & pth & "\database.mdb; User Id=; Password=;")
                Dim Cmd As New OleDbCommand(SQL, Con)

                Cmd.Parameters.Add("@word", OleDb.OleDbType.VarChar).Value = RichTextBox1.SelectedText
                Cmd.Parameters.Add("@approval", OleDb.OleDbType.VarChar).Value = "YES"
                Con.Open()
                Cmd.ExecuteNonQuery()
            End Using

Answer 2

Если бы вы установили для столбца SQL автоматическое увеличение идентификатора, вам не нужно передавать параметр id, пока его вставка будет работать автоматически.

Удалить ниже код:

Cmd.Parameters.Add("@idd", OleDb.OleDbType.VarChar).Value = @@identity

Добавление

Конечно, также используйте:

Dim SQL = "insert into approved (word, approveds) VALUES (@word, @approval)"