filtrer les données entre 2 dates

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:

---

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(); }

---

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.

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:

---

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.

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.

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:

---

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

---

et non

Code:

---

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.

Oula Oula :alerte::alerte:

Code:

---

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:

---

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:

---

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

Étrange mélange entre Table1 et Query1 !!!

il y a aussi les paramètres

Code:

---

1 2 3 4 5

Form2->Query1->SQL->Text = "select * FROM PEC where Date <= :Date3 AND Date >= :Date2 Order By \"N°Ord\" ASC"; Form2->Query1->ParamByName("Date2")->AsDate = DateTimePicker1->Date; Form2->Query1->ParamByName("Date3")->AsDate = DateTimePicker2->Date; Form2->Query1->Open();

---

Il est vrai que 'N°Ord' comme nom de champ, faut essayé ", ' ou `, []
selon la DB il servent à typer les chaines ou à forcer un nom de champ complexe

En tout cas, je ne sais pas si fainette lit encore, mais sa question m'aura amené à préciser à une petite procédure de déverminage de requêtes SQL, à savoir:

1) Mettre la commande SQL dans une string (par concaténation ou par un sprinf)

2) Mettre la string dans un TEdit pour être capable de la copier facilement dans le presse-papier.

3)Tester la commande avec un utilitaire de base de données, MySQL Browser par exemple.

Si fainette se donnait la peine de faire cette procédure (ça prend une minute), elle verrait bien que son bug, il est dans la syntaxe de sa commande.

Dommage que les balises "spoiler" n'existe pas, car je dirais à fainette de ne pas ouvrir le spoiler qui suit si elle n'aime pas la critique.

Le spoiler:

Je ne suis pas sûr que donner des noms de variables genre "Date1", "Date2", "Date3" aide à la compréhension du code. Je n'ai aucune idée de ce que tu veux faire, fainette et il est fort à parier que tu ne sauras même pas toi-même quand tu regarderas ton code dans quelques mois.

