Encore un truc à la mords moi le noeud!!!!

Encore un truc à la mords moi le noeud!!!! - VB/VBA/VBS - Programmation

Marsh Posté le 24-09-2002 à 19:07:44    

Salut à tous!
 
Bon voici ma ligne de code :
 
Set maTableActeurs = maBase.OpenRecordset("Select Distinct NomActeur, PrenomActeur from T_Acteurs Where Titre like '" & TitreFilm & "' order by NomActeur" )
 
Le gag c'est quand Titre = "L'insolent". En effet, entre le "L" et le "i" il y a une put ain de quote!!!!!! et ça fait buger ma requête.  
Comment contourner ce problème?
 
Merci d'avance

Reply

Marsh Posté le 24-09-2002 à 19:07:44   

Reply

Marsh Posté le 24-09-2002 à 19:14:10    

met des double '' pour voir

Reply

Marsh Posté le 26-09-2002 à 14:10:11    

Où je le mets? A l'enregistrement de mon film? ce cas ne m'arrange pas car le type qui va saisir un film avec une quote ne pensera jamais mettre " à la place. Je cherche à écrire une requête avec la possibilité de saisir ce que je veux.

Reply

Marsh Posté le 26-09-2002 à 16:36:04    

ba tu vire l'apostraphe du titre et tu la premplace par un _ par exemple, puis a l'affichage tu rechange tout les _ en "

Reply

Marsh Posté le 26-09-2002 à 18:16:25    

non essaye kom ca + tot, g pas vérifié
 
Set maTableActeurs = maBase.OpenRecordset("Select Distinct NomActeur, PrenomActeur from T_Acteurs Where Titre like '" & replace(TitreFilm,"'","''" ) & "' order by NomActeur" )  
 
 
 

Reply

Marsh Posté le 27-09-2002 à 21:32:29    

de memoire sur la valeur du  code
 
Set maTableActeurs = maBase.OpenRecordset("Select Distinct NomActeur, PrenomActeur from T_Acteurs Where Titre like " & chr(27) & TitreFilm  & chr(27) & " order by NomActeur" )  
 
 

Reply

Marsh Posté le 27-09-2002 à 22:11:51    

tu fais une fonction DQuote qui double les guillemets dès qu'elle en rencontre et tu passes TitreFilm en argument.

Reply

Marsh Posté le 27-09-2002 à 23:27:02    

Citation :

tu fais une fonction DQuote qui double les guillemets dès qu'elle en rencontre et tu passes TitreFilm en argument.


 
couitchy-> c ce ki correspond à la fct replace ke g mis + o
replace(TitreFilm,"'","''" ) va te mettre 2 ' en début et fin

Reply

Marsh Posté le 30-09-2002 à 21:56:19    

SpIke a écrit a écrit :

Citation :

tu fais une fonction DQuote qui double les guillemets dès qu'elle en rencontre et tu passes TitreFilm en argument.


 
couitchy-> c ce ki correspond à la fct replace ke g mis + o
replace(TitreFilm,"'","''" ) va te mettre 2 ' en début et fin
 




 
en effet !! d'ailleurs je te remercie parce que je ne connaissais pas cette fonction :)

Reply

Marsh Posté le 03-10-2002 à 13:34:41    

Merc SpIke cette fonction simplifie énormément de chose. Après 4 mois de stage je vais pouvoir simplifier tout mon code.
@+ et merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed