VB access (requête UPDATE)

bonjour ,
voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

'ouverture de la connection(à partir du répertoire de l'application)sur la même ligne Dim cnxstr As String cnxstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\base3.mdb" Dim cnx As New OleDbConnection 'cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Artisanat\Desktop\base1.mdb" cnx.ConnectionString = cnxstr cnx.Open() 'Command texte Dim q As String TextBox9.Text = Date.Now q = "UPDATE maintenance SET huile = '" & Date.Now & "' WHERE transfo =" & ComboBox1.SelectedItem & " AND numvisite = " & ComboBox2.SelectedItem & " ;" TextBox9.Text = Date.Now 'creation de le commande Dim cmd As New OleDbCommand() 'connexion liéé à la commande cmd.Connection = cnx 'texte de la commande cmd.CommandText = q 'Execution de la commande 'MessageBox.Show(cmd.CommandText) cmd.ExecuteNonQuery() cnx.Close()

---

le code s exécute tres bien lorsque je supprime une partie de la requette update:

Code:

---

q = "UPDATE maintenance SET huile = '" & Date.Now & "' WHERE transfo =" & ComboBox1.SelectedItem & "

---

j ai un projet d archivage. j ai presque fini le probleme c est que une requette sql sous vb access ne veux pas s excuter correctement.

merci de m'aider svp

salut mar11,

je n'ai pas d'experience avec access et vb.net.

mais je vois que la requete est mal écrite.
au lieu de :

Code:

---

q = "UPDATE maintenance SET huile = '" & Date.Now & "' WHERE transfo =" & ComboBox1.SelectedItem & " AND numvisite = " & ComboBox2.SelectedItem & " ;"

---

tu devrais faire :

Code:

---

1 2	q = "UPDATE maintenance SET huile =" & "'" & Date.Now & "'" & "WHERE transfo =" & "'" & ComboBox1.SelectedItem & "'" & "AND numvisite = " & ComboBox2.SelectedItem

---

remarques:

-huile est une date, n'est ce pas? donc sur sql tu devrais la mettre entre quotes.

-numvisite est un entier,donc pas besoin des quotes.

-transfo est un numeric ou varchar, si c'est numeric tu ne mets pas les quotes entre

Code:

---

ComboBox1.SelectedItem

---

-vous avez appelé

Code:

---

TextBox9.Text = Date.Now

---

avant et après la requête, pourquoi?
pourquoi n'essayer pas de nommer les objets:text et comboBox, ça sera plus explicite et clair en cas de leurs utilisations.

espérant que je t'ai aidé!

Bonjour,

J'écrirai plutôt la requête "Update" de la façon suivante :

Code:

---

1 2	q = "UPDATE maintenance SET huile=#" & Date.Now & "# WHERE transfo='" & ComboBox1.SelectedItem & "' AND numvisite='" & ComboBox2.SelectedItem & "' ;"

---

Les dates devant être encadrées de dièses > #28/08/2011# et les string d'apostrophes > 'String'

Hervé.

Bonsoir à vous tous.

Il est important quand vous coder d'utiliser les requêtes paramétrées
(Voir ici sous "Comment exécuter une requête paramétrée ?")

Celle-ci règle pas mal de problème d'injection sql, de mise en forme de chaine (doublage de quote ce qui pourrais être ton problème ici :aie:) et améliore grandement la lisibilité du code...
De plus vous n'avez plus à vous soucier de comment on code les dates (ça change d'un SGBD à l'autre) vu que c'est le système qui la met en forme...

Ca nous donnerais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim cmd As New OleDbCommand() 'connexion liéé à la commande cmd.Connection = cnx 'texte de la commande cmd.CommandText = "UPDATE maintenance SET huile = ? WHERE transfo = ? AND numvisite = ? ;" ' Création des paramètres cmd.Parameters.Add("@huile", OleDbType.Date) cmd.Parameters.Add("@transfo", OleDbType.VarChar) ' Ou integer suivant le type cmd.Parameters.Add("@numvisite", OleDbType.Integer) ' Remplissage valeur des paramètres cmd.Parameters("@huile").Values = Date.Now cmd.Parameters("@transfo").Values = ComboBox1.SelectedItem cmd.Parameters("@numvisite").Values = ComboBox2.SelectedItem   'Execution de la commande 'MessageBox.Show(cmd.CommandText) cmd.ExecuteNonQuery()

---

C'est bien plus lisible comme ça non? ;)

De plus quand tu crées un post, mets ton code dans les balises code pour une meilleure lisibilité pour ceux qui vont t'aider et mets le texte de l'erreur...