Problème données SQL

Résolu/Fermé
mrh Messages postés 51 Date d'inscription lundi 21 janvier 2008 Statut Membre Dernière intervention 3 mars 2009 - 17 avril 2008 à 14:16
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 18 avril 2008 à 09:10
Bonjour,


J'ai un programme VB qui charge des données depuis une base SQL, une fois les modifications apporter je clique sur valider pour effectuer les modification dans la base, le problème est que avec ma requête de mise a jour actuel dés que j'ai un apostrophe dans ma requête le programme plante, voici ma requête:

cmd.CommandText = "UPDATE Sociétés SET Nom ='" & Nouveau_prospect01.Nom.Text & "', Alias='" & Nouveau_prospect01.Allias.Text & "', Service='" & Nouveau_prospect01.Service.Text & "', Adr1='" & Nouveau_prospect01.Adr1.Text.ToString & "', Adr2='" & Nouveau_prospect01.Adr2.Text & "', BP='" & Nouveau_prospect01.BP.Text & "', CP='" & Nouveau_prospect01.CP.Text & "', Ville='" & Nouveau_prospect01.Ville.Text & "' WHERE clé = " & nligne

si par exemple Nouveau_prospect01.Nom.Text = L'apostrophe
Le programme va planter a cause de '
j'ai trouvé un contournement en atendant qui consiste a supprimer l'apostrophe , mais ce n'est pas une bonne solution pour toute la base de donnée.

Ma question est comment mettre une apostrophe dans un champ d'une base de données SQL?

7 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 avril 2008 à 17:14
il faut faire:
Public Function changeApost_Under(ByVal str As String) As String
   changeApost_Under = replace(str, "'","_")
End Function
Public Function changeUnder_Apost(ByVal str As String) As String
   changeUnder_Apost = replace(str, "_","'")
End Function

La première remplace l'apostrophe par un underscore, la deuxième fait l'inverse.

;o)

polux
1
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 avril 2008 à 16:30
Bonjour,

Je n'ai jamais trouvé de solution à ce problème. Je l'ai donc contourné. Je fais une fonction qui remplace les apostrophes par des underscores avant l'enregistrement dans la base et je fais l'inverse pour l'affichage ...
0
mrh Messages postés 51 Date d'inscription lundi 21 janvier 2008 Statut Membre Dernière intervention 3 mars 2009
17 avril 2008 à 16:33
Pourrais-tu me donner ta fonction?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 avril 2008 à 16:36
en quel langage ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
mrh Messages postés 51 Date d'inscription lundi 21 janvier 2008 Statut Membre Dernière intervention 3 mars 2009
17 avril 2008 à 17:01
En VB 2005
0
mrh Messages postés 51 Date d'inscription lundi 21 janvier 2008 Statut Membre Dernière intervention 3 mars 2009
18 avril 2008 à 09:08
Merci
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 avril 2008 à 09:10
de rien, content de t'avoir aidé

Bon courage pour la suite.

;o)

polux
0