Discussion :

[Domingo60]

Bonjour je ne sais pas si je suis dans le forum approprié pour poser ma question, je m'en excuse si s'est le cas.
Je vous explique brievement ma situation, j'utilise une bdd access et une interface asp. Mon but est de rechercher des enregistrements de la base à l'aide d'un formulaire construit sur une interface asp. Tous mes champs de recherche fonctionne sauf celui de la date.
Ci dessous je vous montre comment est construit :
1) mon formulaire pour la date
2) Comment je concatene (jour mois année)
3) ma fonction pour convertir la date fr en date Us
4) le code pour comparer les dates et ajouter l'enregistrement

Le seul resultat que j'obtient est une erreur :
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Pilote ODBC Microsoft Access] Erreur de syntaxe dans la clause FROM.

1)

Code :

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

1
2
3
4
5
6
7
8
9
<strong>Date :</strong> <SELECT type=text name=date_jour size=1>
                        <option value=""><option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09
<option>10<option>11<option>12<option>13<option>14<option>15<option>16<option>17<option>18<option>19<option>20<option>21<option>22
<option>23<option>24<option>25<option>26<option>27<option>28<option>29<option>30<option>31			
</SELECT>
 /  <SELECT type=text name=date_mois size=1><option value=""><option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09
<option>10<option>11<option>12</SELECT> / <SELECT type=text name=date_annee size=1><option value=""><option>1995<option>1996<option>1997<option>1998<option>1999
<option>2000<option>2001<option>2002<option>2003<option>2004<option>2005<option>2006<option>2007<option>2008<option>2009<option>2010<option>2011
<option>2012<option>2013<option>2014<option>2015<option>2016<option>2017<option>2018<option>2019<option>2020</SELECT>

2)

Code :

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

1
2
Dim Date1
Date1=request.querystring("date_jour") & "/" & request.querystring("date_mois") & "/" & request.querystring("date_annee")

3)

Code :

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

1
2
3
4
5
6
7
8
9
Function ConvertDateUS(Str_Date)
Dim Annee,Mois,Jour
 
Annee = right(Str_Date, 4)
Mois = Mid(Str_Date, 4, 2)
Jour = left(Str_Date, 2)
ConvertDateUS = Mois & "/" & Jour & "/" & Annee
 
End Function

4)

Code :

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

1
2
3
if Date1 <> "" then
SQL = SQL + " AND [Date] = #" + ConvertDateUS(Date1) + "#"
end if

Je vous remercie, si quelqu'un a une idée du problème.

[AlainTech]

On ne voit pas la définition de SQL avant que tu lui concatènes le " AND [Date] = ...

[Domingo60]

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
32
33
34
 
<% 
Dim Rapport2
Dim Rapport2_numRows
 
SQL= "SELECT * FROM Rapport"
 
if request.QueryString("Date1") <> "" then
SQL = SQL + " AND [Date] = #" + ConvertDateUs(request.QueryString("Date1")) + "#"
end if
 
if  request.querystring("No") <> "" then
SQL=Addcriteria(SQL, "Rapport.No", "=", "No", "NUM")
else
SQL=Addcriteria(SQL, "Rapport.Type", "=", "Type", "CHR")
SQL=Addcriteria(SQL, "Rapport.Pièce", "=", "Piece", "CHR")
SQL=Addcriteria(SQL, "Rapport.Rts", "=", "Rts", "CHR")
SQL=Addcriteria(SQL, "Rapport.Fournisseur", "=", "Fournisseur", "CHR")
SQL=Addcriteria(SQL, "Rapport.Décision", "=", "decision", "CHR")
SQL=Addcriteria(SQL, "Rapport.Réalisateur", "=", "Réalisateur", "CHR")
SQL=Addcriteria(SQL, "Rapport.Responsable", "=", "Responsable", "CHR")
end if
 
Set Rapport2 = Server.CreateObject("ADODB.Recordset")
Rapport2.ActiveConnection = MM_GRAP_STRING
Rapport2.Source =SQL
Rapport2.CursorType = 0
Rapport2.CursorLocation = 2
Rapport2.LockType = 1
Rapport2.Open()
 
Rapport2_numRows = 0
 
%>

[AlainTech]

Il manque une clause WHERE, non?

[Domingo60]

Non, je ne pense pas , la clause where n'est pas obligatoire à ce que je sache ?
Pourquoi les autres critères fonctionnerait-il et pas celui de la date.

Aurais-je un autre moyen que celui que j'essaie d'employé?

Je vous remercie de votre aide.

[AlainTech]

Juste pour qu'on ne meurre pas idiots, tous les 2, essaye de remplacer le mot AND par le mot WHERE...

[Domingo60]

On avance, j'ai remplacé comme vous me l'avez dit AND par WHERE.
Dans un premier temps j'étais content car on peut maintenant faire une recherche par date. MAIS bien sur j'ai un autre probleme, à ce que j'ai compris
la date serait sauvegarder, ainsi il n'est pas possible de faire une autre recherche que celle par date.

Je vous remercie pour votre aide, je vais rechercher comment résoudre ce problème.

[Domingo60]

Enfin, j'ai trouvé la solution voila le code:

Code :

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

1
2
3
if request.querystring("date_jour") & request.querystring("date_mois") & request.querystring("date_annee") <> "" then
SQL = SQL + " WHERE [Date] = #" + ConvertDateUs(Date1) + "#"
end if

Je vous remercie
A bientôt je pense...