Discussion :

[Mario Rousson]

Bonjour

Je désire faire un update d'une string contenent un ' dans une table access et j'ai toujors un message d'erreur. J'ai essayé une string sans ' et ça fonctionne bien.

j'ai créé une classe de connection à la BD je vous soumet mon code et je vous invite à me donner vos suggestions merci

Code :

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

1
2
3
Dim Str2 As String = "A'AAA"
                Dim SQL As String = "UPDATE TblNomCompagnie SET Description='" & Str2 & "' WHERE Id_Compagnie=" & InfoCompBd.Id & ";"
                Ad.ExecuterCommande(SQL)

et ma classe se lit comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function ExecuterCommande(ByVal Sql As String) As Integer
        Try
            Me.OuvrirConnection()
            Dim cmd As New OleDbCommand()
            With cmd
                .Connection = Me._cn
                .CommandType = CommandType.Text
                .CommandText = Sql
                Return cmd.ExecuteNonQuery
            End With
 
        Catch ex As Exception
            Console.WriteLine(ex.Message)
            Throw New ApplicationException("")
        Finally
            Me.FermerConnection()
        End Try
    End Function

merci encore

[Sankasssss]

Bonsoir,

cette question revient fréquemment sur le forum.

Il ne faut en aucun cas utiliser la concaténation sur des requêtes.
Dans les commandes il y a des paramètres, pour faire se qu'on appel des requêtes paramétrées.

http://faqvbnet.developpez.com/?page...onet_execparam

[Mario Rousson]

Merci beaucoup Sankasssss ça fonctionne 100/100