Insertion de nouveaux enregistrements dans une table avec Visual Basic à l'aide de OLEDBConnection

Question

J'utilise Visual Basic 2010 Express et Access 2003. J'essaie de créer des requêtes sql dans le fichier mdb. J'utilise OLEDBConnection. La requête Select fonctionne correctement, mais je ne peux pas insérer de lignes dans la table. Voici le code.

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() 

Pourquoi la requête INSERT ne fonctionne pas?

Answer 1

Ok, j'ai trouvé mon stupide problème. Bien que j'ai déclaré 2 OleDbCommands, j'ai référencé le premier dans les deux cas