Bonjour,
merci de vos réponse.
malheureusement je nage toujours dans mon souci :(
DjmSoftware:
le type de mon champ Date est String

Code:

---

1 2	TDate Date2 = DateTimePicker1->Date; TDate Date3 = DateTimePicker2->Date;

---

pour mettre la date entre des guillemets j'ai utilisé QuotedStr et pour transformer la valeur TDate en Valeur équivalente au Champ Date j'ai utiliser DateToStr mais tjr le même souci le code filtre les données que par le jour

Code:

---

1 2	AnsiString a; a="select* FROM PEC where DateFac <= " +QuotedStr(DateToStr(DateFin))+" AND "+"DateFac >= " +QuotedStr(DateToStr(DateDebut)) ;

---

concernant le spoiler de Guyt54 au contraire je l'ouvre avec plaisir, tes critiques sont des moyens pour que je puisse corriger mes erreurs.

fainette, excuses-moi d'insister, mais s'il te plait, mets ta commande dans un TEdit et copie la ici. Ton bug, on devrait le voir très clairement.

Hello
est tu certain que le format date retourné par DateToStr est equivalent a celui utilisé par ta base de donnée ?
je te conseille d'utiliser le code fourni par ShaiLeTroll modifié pour ton usage

il te faut au préalable créer les 2 paramètres dans ton composant Query, tu peux également les créer par code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

try { SQLQuery1->Params->Clear(); SQLQuery1->Params->AddParam(SQLQuery1->Params->CreateParam(ftString, "Date2", ptInput)); SQLQuery1->Params->AddParam(SQLQuery1->Params->CreateParam(ftString, "Date3", ptInput)); Query1->ParamByName("Date2")->AsAnsiString = QuotedStr(FormatDateTime("DD.MM.YYYY",DateTimePicker1->Date)); Query1->ParamByName("Date3")->AsAnsiString = QuotedStr(FormatDateTime("DD.MM.YYYY",DateTimePicker2->Date)); Query1->SQL->Text = "select * FROM PEC where Date <= :Date3 AND Date >= :Date2"; Query1->Open(); // ... ton code de traitement ici } catch (Exception&E) { ShowMessage(E.Message); // pour les tests uniquement //... ton code de traitement d'exception }

---

cdlt

salut
j'ai rencontrée une erreur de SQL général avec ce code :cry:
j'ai utilisée ton astuce Guyt54 je la trouve formidable...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Query1->Params->Clear(); Query1->Params->AddParam(Query1->Params->CreateParam(ftString, "DateD", ptInput)); Query1->Params->AddParam(Query1->Params->CreateParam(ftString, "DateF", ptInput)); Query1->ParamByName("DateD")->AsString = QuotedStr(FormatDateTime("DD/MM/YYYY",DateTimePicker1->Date)); Query1->ParamByName("DateF")->AsString = QuotedStr(FormatDateTime("DD/MM/YYYY",DateTimePicker2->Date)); Query1->SQL->Text = "select * FROM PEC where Date <= DateF AND Date >= DateD"; //Query1->Open();     AnsiString Res,b ;     b="select* FROM PEC where DateDevis <= DateF AND DateDevis >= DateD" ; Res.sprintf("1- [%s]",b) ; ShowMessage(Res) ;

---

merci d'avance pour votre aide

QuotedStr + ParamByName->AsString, cela me semble redondant, ça fonctionne ??? :koi:
le fait d'avoir un paramètre String va implicitement ajouter les '' (si j'ose vulgariser le mécanisme),
c'est dans la tambouille des requêtes préparées, cela dépend du SGDB !
J'ai vu que MySQL a été évoqué, mais je crois que Faniette travaille en ACCESS, ce qui peut apporter de nombreuses difficultés !

j'aurais simplement écrit

Code:

---

1 2 3 4

Query1->SQL->Text = "select* FROM PEC where DateDevis <= :DateF AND DateDevis >= :DateD"; Query1->ParamByName("DateD")->AsString = FormatDateTime("DD/MM/YYYY",DateTimePicker1->Date); Query1->ParamByName("DateF")->AsString = FormatDateTime("DD/MM/YYYY",DateTimePicker2->Date); Query1->Open();

---

ou via TQuery.ParamCheck
Cela ne dispense pas de mettre les : pour indiquer un paramètre !

Code:

---

1 2 3 4 5 6 7 8

Query1->ParamCheck = false; Query1->Params->Clear(); Query1->Params->CreateParam(ftString, "DateD", ptInput); Query1->Params->CreateParam(ftString, "DateF", ptInput); Query1->ParamByName("DateD")->AsString = FormatDateTime("DD/MM/YYYY",DateTimePicker1->Date); Query1->ParamByName("DateF")->AsString = FormatDateTime("DD/MM/YYYY",DateTimePicker2->Date); Query1->SQL->Text = "select* FROM PEC where DateDevis <= :DateF AND DateDevis >= :DateD";

---

CreateParam ajoute le Param, inutile de faire un AddParam derrière !

les paramètres étant typé ftString cela va gérer les " automatiquement (vilain amalgame mais on se comprend).
En interne, les paramètres c'est optimisé dans le SGBD, c'est plus complexe qu'un simple ajout de "
Surtout selon, le SGBD, c'est ' ou " le délimiteur de chaine !

Si ça ne fonctionne pas, j'abandonne SQL:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

void __fastcall TForm3::Button1Click(TObject *Sender) { AnsiString cmd,date1,date2 ;   date1 = DateTimePicker1->Date.DateString() ; date2 = DateTimePicker1->Date.DateString() ;   cmd.sprintf("SELECT * FROM PEC WHERE (Date <='%s') AND (Date >= '%s')", date1.c_str(),date2.c_str()) ;   Edit1->Text = cmd ; }

---

Commande résultante telle que vue dans TEdit1

Code:

---

1 2	SELECT * FROM PEC WHERE (Date <='2012-05-09') AND (Date >= '2012-05-09')

---

ps: pas sûr que c'est une bonne idée d'appeler un champs "Date", il y a une fonction SQL du même nom.

Mot de commande et variable de meme nom = Erreur

Citation:

---

Envoyé par blondelle

Mot de commande et variable de meme nom = Erreur

---

y avait pas le caractère " `" qui permettait de contourner le problème?

Code:

---

1 2	SELECT `Date` FROM `select` WHERE bla bla

---

mais bon, appeler un champs "Date", c'est chercher le trouble, faudrait peut-être faire plus d'efforts quant aux choix des noms des identificateurs...

Tout a fait daccord avec toi Guyt54, de plus il pense que nous avons une boule de cristal, car son message d'erreur n'a meme pas ete poste, c'est le premier renseignement a avoir avec le code incrimine pour nous orienter afin de trouver le probleme

Hello

Citation:

---

QuotedStr + ParamByName->AsString, cela me semble redondant, ça fonctionne ???
le fait d'avoir un paramètre String va implicitement ajouter les '' (si j'ose vulgariser le mécanisme),
c'est dans la tambouille des requêtes préparées, cela dépend du SGDB !
J'ai vu que MySQL a été évoqué, mais je crois que Faniette travaille en ACCESS, ce qui peut apporter de nombreuses difficultés !

