Sujet Précédent Sujet Suivant

VB.Net Ado Requête SQL Problème avec Guilement

cs_MagDix Messages postés 531 Date d'inscription lundi 5 juin 2006 Statut Membre Dernière intervention 6 octobre 2012 - 4 mars 2008 à 01:51
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 4 mars 2008 à 08:58
Bonjour à tous...


 


J'ai un problèeme avec une Requête SQL et avec les guillemets


J'ai une BD Assce qui contient certaine fois des guillement dans la Colonne Chroniques


J'utilise cette requête et je ne sais pas ou mettre le '' afin de remplacer les ' par ''


Si quelqu'un peu me donner un coup de mains

Merci d'avance



RequeteSQL "UPDATE Chroniques SET Chroniques '"
&

Me
.txtChronique.Text &

"',Type = '"
&

Me
.cboChronique.Text &

"',Volume = '"
&

Me
.txtVolumeCh.Text & _


"',Numero = '"
&

Me
.txtNumeroCh.Text &

"',Page = '"
&

Me
.txtPageCh.Text &

"',Description = '"
&

Me
.txtDescription.Text & _


"' WHERE Cle = "
& intCle

3 réponses

Réponse 1 / 3
cs_MagDix Messages postés 531 Date d'inscription lundi 5 juin 2006 Statut Membre Dernière intervention 6 octobre 2012 1
4 mars 2008 à 02:03
Re...
J'ai trouvé cette façon mais je trouve le code "mal" propre

If InStr(txtChronique.Text,
"'")
Then
txtChronique.Text = Replace(txtChronique.Text,
"'",
"''")

End
IfRequeteSQL "UPDATE Chroniques SET Chroniques '" &
Me.txtChronique.Text &
"',Type = '" &
Me.cboChronique.Text &
"',Volume = '" &
Me.txtVolumeCh.Text & _

"',Numero = '" &
Me.txtNumeroCh.Text &
"',Page = '" &
Me.txtPageCh.Text &
"',Description = '" &
Me.txtDescription.Text & _

"' WHERE Cle = " & intCle
0
Réponse 2 / 3
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
4 mars 2008 à 02:51
salut,

pour reprendre TA syntaxe çà serait plus :

RequeteSQL = "UPDATE Chroniques " & _
             "SET Chroniques = '" & Replace(txtChronique.Text, "'", "''") & "', " & _
                 "Type = '" & cboChronique.Text & "', " & _
                 "Volume = '" & txtVolumeCh.Text & "', " & _
                 "Numero = '" & txtNumeroCh.Text & "', " & _
                 "Page = '" & txtPageCh.Text & "', " & _
                 "Description = '" & txtDescription.Text & "' " & _
            "WHERE Cle = '" & intCle & "';"

cependant (en VB6 en tout cas et je ne vois pas pourquoi çà ne serait pas valable...), pas besoin de mettre des apostrophes partout comme ici....

PS : instr et replace sont des fonctions VB6, plus qu'à éviter en DOTNET.
voir VARIABLE_STRING.Contains(...) et VARIABLE_STRING.Replace(...)
me semble que c'est une option à décocher dans VS pour ne plus avoir la compatibilité/interopérabilité.

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
0
Réponse 3 / 3
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
4 mars 2008 à 08:58
Bonjour

Pour être plus exacte, ce sont dans les importations (<>référence, mais dans la même fenêtre du même onglet) qu'il faut décocher l'importation "Microsoft.Visualbasic.Je_ne_sais_plus).

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site
0
Rejoignez-nous