Problème avec Update Access
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:
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:
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