---

Cela fonctionne parfaitement sur les SGDB compatible SQL92 ou le séparateur de chaine est une quote <'>

Citation:

---

CreateParam ajoute le Param, inutile de faire un AddParam derrière !

---

Bien Vu

Citation:

---

AnsiString Res,b ;


b="select* FROM PEC where DateDevis <= DateF AND DateDevis >= DateD" ;
Res.sprintf("1- [%s]",b) ;
ShowMessage(Res) ;

---

inutile car avec un bloc Try Catch et ShowMessage ou Mieux OutputDebugString le message d'erreur complet est affiché dans le journal d'évenement et non seulement le predicat.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

try { Query1->ParamCheck = false; Query1->Params->Clear(); Query1->Params->CreateParam(ftString, "DateD", ptInput); Query1->Params->CreateParam(ftString, "DateF", ptInput); Query1->ParamByName("DateD")->AsString = FormatDateTime("DD/MM/YYYY",DateTimePicker1->Date); Query1->ParamByName("DateF")->AsString = FormatDateTime("DD/MM/YYYY",DateTimePicker2->Date); Query1->SQL->Text = "select* FROM PEC where DateDevis <= :DateF AND DateDevis >= :DateD"; Query1->Open(); } catch(Exception &E) { AnsiString Msg=AnsiString("Predicat: ")+Query1->SQL->Text+AnsiString("Message d'erreur: ")+E.Message; OutputDebugString(Msg.c_str()); }

---

cdlt

salut chers développeurs
en fin j'ai résolue mon problème:ccool:, j'ai changée le type du champ de date par Date/Time au lieu text et j'ai exécutée ce code:

Code:

---

1 2 3 4 5 6 7

Form2->Query1->Params->Clear(); Form2->Query1->Params->CreateParam(ftDate, "DateD", ptInput); Form2->Query1->Params->CreateParam(ftDate, "DateF", ptInput); Form2->Query1->ParamByName("DateD")->AsString = DateTimePicker1->Date; Form2->Query1->ParamByName("DateF")->AsString = DateTimePicker2->Date; Form2->Query1->SQL->Text = "select * FROM PEC where DateDevis <= :DateF AND DateDevis >= :DateD"; Form2->Query1->Open();

---

j'ai supprimée

Code:

---

Query1->ParamCheck = false;

---

ça ma posé de problème, et je ne sais même pas qu'est ce qu'il signifié.

merci beaucoup de vos solutions j'ai appris beaucoup de chose

NB:/ j'ai ajoutée le champ N°Ord de type numérique sous access dans le code et sa fonctionné

Code:

---

Form2->Query1->SQL->Text = "select * FROM PEC where DateDevis <= :DateF AND DateDevis >= :DateD Order By N°Ord";

---

Hello

Citation:

---

fin j'ai résolue mon problème, j'ai changée le type du champ de date par Date/Time au lieu text et j'ai exécutée ce code:

---

dans ce cas le code

Code:

---

1 2 3

Form2->Query1->ParamByName("DateD")->AsString = DateTimePicker1->Date; Form2->Query1->ParamByName("DateF")->AsString = DateTimePicker2->Date;

---

devient :

Code:

---

1 2 3

