Discussion :

[leeloo95]

Dans mon application en VB.NET je viens de découvrir un bug lorsque l'utilisateur dans un formulaire rempli le champs commentaire avec une ' (cote) = C'est comme ça et puis c'est tout...

le problème c'est que dans ma requete il interprete mal la ' (cote).

Voici ma requète qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
opendb()
                Dim req2 As OleDb.OleDbCommand = connexion.CreateCommand()
                req2.CommandText = "Update DEMANDE  set com_transport_pec = '" & txt_commentaire.Text & "' " & _
                "where num_demande = " & Label2.Text & ""
                Dim monadaptater As New OleDb.OleDbDataAdapter(req2)
                monadaptater.UpdateCommand = req2
                monadaptater.UpdateCommand.ExecuteNonQuery()
                closedb()

Est ce que vous avez une solution pour contourner ce pb?
Merci par avance de votre aide

[Nathanael Marchand]

Les requêtes parametrées

[yoyo44]

Les requêtes parametrées

+1

[leeloo95]

Je vois ce qu'est une requête paramétrées dans ACCESS, mais je vois pas en quoi cela peut m'aider ... peux tu développer un peu plus s'il te plait

[yoyo44]

La recherche est bienvenue :
http://dotnet.developpez.com/faq/vbn...onet_execparam

[mactwist69]

Il est de bon ton d'utilisé des requêtes paramétrés, (recherche facile sur cours ou tuto),

Sinon tu peux doubler tes quotes. Par exemple au lieur de faire:

Code :

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

"where num_demande = " & Label2.Text & ""

tu fais:

Code :

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

 "where num_demande = " & DoubleQuote(Label2.Text) & ""

Où doublequote est:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function DoubleQuotes(ByVal Chaine As String) As String
        Dim P As Integer
        DoubleQuotes = Chaine
        P = InStr(DoubleQuotes, "'")
        While P <> 0
            DoubleQuotes = Mid(DoubleQuotes, 1, P) & "'" & Mid(DoubleQuotes, P + 1)
            P = P + 2
            P = InStr(P, DoubleQuotes, "'")
        End While
    End Function

[Nathanael Marchand]

Oui mais c'est le même problème si l'utilisateur mets des doublequotes dans la réponse

[leeloo95]

Merci yoyo, j'étais passé à coté

[yoyo44]

Merci yoyo, j'étais passé à coté

T'es pas le premier il m'est arrivé aussi de passer à côté