Вставьте новые записи в таблицу с помощью Visual Basic, используя OLEDBConnection

Question

Я использую Visual Basic 2010 Express и Access 2003. Я пытаюсь сделать sql запросы в файл mdb.Я использую OLEDBConnection.Запрос Select работает нормально, но я не могу вставить строки в таблицу.Вот код.

    Dim connStr As String = "provider=Microsoft.Jet.OLEDB.4.0;data source=" & System.IO.Directory.GetCurrentDirectory() & "\tpv.mdb;" 
    Dim con As New OleDb.OleDbConnection(connStr)
    con.Open()
    Dim query As String = "select * from Productos"
    Dim cmd As New OleDb.OleDbCommand(query, con)
    Dim reader As OleDb.OleDbDataReader
    reader = cmd.ExecuteReader
    While reader.Read()
        MsgBox(reader.GetValue(0) & ", " & reader.GetValue(1) & " , " & reader.GetValue(2))
    End While
    reader.Close()
    query = "insert into Productos (NombreProducto,PrecioCoste) VALUES ('cana',4)"
    Dim cmd2 As New OleDb.OleDbCommand(query, con)
    cmd.ExecuteNonQuery()
    con.Close()

Почему не работает запрос INSERT?

Answer 1

Хорошо, я нашел свою глупую проблему.Несмотря на то, что я объявил 2 OleDbCommands, я ссылался на первый в обоих случаях