Discussion :

[Pier42]

Bonjour,

Tout d'abord, quelqu'un sait se qui c'est passé avec ASP-PHP.net ??? Impossible d'ouvrir leur site...

Je me heurte à un petit problème d'apostrophes...

Voici mon code :
------------------------------------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<%
Set rsDepartement = Server.CreateObject("ADODB.Recordset")
rsDepartement.ActiveConnection = MM_occasion_STRING
rsDepartement.Source= "SELECT * FROM Departements where Numero = '"& (Left(Session("svCode"), 2)) &"'"
rsDepartement.CursorType = 0
rsDepartement.CursorLocation = 3
rsDepartement.LockType = 3
rsDepartement.Open()
 
Dim Depregion
Set rsRegion = Server.CreateObject("ADODB.Recordset")
rsRegion.ActiveConnection = MM_occasion_STRING
rsRegion.Source= "SELECT * FROM Departements where Region = '"& rsDepartement("Region") &"'"
rsRegion.CursorType = 0
rsRegion.CursorLocation = 3
rsRegion.LockType = 3
rsRegion.Open()
rsRegion_Nbrow = 0
DepRegion =""
 
While (not rsRegion.EOF) 
rsRegion_Nbrow = rsRegion_Nbrow + 1
If rsRegion_Nbrow = 1 then
DepRegion = (DepRegion + "' where Right(dossier,2) = "& rsRegion("Numero") & "'")
else
DepRegion = (DepRegion + "' or Right(dossier,2) = "& rsRegion("Numero") & "'")
end if
rsRegion.MoveNext()
Wend 
DepRegion = replace(DepRegion,"'","")
%>

-------------------------------------------------------------
La réponse à ces requêtes est en fait utilisé pour créer une autre requête...

Voici la requête qui doit être créée... :

Code :

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

rsCat1.Source=  "SELECT * FROM Occasion "& DepRegion &"' order by clef "

Si je ne met pas :

Code :

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

DepRegion = replace(DepRegion,"'","")

à chaque boucle while, le résultat me met un apostrophe avant et après chaque tour de boucle... donc avec replace, je les suprime et j'obtiens le résultat suivant :

Code :

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

where Right(dossier,2) = 1 or Right(dossier,2) = 26 or Right(dossier,2) = 38 or Right(dossier,2) = 42 or Right(dossier,2) = 69 or Right(dossier,2) = 7 or Right(dossier,2) = 73 or Right(dossier,2) = 74

Ce résultat une fois mis dans ma requête final ne fonctionne pas puisque chacune de mes valeurs doivent être encadrées par un apostrophe pour que cela marche... Je tourne en rond.

Code :

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

rsCat1.Source=  "SELECT * FROM Occasion where Right(dossier,2) = 1 or Right(dossier,2) = 26 or Right(dossier,2) = 38 or Right(dossier,2) = 42 or Right(dossier,2) = 69 or Right(dossier,2) = 7 or Right(dossier,2) = 73 or Right(dossier,2) = 74 order by clef "

Auriez-vous une idée à me proposer ? Il faut que j'arrive à encadrer les chiffres par des apostrophes...

Merci d'avance.

[pc75]

Bonjour,

Et comme ça ?

Code :

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

1
2
3
4
5
6
7
8
9
10
 
While (not rsRegion.EOF)
rsRegion_Nbrow = rsRegion_Nbrow + 1
If rsRegion_Nbrow = 1 then
DepRegion = (DepRegion + " where Right(dossier,2) = '" & rsRegion("Numero") & "'")
else
DepRegion = (DepRegion + " or Right(dossier,2) = '" & rsRegion("Numero") & "'")
end if
rsRegion.MoveNext()
Wend