Discussion :

[zako]

Bonjour,

Voila, je fais une fenêtre d'identification. Le login et le mot de passe saisis seront comparés a des valeurs de ma base de données. Mon problème est, que si l'utilisateur saisi des cotes pour le login ça plante. Je voudrais donc savoir s'il existe une fonction qui permettrai d'enlever ces côtes ?

Merci d'avance

[riesseg]

pour remplacer des quotes, tu peux faire:

replace(machaine, "(signe-quote-mon-clavier-plante)", "(autre caractere)")

tu peux aussi empecher la saisie de caractere par lutilisateur.

un truc genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub txtbox_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> vbKeyBack) Then KeyAscii = 0
End Sub

ca, ca sert a authoriser que les touches numeriques.

[jmfmarques]

L'essentiel manque ici !
Il saisit dans quel type de contrôle ?
Si c'est dans une textbox, tu peux carrément (événement Keypress) faire en sorte que la saisie d'un caractère "ne passe pas" dès la frappe !
Si c'est dans une inputbox : contrôle à postériori (moins élégant, donc)

Erreur à ne surtout pas commettre : remplacer le caractère frappé ou le supprimer (l'utilisateur ne s'y retrouvera plus)


Edit : pour ton onformation : le code ascii de ' est 39 et celui de " est 34

[zako]

C'est une TextBox. Merci riesseg , je n'avais pas pensé au keypress.
Je débute en VB6

Merci à vous deux.

[Catbull]

La gestion des quotes dans les bases de données se fait par le doublements de ces dernières :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Expression = Replace(ExpressionInitiale, "'", "''")

Et tu ajoutes Expression dans la base de données. Par la suite, tu peux très bien comparer des données comportant des quotes.

[riesseg]

La gestion des quotes dans les bases de données se fait par le doublements de ces dernières :

kwaaaaaaa
la je suis vraiment pas sur... c'est un coup a planter grave son SQL...

c'est "\" qui permet de chinter les quotes dans les bases de donneees...

[malhivertman1]

Je confirme les propos de Catbull, je m'en sert avec Oracle, je suis d'ailleurs obligé si je veux qu'il comprenne...sinon le simple quote le fait planter..

Replace(Text1.Text, "'", "''")