Discussion :

[faniette]

Bonjour
je cherche quelqu’un qui peut m'aider pour trouver le problème qui existe dans ce code.
je veut filtrer les données qui existes entre deux date,
le type de champ Date Texte et le masque de saisie date,abrégé.

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
Date2 = DateTimePicker1->Date;
Date3 = DateTimePicker2->Date;
Form2->Table1->First();
if(!Form2->Table1->Eof)
 
 {
 
 
 Form2->Table1->Close();
  AnsiString a;
  a="select* FROM PEC  where Date <= " +Date3+" AND "+"Date >= " +Date2+" Order By N°Ord ASC" ;
  Form2->Query1->SQL->Clear();
  Form2->Query1->SQL->Add(a);
  Form2->Query1->ExecSQL();
  Form2->Table1->Open();
}

[Guyt54]

Je vais te dire comment ce que je suggère à mes étudiants pour qu'ils trouvent eux-mêmes ce genre de problème.

Je leur suggère de faire un ShowMessage de la commande SQL. 80% du temps, il voit l'erreur tout de suite.(ils peuvent aussi mettre un point d'arrêt avec le debugger, quand ils sont familiers avec le debugger, c'est plus rapide).

S'il me disent que tout leur semble ok, je leur réponds de tester la commande avec SQL Query Browser.

Si ça fonctionne avec SQL Browser, c'est qu'il y a un problème qui les dépasse, alors je m'assis avec eux, mais c'est relativement rare.

[Guyt54]

fainiette, il y a des choses qui me font tiquer dans ton code: Tu utilises "ExecSQL" ET "Open()" à la fois. En plus, tu ne fermes pas la requète précédente*

"ExecSQL" c'est pour des commandes SQL qui ne retourne rien (INSERT, DELETE,UPDATE) et "Open" c'est pour une requête (SELECT). Si je ramène ça à une fonction plus générale, ça ressemble à quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void SQL_Execute(TQuery* query, AnsiString sqlCmd, bool isSelect)
{
  query->Close() ; // fermer requete précédente, pas d'effet si déjà fermé
  query->SQL->Clear() ;
  query->SQL->Add(sqlCmd) ;
  if (isSelect)
    query->Open() ;
  else
    query->ExecSQL() ;
}

* "Open" appelle probablement "Close" pour le ré-ouvrir, mais bon, c'est mieux de ne rien prendre pour acquis.

[faniette]

Bonjour,
merci Guyt54
le problème que j'ai rencontrée dans le résultat du code , en effet ce dernier filtre les données que par le jour et ne pas par toute la date.

[Guyt54]

Excuse-moi, faniette, j'avais mal compris la question , il reste que ton bug est dans la commande SQL et tu le verrais avec un "ShowMessage".

Faut mettre les dates comme ça en SQL:

Code :

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

1
2
 
WHERE Date <= '2012-02 bla bla'

et non

Code :

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

1
2
 
WHERE Date <= 2012-02 bla bla

ps: t'as vraiment un champ qui s'appelle "N°Ord"?. je suis surpris que ça passe en SQL, mais bon, on en apprend tous les jours.

[DjmSoftware]

Oula Oula

Code :

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

1
2
3
4
 
 
Date2 = DateTimePicker1->Date;
Date3 = DateTimePicker2->Date;

Date2 et 3 sont de type TDate et non pas des Ansitring ou Unicode String

soit dans ta base c'est le format TDate qui est employé pour le champ date , soit si c'est un type string tu dois transformer ta valeur TDate en Valeur équivalente à ton Champ, La VCL offre beuacoup de possibilités pour ceci

Code :

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

1
2
3
 
Form2->Table1->First();
if(!Form2->Table1->Eof)

ceci est parfaitement inutile car la requête Select se fait sur l'entier de la ou les tables mentionnées dans ta requëte

Code :

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

1
2
3
4
5
6
7
8
9
 
 
 Form2->Table1->Close();
  AnsiString a;
  a="select* FROM PEC  where Date <= " +Date3+" AND "+"Date >= " +Date2+" Order By N°Ord ASC" ;
  Form2->Query1->SQL->Clear();
  Form2->Query1->SQL->Add(a);
  Form2->Query1->ExecSQL();
  Form2->Table1->Open();

lors d'une requête on utilise en principe la méthode open et non pas la méthode ExecSQL()
si le mombre d'éléments retournés est grand il peut-être utile de préparer la commande SQL (->Prepare())

N°Ord : n'est pas valide en SQL

en espérant t'avoir été utile