Form2->Query1->ParamByName("DateD")->AsDate = DateTimePicker1->Date; Form2->Query1->ParamByName("DateF")->AsDate = DateTimePicker2->Date;

---

cdlt

@faniette, normalement, si tu as retiré ParamCheck alors CreateParam n'est pas utile, ceci est suffisant :

Code:

---

1 2 3 4

Query1->SQL->Text = "select* FROM PEC where DateDevis <= :DateF AND DateDevis >= :DateD"; Query1->ParamByName("DateD")->AsString = DateTimePicker1->Date; Query1->ParamByName("DateF")->AsString = DateTimePicker2->Date; Query1->Open();

---

ou

Code:

---

1 2 3 4

Query1->SQL->Text = "select* FROM PEC where DateDevis <= :DateF AND DateDevis >= :DateD"; Query1->ParamByName("DateD")->AsDate = DateTimePicker1->Date; Query1->ParamByName("DateF")->AsDate = DateTimePicker2->Date; Query1->Open();

---

l'ordre est important, d'abord SQL puis ParamByName !
C'est l'affectation au SQL qui va créer automatiquement les Paramètres, puis le type est déterminé par AsString ou AsDate

Donc, AsString est très important, car il type le paramètre en ftString !
Cela fait appel au constructeur String(TDateTime) qui appelle automatiquement DateToStr !
C'est effectivement utile si c'est un Champ Chaine, maintenant si tu es passé en Champ Date coté ACCESS comme le conseille DjmSotware, repasse à AsDate

Citation:

---

l'ordre est important, d'abord SQL puis ParamByName !
C'est l'affectation au SQL qui va créer automatiquement les Paramètres, puis le type est déterminé par AsString ou AsDate

Donc, AsString est très important, car il type le paramètre en ftString !
Cela fait appel au constructeur String(TDateTime) qui appelle automatiquement DateToStr !

---

Excellent j'ignorais cette subtilité
ce composant est encore plus intelligent que je l'avais imaginé
cdlt

Bonjour tout le monde

si je passe en AsDate j'aurai erreur SQL générale Format de date invalide (null)':koi:

Hello
petite question ?
Ta base est-elle de type Access
si oui ton composant de requêtage est il un TAdoQUery
fait le même essai avec la db bcdemos.mdb livrée avec C++ Builder (installée dans CommonFiles)
dans le cas de composant TAdoQuery la syntaxe à employer est un peu différente

tu peux tester le code ci-dessous avec la table employee qui contient également un champ de type Date/Heure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

try { Query1->Close(); Query1->Parameters->Clear(); Query1->Parameters->CreateParameter("DateD",ftDate,pdInput,8,DateTimePicker1->Date); Query1->Parameters->CreateParameter("DateF",ftDate,pdInput,8,DateTimePicker2->Date); Query1->SQL->Text = "select* FROM Employee where HireDate <= :DateF AND HireDate >= :DateD"; Query1->Open(); } catch(Exception&E) { AnsiString Msg=AnsiString("Predicat: ")+Query1->SQL->Text+AnsiString("Message d'erreur: ")+E.Message; OutputDebugString(Msg.c_str()); }

---

ce code est parfaitement fonctionnel avec le composant TAdoQuery
tu n'auras plus qu'a adapter la requête

Code:

---

1 2	Query1->SQL->Text = "select* FROM PEC where DateDevis <= :DateF AND DateDevis >= :DateD";

---

si cela ne fonctionne toujours pas je crais que ta base access soit défectueuse

cdlt

Bonjour
ma base de données est de type Access et j'utilise BDE
j'ai utilisée ce code avec la db bcdemos.mdb, il fonctionne trés bien avec la table employée:

Code:

---

1 2 3 4 5 6

Form2->Query1->SQL->Clear(); Query1->SQL->Text = "select* FROM Employee where HireDate <= :DateF AND HireDate >= :DateD";   Form2->Query1->ParamByName("DateD")->AsDate = DateTimePicker1->Date; Form2->Query1->ParamByName("DateF")->AsDate = DateTimePicker2->Date; Form2->Query1->Open();

---

qu'est ce que vous me conseillez. en plus ma BDD contient des données

