UPDATE sql avec clé primaire en condition

Version imprimable

1 pièce(s) jointe(s)

Bonjour, j'ai actuellement une table "En_cours" contenant plusieurs colonne dont une colonne nommée "Id" en numéro automatique qui est ma clé primaire.
Je voudrais mettre à jour ma table en utilisant le numéro de la colonne "Id" en condition.

Le code ci-dessous fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
                OuvrirConnexion()
                'Change le N° de devis dans la base de données En_cours
                NewNumDevis = TextBox4.Text
                sql = "UPDATE En_cours SET N°Devis= '" & NewNumDevis & _
                "' WHERE Client = '" & EditClient & "'"
 
                cmd = New OleDbCommand(sql)
                dta = New OleDbDataAdapter(cmd)
                cmd.Connection() = cnx
                dta.Fill(dts, "En_cours")
                dtt = dts.Tables("En_cours")
                dts.Clear()

Et celui-ci ne fonctionne pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
                OuvrirConnexion()
                'Change le N° de devis dans la base de données En_cours
                NewNumDevis = TextBox4.Text
                sql = "UPDATE En_cours SET N°Devis= '" & NewNumDevis & _
                "' WHERE Id = '" & EditId & "'"
 
                cmd = New OleDbCommand(sql)
                dta = New OleDbDataAdapter(cmd)
                cmd.Connection() = cnx
                dta.Fill(dts, "En_cours")
                dtt = dts.Tables("En_cours")
                dts.Clear()

Le programme bloque sur la ligne dta.Fill(dts, "En_cours") et j'obtiens l'erreur suivante:

Pièce jointe 539664

Et j'ai absolument besoin d'utiliser cette clé primaire en critère pour différencier mes différentes lignes.
Merci de votre aide.

19/02/2020, 16h29
Thumb down

Bonsoir,
Et comme ça ?
SET [N°Devis]=
19/02/2020, 17h00
Sam Placi
Bonjour,

Je en suis pas trop expérimenté mais je crois que la solution de Thumbdown est sûrement à prendre en considération à cause du caractère spécial "°".

Je crois vois d'autres problèmes. Il y a plusieurs endroits où des informations numériques sont passées entre quotes. Il n'en faut pas pour les numériques.

Si EditId est numérique, il ne faut de quotes :
Code:

1 2 sql = "UPDATE En_cours SET N°Devis= '" & NewNumDevis & _ "' WHERE Id = '" & EditId & "'"
Si N°Devis est numérique, il ne faut pas de quotes :
Code:

1 2 sql = "UPDATE En_cours SET N°Devis= '" & NewNumDevis & _ "' WHERE Client = '" & EditClient & "'"
Enfin, gros problème potentiel : mettre la clé primaire en condition est bien naturel. Mais modifier la valeur de clé primaire est interdit si elle est de type "Num Auto", et sujet à erreur dans les autres cas.

Cordialement,

Sam

Bonjour et merci pour vos réponses, qui m'ont permis de résoudre ce problème.
Comme l'a dit Sam Placi, il ne faut pas de quote pour les informations numériques...

Voici le code qui fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
                sql = "UPDATE En_cours SET N°Devis= '" & NewNumDevis & _
                "' WHERE Id = " & EditId & ""
 
 
                cmd = New OleDbCommand(sql)
                dta = New OleDbDataAdapter(cmd)
                cmd.Connection() = cnx
                dta.Fill(dts, "En_cours")
                dtt = dts.Tables("En_cours")
                dts.Clear()

Encore merci à vous.

Salut

Code:

1
2
sql = "UPDATE En_cours SET N°Devis= '" & NewNumDevis & _
                "' WHERE Id = " & EditId & ""

Les deux derniers " ne sont pas nécessaires.

Code:

1
2
sql = "UPDATE En_cours SET N°Devis= '" & NewNumDevis & _
                "' WHERE Id = " & EditId

doit être suffisant.

20/02/2020, 16h27
petit rabot

Je viens de tester la solution de ProgElecT, ça marche également sans les derniers "" :bravo:
Merci à tous.