Fonction pour résoudre le problème des apostrophes avec les requetes sql

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 519 fois - Téléchargée 27 fois

Contenu du snippet

Remplacera les (') des textes saisis par les utilisateurs par un (`)
regardez plutot simple mais utile (en tout cas pour moi)

Source / Exemple :


Public Function Correct(ByVal txt As String) As String
        'verif des apostrophes
        If txt.IndexOf("'") > -1 Then
            Dim str(txt.Length - 1) As String
            Dim i As Int32
            'je vide pour pouvoir remplir aprés

            For I = 0 To txt.Length - 1
                Str(I) = txt.Chars(I)
                If str(i).ToString = "'" Then str(i) = "`" 'je corrige le texte
            Next
            txt = ""
            For i = 0 To str.Length - 1
                txt &= str(i) 'je remets le texte dans sa place
            Next
        End If
        Return txt

    End Function

A voir également

Ajouter un commentaire

Commentaires

cs_hippo92210b
Messages postés
59
Date d'inscription
lundi 12 février 2007
Statut
Membre
Dernière intervention
9 décembre 2009
-
moi il me mais a un moment (can je veu executer mon programme) "La classe Form1 peut être conçue, mais il ne s'agit pas de la première classe du fichier. Visual Studio requiert que les concepteurs utilisent la première classe du fichier. Déplacez le code de la classe afin qu'il s'agisse de la première classe du fichier et essayez de recharger le concepteur."
apaulux
Messages postés
73
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
2 octobre 2009
-
sqlAEP21 = "SELECT Sum([RequêteMontantSubvention1].[Montant1]) AS Total"
sqlAEP21=sqlAEP21 & " FROM Dossier INNER JOIN RequêteMontantSubvention1 ON [Dossier].[NoDossier]=[RequêteMontantSubvention1].[NoDossier]"
sqlAEP21=sqlAEP21 & " WHERE ((([Dossier].[NatureGlobaleTravauxAEP]) like " & Chr(34) & test & Chr(34) & "))"

Set rs = CurrentDb.OpenRecordset(sqlAEP21)
apaulux
Messages postés
73
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
2 octobre 2009
-
PaScript : Editeur de bases de données
http://multibases.site.voila.fr/index.html

sqlAEP21 = "SELECT Sum([RequêteMontantSubvention1].[Montant1]) AS Total"
sqlAEP21=sqlAEP21 & " FROM Dossier INNER JOIN RequêteMontantSubvention1 ON [Dossier].[NoDossier]=[RequêteMontantSubvention1].[NoDossier]"
sqlAEP21=sqlAEP21 & " WHERE ((([Dossier].[NatureGlobaleTravauxAEP]) like " & Chr(34) & "E10" & Chr(34) & "))"

Set rs = CurrentDb.OpenRecordset(sqlAEP21)
mastercatz
Messages postés
193
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
12 août 2010
-
WHERE ([Dossier].[NatureGlobaleTravauxAEP] = '" & test & "')"
si tu n'englobe pas le test dans les () ca ne sert a rien
rob29
Messages postés
6
Date d'inscription
jeudi 3 novembre 2005
Statut
Membre
Dernière intervention
2 août 2006
-
ben j'ai mis sa à la fin de ma requête WHERE ([Dossier].[NatureGlobaleTravauxAEP])= '" & test & "';"
mais il y a un message d'erreur : opérateur absent.
je suis perdu

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.