Discussion :

[bartimeus35]

Bnjour,
J'ai du code VBA qui fat un UPDATE

Code :

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

1
2
3
4
 requete = " UPDATE T_MAtable " & _
                        " SET champ_1        = '" & p_champ_1 & "'" & _
                        "  , champ_2       = '" & p_champ_2 & "'" & _
                       " WHERE cle = " & p_cle

Mon problèem est que le champ p_champ_1 contient parfois des ' et ca fiche le bordel,
Je ne sais pas comment faire .

Je n'ai pas envie de remplacer les ' par des espaces avant de faire le UPDATE.
Une idée ?
Merci

[loufab]

Bonjour,

sjute abdoré à de mulpitle reprise dans el frumo.

Une rcherehec anvnt de ptosre.

Cordleimenta,

[Thumb down]

Bonjour,

Code :

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

 SET champ_1= '" & Replace(p_champ_1,"'","''") & "' " & _

[bartimeus35]

Super merci pour le update mais pour un insert, ca me met 2 guillemets dans ma base, j'esi donc L''ananas au lieu de l'ananas

Code :

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

1
2
3
 requete = " INSERT INTO TABLE" & _
              " (Nom_Court, Nom_Long, Domaine, LOT) VALUES " & _
              " ('" & p_nom_court & "','" & Replace(p_nom_long, "'", "''") & "','" & p_domaine & "','" & Lot& "');"

Je sèche
C'est surement une connerie mais je ne vois pas , bouhouhou
Merci,

[tee_grandbois]

bonjour,
sur Microsoft Access, le séparateur de valeur peut être le caractère guillemet (même si c'est également le caractère délimiteur de texte) on peut donc passer par là:

Code :

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

1
2
3
 requete = " INSERT INTO TABLE" & _
              " (Nom_Court, Nom_Long, Domaine, LOT) VALUES " & _
              " (""" & p_nom_court & """,""" & p_nom_long & """,""" & p_domaine & """,""" & Lot& """);"

en espérant qu'il n'y ait pas aussi ce caractère dans le champ.

Bonjour,

sjute abdoré à de mulpitle reprise dans el frumo.

Une rcherehec anvnt de ptosre.

Cordleimenta,

birraze ce spot, ou bein ?

[bartimeus35]

Hello,

Je pense que je vais remplacer les ' par un espace pour éviter tout problème

Code :

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

Replace(p_champ_1,"'"," ")

mais s'il y a un guillemet, je ne sais pas comment faire pour le remplacer par un espace, je ne sais pas comment faire

Code :

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

Replace(p_champ_1,"""," ")

ne fonctionne pas

[tee_grandbois]

Je pense que je vais remplacer les ' par un espace pour éviter tout problème

c'est idiot de modifier les données, il ne doit pas y avoir de problème avec la solution que j'ai donné: cela règle le problème de l'apostrophe et pour le souci des (éventuels) guillemets, passe par la table des caractères, ce sera plus facile: le caractère 34 représente le guillemet, il suffit d'en remplacer un par deux:

Code :

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

Replace(p_champ_1, Chr(34), Chr(34) & Chr(34))

cela fonctionne avec la requête de mise à jour:

Code :

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

" SET champ_1= """ & Replace(p_champ_1, Chr(34), Chr(34) & Chr(34))) & """ " & _

et pour la requête d'insertion cela donnera ceci:

Code :

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

1
2
3
4
5
6
 requete = " INSERT INTO TABLE" & _
              " (Nom_Court, Nom_Long, Domaine, LOT) VALUES(""" & _
              Replace(p_nom_court, Chr(34), Chr(34) & Chr(34)) & """,""" & _
              Replace(p_nom_long, Chr(34), Chr(34) & Chr(34)) & """,""" & _
              Replace(p_domaine, Chr(34), Chr(34) & Chr(34)) & """,""" & _
              Replace(lot, Chr(34), Chr(34) & Chr(34)) & """);"

[bartimeus35]

La solution que tu me donnes ici gère les simples guillemets Et les doubles ?
Je suis perdu

[Thumb down]

Bonjour,

Code :

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

Replace(p_champ_1,"'","´")

[tee_grandbois]

bonjour,

La solution que tu me donnes ici gère les simples guillemets Et les doubles ?
Je suis perdu

ben non, cela gère le double (") et le simple ('). As-tu au moins essayé le code ?
si tu relis bien ce que j'ai écrit :

Sur Microsoft Access, le séparateur de valeur peut être le caractère guillemet (même si c'est également le caractère délimiteur de texte) on peut donc passer par là:

pour moi, le guillemet c'est ceci: (") et l'apostrophe, cela: (').
Pour être plus clair, on va donc utiliser les termes anglais: quote (') et double quote (") cela veut dire que si tu utilises la double quote comme séparateur de valeurs dans ta requête à la place de la quote, tu n'auras plus de problèmes avec la quote à l'intérieur des valeurs (puisqu'il devient inutile de faire Replace dans ce cas):

Code :

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

1
2
3
4
5
6
 requete = " INSERT INTO TABLE" & _
              " (Nom_Court, Nom_Long, Domaine, LOT) VALUES(""" & _
              Replace(p_nom_court, Chr(34), Chr(34) & Chr(34)) & """,""" & _
              Replace(p_nom_long, Chr(34), Chr(34) & Chr(34)) & """,""" & _
              Replace(p_domaine, Chr(34), Chr(34) & Chr(34)) & """,""" & _
              Replace(lot, Chr(34), Chr(34) & Chr(34)) & """);"

et si jamais tu as la double quote dans un champ, le Replace fera le reste:

le caractère 34 représente le guillemet, il suffit d'en remplacer un par deux:

Est-ce plus clair ?

Et pour info, la quote c'est Chr(39), donc ta question n'avait pas lieu d'être

Code VBA :

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

1
2
3
4
?Asc("'")
 39 
?Asc("""")
 34

[bartimeus35]

Super merci !