Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 07:59:49

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par Renfield

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

+ de logiciels à télécharger

1 465 017 membres
66 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 049 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DOUBLAGE DES SIMPLE QUOTE ' POUR LES CHAMPS SQL

Information sur la source

Catégorie :Base de Donnees

Niveau : Débutant Date de création : 12/04/2004 Vu : 6 940

Auteur : michelsto

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

Très pratique pour l'utilisation en SQL des champs mémo. Qui doivent respecter une syntaxe particulière avec les '

Source

Public Function DoubleQuote(ByVal pValue As String) As String
' On double le simple "'" dans un string pour ne pas avoir de problème
' dans les Qry
Dim i As Integer
Dim s As String
For i = 1 To pValue.Length
If Mid(pValue, i, 1) = "'" Then
s += "''"
Else
s += Mid(pValue, i, 1)
End If
Next
Return s
End Function

    Public Function DoubleQuote(ByVal pValue As String) As String
        ' On double le simple "'" dans un string pour ne pas avoir de problème
        ' dans les Qry
        Dim i As Integer
        Dim s As String

        For i = 1 To pValue.Length
            If Mid(pValue, i, 1) = "'" Then
                s += "''"
            Else
                s += Mid(pValue, i, 1)
            End If
        Next
        Return s
    End Function

Sources du même auteur

UNE CLASSE POUR TRAVAILLER AVEC OLDDB (ACCESS) ET OLEDB (AS...

PERMET DE REFORMATER UN CHAMP TEXTE SUR UNE LARGEUR DE PAGE ...

CONVERTION DE HH:MM EN SECONDE ET INVERSE

CONVERTION DE DATE J/M/AAAA EN AAAAMMJJ ET HEURE H:M EN HHMM

ECRIRE UNE LIGNE SUR UN FICHIER TEXT.

Toutes les sources de michelsto

Sources de la même categorie

GESTION DE VIDEOTHÈQUE par johndave

GESTIONNAIRE DE FICHIERS VIDEOS par jcslider

RECUPERER ET AFFICHER LES MESSAGES D'INFORMATION ET D'ERREUR... par braidas

GESTION DE BIBLIOTHÉQUE par smaili

GESTION DE VENTE AUTO par promarc

Toutes les sources de la catégorie Base de Donnees

Commentaires et avis

Commentaire de Nix le 12/04/2004 12:13:46 administrateur CS

Salut,

En plus simple et plus rapide :

Public Function DoubleQuote(ByVal pValue As String) As String
return pValue.Replace("'","''")
End Function

Il ne faut pas oublier que le framework est rempli de fonction comme celle-ci et surtout très optimisées.
C'est pas une critique, juste un façon plus simple de le faire ;)

Commentaire de michelsto le 12/04/2004 17:47:14

Exact Nix. Je n'ai pas pris cela comme une critique, et j'ai même adapté chez moi. Merci pour l'info.

Commentaire de jmlucienvb le 13/04/2004 11:45:57

Si on est en VBA la méthode de michelsto est intéressante car Replace n'existe pas en VBA (au moins jusqu'à 2000)

Commentaire de Nix le 13/04/2004 11:55:26 administrateur CS

oui sauf que sa source est une source VB.NET pas vb attention ;)

Commentaire de akami le 13/04/2004 12:53:09

C'est vrai la fonction REPLACE est la meilleur.
je felicite encore michelsto pour son humilité à l'egard de Nix.

Mais Imaginez maintenant que vous n'ayez pas penser avant et que vous avez déjà ecrit environ 2000 requêtes dans votre application et que parcourir chaque requête pour placer la fonction REPLACE devient fastidieux. Alors il faut formater le texte de la requête avant de la passer à exécution.

Comment donc ecrire la fonction de formatage?

Commentaire de Nix le 13/04/2004 13:01:28 administrateur CS

akami, la fonction tu l'as justement
exemple :
"SELECT * FROM MaTable WHERE MonChamp = '" & DoubleQuote(mavaleuradoublequoter) & "'"

Ca parait lourd mais c'est le seul moyen de ne pas se faire script injecter quand on fait une requete sql.

Le mieux pour eviter le script injection reste les procédures stockées avec SQL server, pas besoin de se soucier des quotes.

Tu peux essayer de faire un "analyseur" de requete sql pour parser et double quoter l'ensemble sans avoir à juste double quoter la valeur mais alors bon courrage parce que la moindre erreur dans ta fonction peut être une catastrophe. La meilleur solution reste celle-ci, avoir une fonction qui doublequote une valeur.

Commentaire de jmlucienvb le 13/04/2004 14:10:44

Désolé mais je vois pas ce qui_ est spécifique à .Net...dans la fonction de michelsto...
Quand à celle de Nix, effectivement return...c'est du .Net mais en vb6 on mettrait :
Public Function DoubleQuote(ByVal pValue As String) As String
DoubleQuote=Replace(pValue,"'","''")
End Function
Ca doit marcher comme ça.
JM

Commentaire de Nix le 13/04/2004 14:14:18 administrateur CS

La source est indiquée comme .NET c'est pour ça que j'ai apporté mon commentaire en fonction de VB.NET

Commentaire de jmlucienvb le 13/04/2004 14:40:58

Ok ok...
C'est vrai que je ne suis pas encore décidé à plonger dans le .Net...
Amitiés à Nix
jmluc

Commentaire de michelsto le 13/04/2004 19:40:46

Mais Nix à tout à fait raison. J'ai fait cette fonction quand j'ai débuté, il n'y à d'ailleur pas très ongtemps. Et je n'ai pas réfléchi par la suite. Stupide de ma part.