Nettoyage de chaine pour requete sql

Commenter

Contenu du snippet

Après lecture du post de mestari, j'ai décidé de mettre cette fonction, toute bête mais que j'utilise dans toutes mes requêtes ("select * from XXXX where YYYY = escStr(text1.text)", par exemple)

Je ne sais pas si c'est déja en quarante exemplaires sur le site, mais ça peut toujours servir ...

Source / Exemple : 


Public Function escStr(ByVal chaine As String) As String
    Dim tmp As String ' La déclaration explicite fait gagner du temps par rapport à la déclaration implicite qui crée un Variant
    tmp = Trim$(chaine) ' Suppression des espaces en début et fin de chaîne, voir le commentaire de Renfield
    tmp = Replace$(tmp, "  ", " ")  ' Suppression des doubles espaces (erreur de saisie fréquente chez l'utilisateur qui ne retrouve plus ses données par la suite)
    escStr = Replace$(tmp, "'", "''") ' Dédoublage des '
End Function

Conclusion :


Merci à Renfield pour ton explication, j'ai mis la source à jour

MAJ du 26/02/2004 -> Spécifier que le paramètre est de type String fait aussi gagner du temps

A voir également

S'inscrire maintenant

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.