Discussion :

[bruce207]

Bonjour,
mon problème est le suivant : j'ai un bouton command, des textbox et une bdd, lorsque je saisis cette phrase dans un textbox : Connecté à l'eau et l'électricité et que je l'insere dans la base de données par la requete suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyCon.Execute " UPDATE piece set mat_loc = '" & TxtLoc(0).Text & "', date_limite_vers = " & TxtLoc(4).Text & ", date_location = '" & TxtLoc(2).Text & "', duree_location = " & TxtLoc(3).Text & ", montant_loyer = " & TxtLoc(7).Text & ", type_loc = '" & Combo1.Text & "', caracteristique = '" & TxtLoc(5).Text & "', description = '" & TxtLoc(6).Text & "' where mat_loc = '" & TxtLoc(0).Text & "'"

le débogeur s'arrete sur la requete et m'affiche l'erreur suivante :
Erreur d'exécution '-2147217900(80040e14)':
Erreur de syntaxe (opérateur absent) dans l'expression " Connecté à l'eau et l'électricité".
le textbox est ici TxtLoc(5).Text et le champ caracteristique est de type Text dans une bdd ACCESS 2003
pourquoi cette erreur et comment y remedier ?

[OhMonBato]

Si tu enlèves les apostrophes dans ton expression as tu toujours l'erreur ?
Si oui, essaye de doubler les apostrophes dans ta chaine avant de la mettre dans ta requête.
Connecté à l''eau et l''électricité

[Delbeke]

Comme le dit OhMonbato, il faut remplacer le simple quote dans le contenu des champs par un double.
Voici un exemple de ce que çà peut donner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
SQl = " UPDATE piece " & _
          "set       mat_loc = '" & _
                             Replace(TxtLoc(0).Text, "'","''") & _
                     "', date_limite_vers = " & _
                             TxtLoc(4).Text & _
                     ", date_location = '" & _
                             TxtLoc(2).Text & _
                     "', duree_location = " & _
                            TxtLoc(3).Text & _
                     ", montant_loyer = " & _
                            TxtLoc(7).Text & _
                     ", type_loc = '" & _
                            Replace(Combo1.Text, "'","''") & _
                     "', caracteristique = '" & _
                            Replace(TxtLoc(5).Text, "'","''") & _
                     "', description = '" & _
                            Replace(TxtLoc(6).Text, "'","''") & _
                     "' where mat_loc = '" & _
                            Replace(TxtLoc(0).Text, "'","''") & _
                     "'"
Debug.Print SQL
MyCon.Execute SQL

par ailleurs, je te conseille, comme je le montre dans le code, d'utiliser le caractère de contination de ligne quand les lignes sont longue, çà aide à mieux cerner le code
Je te conseille également de mettre ta requete dans une chaine de caractères, ce qui te permettra d'avoir une visualisation de la chaine exécutée.
De plus j'ai vu un champ nommé date_location. si ce champ est au format date, la syntaxe n'est pas bonne. il faudrait remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   ", date_location = " & _
                             cvdate(TxtLoc(2).Text )& _

Dernière chose, tu fais un set de mat_loc et une selection sur mat_loc
ce qui en simplifiant la requete à ce champs ferait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
SQl = " UPDATE piece " & _
          "set       mat_loc = '" & _
                             Replace(TxtLoc(0).Text, "'","''") & _
                     "' where mat_loc = '" & _
                            Replace(TxtLoc(0).Text, "'","''") & _
                     "'"

Ce qui est assez inutile je pense