Problème d'apostrophe dans recordset!Résolu

Question

Bonjour,

comme l'indique la requête suivante :

        
Dim rstarif As New ADODB.Recordset
rstarif.Open "select * from tableservice where nomservice = '" & cmbservice & "' ", cncaisse, adOpenDynamic, adLockOptimistic ', adOpenStatic, adLockPessimistic


je récupère tous les services de la table tableservice. Puis je les chargent dans une combobox. Jusque là ça va. Mon problème est que lorsqu'il y a une apostrophe dans un service il m'affiche l'erreur d'exécution -2147217900 comme quoi il y a un opérateur absent.

NB : Je n'ai ce problème qu'avec les services qui contienne des apostrophes.

Quelqu'un pourrait-il m'aider s'il vous plaît?

Merci d'avance.

Cordialement.

PCPT · Accepted Answer

salut,

"select * from tableservice where nomservice = '" & replace(cmbservice.text, "'", "''") & "';"

++
[hr]

js8bleu · Answer

Bonjour PCPT et Merci pour ton aide. Mon problème est résolu grâce à toi. Merci encore une fois et excellente journée.

Cordialement.

cs_ghuysmans99 · Answer

Je te conseille d'en faire une fonction (que tu nommes par exemple Pure). Tu n'auras plus qu'à l'appeler à chaque fois qu'une donnée susceptible de contenir des guillemets est utilisée dans un query. Filtre aussi tous les champs utilisateurs, ça t'évitera de gros problèmes de sécurité.
---
VB.NET is good ... VB6 is better

js8bleu · Answer

Bonjour et Merci ghuysmans99 pour tes conseils. Prends bien soin de toi et excellente soirée.

Cordialement.

Problème d'apostrophe dans recordset!

4 réponses

Votre réponse

Discussions similaires