Discussion :

[js8bleu]

Bonjour,

comme l'indique la requête suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim rstarif As New ADODB.Recordset
rstarif.Open "select * from tableservice where nomservice = '" & cmbservice & "' ", cncaisse, adOpenDynamic, adLockOptimistic

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.

[pc75]

Bonjour,

Il faut doubler les apostrophes.

[SfJ5Rpw8]

Bonjour,

Il faut doubler les apostrophes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

rstarif.Open "select * from tableservice where nomservice = '" & replace(cmbservice,"'","''") & "' ", cncaisse, adOpenDynamic, adLockOptimistic

[js8bleu]

Bonjour ucfoutu et bbil pour votre aide. Vos solutions à vous deux marche correctement. Merci une fois de plus et excellente journée.

Cordialement.

[ucfoutu]

Bonjour,

regarde ce que fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
cmbservice = "l'énorme éléphant"
MsgBox "select * from tableservice where nomservice = """ & cmbservice & """"