Problème avec les apostrophes [Résolu]

Signaler
Messages postés
13
Date d'inscription
mardi 18 juillet 2006
Statut
Membre
Dernière intervention
23 février 2007
-
Messages postés
13
Date d'inscription
mardi 18 juillet 2006
Statut
Membre
Dernière intervention
23 février 2007
-
Bonjour<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>






 





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

8 réponses

Messages postés
6814
Date d'inscription
dimanche 15 décembre 2002
Statut
Modérateur
Dernière intervention
13 octobre 2010
28
using
(

SqlCommand
command =

new



SqlCommand
(

"Select toto from matable where choseID = @choseID"
, conn))
{
   command.Parameters.Add(

new



SqlParameter
(

"@choseID"
,

"l'alala'"
)); 
   conn.Open(); 
   command.ExecuteNonQuery();
   conn.Close();
}





<hr />
Cyril - MVS - MCP
Messages postés
1642
Date d'inscription
samedi 6 novembre 2004
Statut
Modérateur
Dernière intervention
28 avril 2011
2
Salut,

Et au passage le petit lien complet sur les requêtes paramétrées :
http://webman.developpez.com/articles/aspnet/sqlparameter/vbnet/

Bonne journée,
A++

<hr width="100%" size="2" />Nurgle (Antoine) - MSP
Messages postés
6814
Date d'inscription
dimanche 15 décembre 2002
Statut
Modérateur
Dernière intervention
13 octobre 2010
28
Bonjour,

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

<hr />Cyril - MVS - MCP
Messages postés
13
Date d'inscription
mardi 18 juillet 2006
Statut
Membre
Dernière intervention
23 février 2007

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.
Messages postés
13
Date d'inscription
mardi 18 juillet 2006
Statut
Membre
Dernière intervention
23 février 2007

Salut
Merci de votre aide, je vais me mettre au travail dans ce sens.
bonne journée
Messages postés
13
Date d'inscription
mardi 18 juillet 2006
Statut
Membre
Dernière intervention
23 février 2007

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


merci
Messages postés
13
Date d'inscription
mardi 18 juillet 2006
Statut
Membre
Dernière intervention
23 février 2007

Bonjour

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

merci
Messages postés
13
Date d'inscription
mardi 18 juillet 2006
Statut
Membre
Dernière intervention
23 février 2007

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
As
StringstrConnexion =

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

New OleDbConnection(strConnexion)MaConnexion.Open()

'commande

Dim cmd
As
New OleDbCommand

With cmd.Connection = MaConnexion

.CommandType = CommandType.StoredProcedure

.CommandText =

"procstock"

End
With

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
As
StringLongPrenom = 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 connexionMaConnexion.Close()

Catch

End
Try

End
If