Guillements dans une String, dans une variable, utilisée dans une requête sqlRésolu

Question

Bonjour,

J'ai lu un maximum d'informations avant de poster mais je n'ai pas trouver de r&#233;ponse. Voici mon code (une partie) :

    Private Sub InsertPatProsite()
    Dim query As String
    query = "INSERT INTO motifs (tools_number_tool, motif, motif_description, ID_Prosite, AC_Prosite, DO_Prosite, DT_Prosite) VALUES (" _
            & rst!number_tools & ", " _
            & Chr(34) & pa & Chr(34) & ", " _
            & Chr(34) & des & Chr(34) & ", " _
            & Chr(34) & id & Chr(34) & ", " _
            & Chr(34) & ac & Chr(34) & ", " _
            & Chr(34) & pdoc & Chr(34) & ", " _
            & Chr(34) & dt & Chr(34) & ");"
    CurrentDb.Execute query
    End Sub

Les variables sont issus d'un fichier texte que je parse ligne par ligne. Mon probl&#232;me est que pour certaines description (variable des), il y a des guillemets &#224; l'int&#233;rieur de la chaine, "cassant" ma requ&#234;te sql. 
Ex : Lipolytic enzymes "G-D-S-L" family, serine active site
le tout &#233;tant une string (variable des)

J'ai donc essay&#233; ceci :

    Dim charact As String
    charact = "" & Chr(34) & ""
    Src = Replace$(montexte, Chr(34), charact)

Sauf que du coup, je remplace un guillemet par .... un guillemet et cela ne sert &#224; rien. Mon objectif &#233;tant de passer outre les guillemets dans la string mais de les conserver &#224; leur place pour leur insertion dans la base. Quelqu'un a une id&#233;e ?

Renfield · Accepted Answer

il suffit de remplacer chaque quote de tes variables par deux quotes :

query = "INSERT INTO motifs (tools_number_tool, motif,
motif_description, ID_Prosite, AC_Prosite, DO_Prosite, DT_Prosite)
VALUES (" _
            & rst!number_tools & ", " _
            & "'" & Replace(pa,"'","''") & "', " _
            & "'" & Replace(des,"'","''") & "', " _
            & "'" & Replace(id,"'","''") & "', " _
            & "'" & Replace(ac,"'","''") & "', " _
            & "'" & Replace(pdoc,"'","''") & "', " _
            & "'" & Replace(dt,"'","''") & "' );"

Renfield
Admin CodeS-SourceS - MVP Visual Basic

nenette_cherie · Answer

J'ai aussi essay&#233; de mettre juste Chr(34) &#224; la place des guillemets, mais il &#233;crit vraiment "Chr(34)" dans ma table.... Ceci dit, &#231;a ne bloque plus ma requ&#234;te sql

Renfield · Answer

mets une simple quote ....... 

   query = "INSERT INTO motifs (tools_number_tool, motif,
motif_description, ID_Prosite, AC_Prosite, DO_Prosite, DT_Prosite)
VALUES (" _
            & rst!number_tools & ", " _
            & "'" & pa & "', " _
            & "'" & des & "', " _
            & "'" & id & "', " _
            & "'" & ac & "', " _
            & "'" & pdoc & "', " _
            & "'" & dt & "' );"

Renfield
Admin CodeS-SourceS - MVP Visual Basic

nenette_cherie · Answer

Merci beaucoup ! je n'avais pas pens&#233; &#224; &#231;a, c'est vraiment plus simple et plus logique...

nenette_cherie · Answer

En fait, ta solution marche sur un test que j'ai fait mais ne fonctionne pas sur mon v&#233;ritable fichier !! En effet, il y a aussi des simples quotes dedans...... As-tu une autre proposition ?

nenette_cherie · Answer

De plus, il n'y a pas que &#231;a comme caract&#232;res sp&#233;ciaux.... il y a aussi / par exemple

nenette_cherie · Answer

MERCI !! &#231;a fonctionne tr&#232;s bien maintenant !

Guillements dans une String, dans une variable, utilisée dans une requête sql

7 réponses

Discussions similaires