Problème avec les apostrophes

Bonjour

 

Voici le script que j'utilise pour mettre à jour ma base, du coup je dois supprimer toutes les apostrophes qui sont contenus dans les textes que je sauvegarde.

 Y aurait il une solution pour éviter cela ?

Merci de votre aide

 

Public Sub SauvegardePV()

        Dim TexteEdite As String

        TexteEdite = Replace(Me.TBEdition.Text, Chr(39), Chr(32))

       

        Try

            Dim ObjetConnexion As OleDbConnection

            Dim bdCmd As OleDbCommand

            Dim strConn As String

            Dim strQuery As String

           

            strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data\cdc.mdb")

            ObjetConnexion = New OleDbConnection()

            ObjetConnexion.ConnectionString = strConn

            ObjetConnexion.Open()

            strQuery = "INSERT INTO [CompteRendu] ([TDS_ID], [SOURCE_ID], [PV_TEXTE]) VALUES ('" & Trim(Me.DDTDSJour.Text) & "', '" & Me.LabPVSelectionne.Text & " ', '" & TexteEdite & "')"

           

 

            bdCmd = New OleDbCommand(strQuery, ObjetConnexion)

            bdCmd.ExecuteNonQuery()

            ObjetConnexion.Close()

           

        Catch

           

        End Try

    End Sub

Bonjour,

utilises les procèdures stockées ou les requetes paramètrès, tu n'auras plus de problème du genre.

---

Cyril - MVS - MCP

Bonjour
merci de ta réponse

j'avoue que c'est une méthode que je n'ai jamais utilisé. Si tu avais un petit exemple cela m'aiderai beaucoup.

Salut
Merci de votre aide, je vais me mettre au travail dans ce sens.
bonne journée

Bonjour
Pouvez vous me dire si la procédure avec USING fonctionne aussi avec une base access ??

merci

Bonjour

Merci à vous tous, j'ai enfin compris comment ca marche

merci

Bonjour
Me revoilà, j'était déja content d'avoir compris, mais j'ai encore un petit problème.Le code que vais vous montrer fonctionne en local sur mon ordi mais pas en ligne.
Est ce que quelqu'un pourrait m'aider a savoir pourquoi ?
merci

'ouverture connexion

Dim MaConnexion As OleDbConnection

Dim strConnexion AsString

strConnexion =

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data\cdc.mdb")

MaConnexion =

New OleDbConnection(strConnexion)

MaConnexion.Open()

'commande

Dim cmd AsNew OleDbCommand

With cmd

.Connection = MaConnexion

.CommandType = CommandType.StoredProcedure

.CommandText =

"procstock"

EndWith

Dim ParmA AsNew OleDbParameter()

ParmA.ParameterName =

"REPONSE_TEXTE"

ParmA.OleDbType = OleDbType.VarChar

ParmA.Value =

Me.TBReponse.Text

Dim ParmB AsNew OleDbParameter()

ParmB.ParameterName =

"REPONSE_DATE"

ParmB.OleDbType = OleDbType.Date

ParmB.Value = Today

Dim ParmC AsNew OleDbParameter()

ParmC.ParameterName =

"PV_ID"

ParmC.OleDbType = OleDbType.Double

ParmC.Value = Request.QueryString(

"IDPV")

Dim ParmD AsNew OleDbParameter()

ParmD.ParameterName =

"REPONSE_NOM"

ParmD.OleDbType = OleDbType.VarChar

ParmD.Value = UCase(

Me.TBNom.Text)

Dim LongPrenom, FormatPrenom AsString

LongPrenom = Len(

Me.TBPrenom.Text)

FormatPrenom = UCase(Mid(

Me.TBPrenom.Text, 1, 1)) & LCase(Mid(Me.TBPrenom.Text, 2, LongPrenom - 1))

Dim ParmE AsNew OleDbParameter()

ParmE.ParameterName =

"REPONSE_PRENOM"

ParmE.OleDbType = OleDbType.VarChar

ParmE.Value = FormatPrenom

Dim ParmF AsNew OleDbParameter()

ParmF.ParameterName =

"REPONSE_EMAIL"

ParmF.OleDbType = OleDbType.VarChar

ParmF.Value =

Me.TBEmail.Text

cmd.Parameters.Add(ParmA)

cmd.Parameters.Add(ParmB)

cmd.Parameters.Add(ParmC)

cmd.Parameters.Add(ParmD)

cmd.Parameters.Add(ParmE)

cmd.Parameters.Add(ParmF)

cmd.ExecuteNonQuery()

'fermeture de la connexion

MaConnexion.Close()

Catch

EndTry

EndIf