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

Commenter

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

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.

Du même auteur (cs_mestari)