Moteur de recherche par date

**Prue** · 22/08/2003, 10h12

Salut tout le monde!
Ca fait longtemps que j'ai pas posé de question donc j'y remédie...

J'ai une sorte de moteur de recherche par date... Donc deux pages...

La première est un .htm dont le code est

Code :

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

1
2
3
4
5
6
7
8
9
10
<body>
<center>
<table>
<tr><td>Entrez, au format jj/mm/aa, la date des demandes que vous souhaitez consulter :</td></tr>
  <form action="Demandes_par_date.asp" method="get" name="Acces">
  <tr><td><center><input name="Date_demande" type="text"></center></td></tr>
  <tr><td><center><input name="Verif" type="submit" value="Valider"></center></td></tr>
  </form></table>
  </center>
</body>

La deuxième est une .asp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<body>
<% RDate = Request.Querystring("Date_demande")
RDate = Cdate (RDate)
response.Write(Rdate)
Set ConnGes = Server.CreateObject("ADODB.Connection")
ConnGes.Open "GDDDU"
RequeteDate = "Select * from Demandes where Date_de_la_demande = "&RDate&" order by Numéro_de_la_demande"
Set RsGes = Server.CreateObject("ADODB.Recordset")
RsGes.Open RequeteDate,ConnGes
 
If RsGes.eof then%>
<pre><center>Aucune demande à cette date.</center></pre>
<%else ...

Mon problème, c'est que même quand je rentre une date existente, j'obtiens le message Aucune demande à cette date .

Quelqu'un sait-il se qui cloche ?

**demo** · 22/08/2003, 10h18

salut Prue !
es-tu certaine du format de l'attribut "Date_de_la_demande" de ta table ?
Pour que ta requête aboutisse, il faut évidemment que les deux formats soit identique.

**Prue** · 22/08/2003, 10h23

Salut Démo

!

Oui, je viens de vérifier... Dans ma base, le format est Date/Heure , date abrégée.

J'ai fait un response.write de Rdate aprés

Code :

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

RDate = CDate (RDate)

et il lit bien la date...

**demo** · 22/08/2003, 10h27

Le mieux, comme c'est forcément une erreur dans ta requète, c'est de faire une response.write dessus. tu copies la requète générée et tu l'essaies sur ton sgbd (c'est quoi, d'ailleurs, comme sgbd?)
tu me tiens au courant, ok ?

**Prue** · 22/08/2003, 10h27

Access. J'essaye et je te dis.

**Prue** · 22/08/2003, 10h34

Bah non, elle marche pas ma requête... Y a pas d'erreur de syntaxe apparemment mais elle ne renvoie rien...

**linkchaser** · 22/08/2003, 10h37

c'est la facon dont tu lui passes la date qui doit pas etre bonne
c'est tellement galere a gerer ce truc

**Prue** · 22/08/2003, 10h38

:trouve:

En fait, j'ai oublié les "#" autour de "RDate" dans le requête

...

Mais c'est étrange, la requête ne fonctionne tout de même pas sous Access

.

Mais bon, l'important, c'est que ça fonctionne sur mon site.

Demo. A plus tard

.

**Prue** · 22/08/2003, 10h40

Linkchaser !

Bon bah, comme tu peux le voir, c'est bon...
Et c'est ce que tu pensais

.

**demo** · 22/08/2003, 10h49

parfait prue, A+ !

**Prue** · 25/08/2003, 13h13

Bah en fait... Non, mon problème n'est pas résolu...

En fait, le soucis, c'est que dans ma base de données Access, le format de la date est jj/mm/yy alors que le VBScript donne le format US : mm/jj/yyyy donc, quand je récupère la date, ma requête n'obtient pas de réponse.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
RJour = Request.QueryString("Jour")
RMois = Request.QueryString("Mois")
RAnnee = Request.QueryString("Annee")
RDate = RJour&"/"&RMois&"/"&RAnnee
Rdate = CDate (RDate)
 
Set ConnGes = Server.CreateObject("ADODB.Connection")
ConnGes.Open "GDDDU"
RequeteDate = "Select * from Demandes where Date_de_la_demande = #"&RDate&"# order by Numéro_de_la_demande"
Set RsGes = Server.CreateObject("ADODB.Recordset")
RsGes.Open RequeteDate,ConnGes%>

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
<table>
<tr><td>
Entrez, au format jj/mm/aa, la date des demandes que vous souhaitez consulter :
</td></tr>
  <form action="Demandes_par_date.asp" method="get" name="Acces">
<tr><td><center>
   Jour : <input name="Jour" type="text" size="5">
   Mois : <input name="Mois" type="text" size="5">
   Année : 20<input name="Annee" type="text" size="5">
</center></td></tr>
<tr><td><center>
   <input name="Verif" type="submit" value="Valider">
</center></td></tr>
  </form>
</table>

Aprés Response.write (RDate) j'obtiens 25/08/05 comme je le souhaite. Mais ma requête n'affiche aucun resultat...

**lexav** · 25/08/2003, 14h02

as-tu essayé de créer une fonction qui convertirait tes dates au même format, du type aaaammjj ?
cela te permettrait de faire des comparaison plus faciles

**Prue** · 25/08/2003, 14h28

Comment on fait ça ? Surtout qu'il faudrait que je le fasse en VBScript pour pouvoir utiliser les dates dans ma requête aprés...

**lexav** · 25/08/2003, 14h32

avec les fonctions de manipulation de chaînes type "InStr", "Mid", "Left"...

comme tu connais le format en entrée, tu combines ces fonctions et tu crées une nouvelle chaine... ceci dit, c'est une suggestion, qui peut-être ne t'apportera pas grand-chose

bon courage

**Prue** · 25/08/2003, 14h44

Bah en fait, j'ai déjà essayé de manipuler la chaine comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
RJour = Request.QueryString("Jour")
RMois = Request.QueryString("Mois")
RAnnee = Request.QueryString("Annee")
 
RDate = RAnnee&"/"&RMois&"/"&RJour
RDate = CDate (RDate)
 
Set ConnGes = Server.CreateObject("ADODB.Connection")
ConnGes.Open "GDDDU"
RequeteDate = "Select * from Demandes where Date_de_la_demande = #"&RDate&"# order by Numéro_de_la_demande"
Set RsGes = Server.CreateObject("ADODB.Recordset")
RsGes.Open RequeteDate,ConnGes

Mais bien que mon response.write (RDate) m'indique que la date est dans l'ordre aaammjj, ça ne fonctionne pas mieux...

**lexav** · 25/08/2003, 14h50

OK, j'avais mal compris...

euh, en fait je dois dire que souvent j'utilise des champs texte classiques pour les dates, afin d'éviter ce genre de soucis...

mes dates dans la table sont enregistrées comme ça : aaammjj
et une simple manipulation de chaineme permet de les mettre au bon format à l'affichage...
donc désolé de t'avoir mise sur une fausse piste

ceci dit, si je procède comme ça c'est parce que j'en avais marre de me prendre la tête sur des choses de ce genre avec ACCESS...