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

        Bon courage pour la suite.

        ;o)

        polux