Syntaxe incorrecte vers 'where'.

**lepeintre** · 18/05/2005, 14h07

je sais pas ou se trove l'erreu aidez moi svp

<%

poste = "'" & Replace(Request("lstcrt"), "'", "''") & "'"
sql="select * from INSCRIPTION where "
select case poste
case "Derniers 30 jours"
sql = sql & " DateInscription <= #"& date()-30 &"# "
case "annes deniere"
sql = sql & " DateInscription <=# "& date()-365 &"# "
end select
Set Connection = CreateObject("ADODB.Connection")
Connection.Open "Driver={SQL Server};" & _
"Server=CDM815SRV02;" & _
"Database=stage;" & _
"Uid=stage;" & _
"Pwd=stage"
Set RS = CreateObject("ADODB.Recordset")
RS.Open sql, Connection, 3,3

%>

**Mimo** · 18/05/2005, 14h31

Bonjour,

Tu as fais deux erreur de syntaxe.
Pour poste et pour les case.
Pour poste : c'est pas la peine de rajouer le " ' ", car c'est déjà une chaine, donc tu peux suprimer les replaces.

Donc la correction est :

Code :

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

poste = Request("lstcrt")

Pour Case:

Il faut rajouer un ":" à la fin d'un case

Correction :

Code :

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

case "Derniers 30 jours" :

Après modification de ton 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
<% 
 
poste = (Request("lstcrt") 
sql="select * from INSCRIPTION where " 
select case poste 
case "Derniers 30 jours" :
sql = sql & " DateInscription <= #"& date()-30 &"# " 
case "annes deniere" :
sql = sql & " DateInscription <=# "& date()-365 &"# " 
end select 
Set Connection = CreateObject("ADODB.Connection") 
Connection.Open "Driver={SQL Server};" & _ 
"Server=CDM815SRV02;" & _ 
"Database=stage;" & _ 
"Uid=stage;" & _ 
"Pwd=stage" 
Set RS = CreateObject("ADODB.Recordset") 
RS.Open sql, Connection, 3,3 
 
 
 
 
%>

Si tu as un autre problème sur cette page fait moi signe.

**lepeintre** · 18/05/2005, 17h55

Envoyé par Mimo

Bonjour,

Tu as fais deux erreur de syntaxe.
Pour poste et pour les case.
Pour poste : c'est pas la peine de rajouer le " ' ", car c'est déjà une chaine, donc tu peux suprimer les replaces.

Donc la correction est :

Code :

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

poste = Request("lstcrt")

Pour Case:

Il faut rajouer un ":" à la fin d'un case

Correction :

Code :

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

case "Derniers 30 jours" :

Après modification de ton 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
<% 
 
poste = (Request("lstcrt") 
sql="select * from INSCRIPTION where " 
select case poste 
case "Derniers 30 jours" :
sql = sql & " DateInscription <= #"& date()-30 &"# " 
case "annes deniere" :
sql = sql & " DateInscription <=# "& date()-365 &"# " 
end select 
Set Connection = CreateObject("ADODB.Connection") 
Connection.Open "Driver={SQL Server};" & _ 
"Server=CDM815SRV02;" & _ 
"Database=stage;" & _ 
"Uid=stage;" & _ 
"Pwd=stage" 
Set RS = CreateObject("ADODB.Recordset") 
RS.Open sql, Connection, 3,3 
 
 
 
 
%>

Si tu as un autre problème sur cette page fait moi signe.

merci beaucoup mail il y'a encore un erreur syntaxe incorrecte vers #

**VoLc0m** · 18/05/2005, 18h05

deja juste apres ton poste= tu ouvres 2 parentheses et t'en ferme k'une,
ensuite il te manke des quotes pour evaluer ta chaine date, mais chui pas sur a 100% pour ca

**lepeintre** · 18/05/2005, 18h12

Envoyé par lepeintre

Envoyé par Mimo

Bonjour,

Tu as fais deux erreur de syntaxe.
Pour poste et pour les case.
Pour poste : c'est pas la peine de rajouer le " ' ", car c'est déjà une chaine, donc tu peux suprimer les replaces.

Donc la correction est :

Code :

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

poste = Request("lstcrt")

Pour Case:

Il faut rajouer un ":" à la fin d'un case

Correction :

Code :

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

case "Derniers 30 jours" :

Après modification de ton 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
<% 
 
poste = (Request("lstcrt") 
sql="select * from INSCRIPTION where " 
select case poste 
case "Derniers 30 jours" :
sql = sql & " DateInscription <= #"& date()-30 &"# " 
case "annes deniere" :
sql = sql & " DateInscription <=# "& date()-365 &"# " 
end select 
Set Connection = CreateObject("ADODB.Connection") 
Connection.Open "Driver={SQL Server};" & _ 
"Server=CDM815SRV02;" & _ 
"Database=stage;" & _ 
"Uid=stage;" & _ 
"Pwd=stage" 
Set RS = CreateObject("ADODB.Recordset") 
RS.Open sql, Connection, 3,3 
 
 
 
 
%>

Si tu as un autre problème sur cette page fait moi signe.

merci beaucoup mail il y'a encore un erreur syntaxe incorrecte vers #

we j l'ai dejea remarque mais l'erreur et tjour la je crois que c le syntaxe de select case je sais pas

**lepeintre** · 18/05/2005, 18h17

voila j'ai ce code mais ya aussi un probleme ca me donne cette erreur

Syntaxe incorrecte vers '#'.

<%
poste = Replace(Request("lstcrt"), "'", "''")
dat30=day(date-30)&"/"&month(date-30)&"/"&year(date-30)
dat365=day(date)-1&"/"&month(date)&"/"&year(date)
response.write poste&"<hr>"
sql="select * from INSCRIPTION"
select case poste
case "Derniers 30 jours"
response.write "Passé dans Derniers 30 jours<hr>"
sql = sql & " where DateInscription <=#"&dat30&"#"
case " derniere annee"
response.write "Passé dans Derniere annee<hr>"
sql = sql & " where DateInscription <=#"&dat365&"#"
end select
Set Connection = CreateObject("ADODB.Connection")
Connection.Open "Driver={SQL Server};" & _
"Server=CDM815SRV02;" & _
"Database=stage;" & _
"Uid=stage;" & _
"Pwd=stage"
Set RS = CreateObject("ADODB.Recordset")
response.write sql&"<hr>"
RS.Open sql, Connection, 3,3
if RS.RecordCount = 0 then
Response.Redirect "erreur1.html"
end if
%>

**Mimo** · 18/05/2005, 19h11

Juste une truc.

Pour JetSql il faut mettre les # pour les dates.

Mais pour SQLServeur il faut mettre ceci

Code :

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

SELECT     * FROM         Employees WHERE     (BirthDate < '08/12/2004')

**lepeintre** · 18/05/2005, 19h56

merci mais c pas ca le probleme
le probleme syntaxe incorrect vers #

**Mimo** · 18/05/2005, 20h16

Tu es en train de dire que le # te pose problème.

Et moi je t'ai dis que le # ne fonctionne pas sous SQLServer

Lance un essai via L'analyseur de requete et tu vas voir si c'est correct ou pas.

**lepeintre** · 18/05/2005, 20h26

merci pour ton interet
propose moi une solution je suis maintenant bloque
je travaille en asp et j'utilise comme base sql server
mon champ dateinscription et de type datetime
et voila mon code asp

<%
poste = Replace(Request("lstcrt"), "'", "''")
dat30=day(date-30)&"/"&month(date-30)&"/"&year(date-30)
dat365=day(date)&"/"&month(date)&"/"&year(date)-1
response.write poste&"<hr>"
sql="select * from INSCRIPTION where"
select case poste:
case "Derniers 30 jours"
response.write dat30
sql = sql & " DateInscription <= #"&dat30&"# "
case "annes deniere":
response.write dat365
sql = sql & " DateInscription <= #"&dat365&"#"
end select
Set Connection = CreateObject("ADODB.Connection")
Connection.Open "Driver={SQL Server};" & _
"Server=CDM815SRV02;" & _
"Database=stage;" & _
"Uid=stage;" & _
"Pwd=stage"
Set RS = CreateObject("ADODB.Recordset")
response.write sql&"<hr>"
RS.Open sql, Connection, 3,3
if RS.RecordCount = 0 then
Response.Redirect "erreur1.html"
end if
%>
c pas assez complique mais lor de l'execution c ca l'erreur
syntaxe incorect ver #
[/quote]

**Mimo** · 18/05/2005, 20h32

Essaye ceci :

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
 
<% 
poste = Replace(Request("lstcrt"), "'", "''") 
dat30=day(date-30)&"/"&month(date-30)&"/"&year(date-30) 
dat365=day(date)&"/"&month(date)&"/"&year(date)-1 
response.write poste&"<hr>" 
sql="select * from INSCRIPTION where" 
select case poste: 
case "Derniers 30 jours" 
response.write dat30 
sql = sql & " DateInscription <= '"&dat30&"'" 
case "annes deniere": 
response.write dat365 
sql = sql & " DateInscription <= '"&dat365&"'" 
end select 
Set Connection = CreateObject("ADODB.Connection") 
Connection.Open "Driver={SQL Server};" & _ 
"Server=CDM815SRV02;" & _ 
"Database=stage;" & _ 
"Uid=stage;" & _ 
"Pwd=stage" 
Set RS = CreateObject("ADODB.Recordset") 
response.write sql&"<hr>" 
RS.Open sql, Connection, 3,3 
if RS.RecordCount = 0 then 
Response.Redirect "erreur1.html" 
end if 
%>

**lepeintre** · 18/05/2005, 20h51

we merci beaucoup ca marche au moin y'a pes d'erreur mais le resultat
n'est pas encore correcte

**Mimo** · 18/05/2005, 20h53

Mais juste un truc

<=date30 = date-30 + date-365

Donc pour afficher l'intervalle -30 et -365 tu dois mettre des limite a ta condition.

du type

Code :

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

DateInscription <= '"&dat30&"'"  and DateInscription > '"&dat365&"'"

**lepeintre** · 18/05/2005, 21h08

merci beaucoup mais derniere question
je veux afficher le derniers inscrit ces 30 jours
j'ai besoin d'un date systeme je crois pour faire la difference entre la date actuelle et ici 30jours

**Mimo** · 19/05/2005, 02h42

Pour les 30 dernier jours c'est le même principe

Code :

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

DateInscription <= '"&dat&"'"  and DateInscription > '"&dat30&"'"

Et bien sûr on utilisant la date système.
Ou bien carrement la date SqlServer si tu veux.

**lepeintre** · 19/05/2005, 12h57

thanks

Syntaxe incorrecte vers 'where'.

ASP

Discussions similaires

Partager

Partager