Problème données SQL

Résolu
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?
Configuration: Windows 2000
Firefox 2.0.0.13

7 réponses

  1. 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 ...
    1. 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. de rien, content de t'avoir aidé

        Bon courage pour la suite.

        ;o)

        polux