:pleure:

Faniette
si ta table est de type Access n'utilise pas le BDE mais plutôt les composants
ADO ou dbGO selon la version de RadStudio
puis essaye avec le code que je t'ai fournit
si tu dispose d'access tu peux également tester le code SQL directement avec ACCESS

Autre possibilité également pour tester la validité de ta base access
dépose sur une fiche un Composant TAdoConnexion, Un TAdotable, un DbGRid,Tdatasource

Renseigne la propriété connecion avec le fichier de base de donnée access(.mdb)avec fournisseur MicrosoftJet OLEDB 4 ou (accdb) avec fournisseur (Access office 12 ou supérieur)

Active le composant AdoConnection (Connected =true)
renseigne la propriété connection du composant TAdoTable avec ADOConnection1

renseigne la propriété Table du composant TAdoTable avec le nom de ta table

renseigne la propriété DataSource du composant TdbGrid avec DataSource1

renseigne la propriété DataSet du composant TDatasource avec AdoTable1

click droit sur le composant TAdoTAble , Editeur de champ + CTRL+F (Ajouter tous les Champs)
vérifie que tous les types de champ correspondent bien avec la définition préalable de ta table ex: champ HireDate de la table employe est de type
TDateTimeField

Active le composant TAdoTable ta Grid devrait afficher la tous les champs de ta table et te permettre ainsi de vérifier le contenu

Code:

---

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

#ifndef Unit77H #define Unit77H //--------------------------------------------------------------------------- #include <Classes.hpp> #include <Controls.hpp> #include <StdCtrls.hpp> #include <Forms.hpp> //--------------------------------------------------------------------------- class TForm77 : public TForm { __published: // Composants gérés par l'EDI TDataSource *DataSource1; TDBGrid *DBGrid1; TADOConnection *ADOConnection1; TADOTable *ADOTable1; TIntegerField *ADOTable1EmpNo; TWideStringField *ADOTable1LastName; TWideStringField *ADOTable1FirstName; TWideStringField *ADOTable1PhoneExt; TDateTimeField *ADOTable1HireDate; TFloatField *ADOTable1Salary; private: // Déclarations utilisateur public: // Déclarations utilisateur __fastcall TForm77(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm77 *Form77; //--------------------------------------------------------------------------- #endif

---

cdlt

salut
DjmSoftware
j'ai testée la validité de la base access comme tu ma dit, heureusement elle n'est pas défectueuse :P
en plus ton code fonctionne avec le composant ADOQuery1:ccool:
merci beaucoup tu ma sauvé.
mon souci maintenant dans mon projet j'ai utilisée de le début jusqu’à la fin les composants de BDE. est ce que je peut mélanger les composants de ADO avec BDE dans la même application et j'ajoute que pour ce code le composant ADOQuery1 ?

Salut
il est préférable que tu migres vers les composants ADO ou dbGO
cela t'éviteras des problèmes de déployement de ton application et d'autre part BDE est en fin de vie
la travail de migration ne devrait pas être ci-grand

tu peux concentrer les composants d'accès et de requêtage sur un TDataModule (si tu ne la pas encore fait )ce qui te simplifiera considérablement la tâche

bon courage
cdlt

Bonjour
merci beaucoup DjmSoftware pour tes explications

Code:

---

tu peux concentrer les composants d'accès et de requêtage sur un TDataModule (si tu ne la pas encore fait )ce qui te simplifiera considérablement la tâche

---

:koi:
j'ai aucune idée pour le moment je vais faire une recherche et je te tien au courant

Hello Faniette,

le principe du Data Module est le suivant
au lieu de déposer sur chaque fiche que ton promet utilise des composants de base de données , tu les concentre tous sur une Form Spéciale nommée TDatamodule
ensuite chacune de tes form en incluant au préalable le .H du data module peut avoir un accès aux données de ta base

Il existe un chapitre dans l'aide qui de donneras des informations détaillées à ce sujet

des exemples sont également fournis dans la distribution de RadStudio

cdlt

:lahola:
merci DjmSoftware tu ma beaucoup facilité les choses,

Pas de problème
n'oublie pas de marquer ce Post Résolu
cdlt