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

[ShaiLeTroll]

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

il y a aussi les paramètres

Code :

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

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

[Guyt54]

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.

[faniette]

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

Code :

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

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 :

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

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.

[Guyt54]

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.

[DjmSoftware]

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 :

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
 
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

[faniette]

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

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
 
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

[ShaiLeTroll]

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 !

j'aurais simplement écrit

Code :

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

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 :

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

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 !

[Guyt54]

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

Code :

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

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 :

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

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.

[blondelle]

Mot de commande et variable de meme nom = Erreur

[Guyt54]

Mot de commande et variable de meme nom = Erreur

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

Code :

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

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...

[blondelle]

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

[DjmSoftware]

Hello

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 <'>

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

Bien Vu

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 :

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
 
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

[faniette]

salut chers développeurs
en 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:

Code :

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

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 :

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

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 :

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

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

[DjmSoftware]

Hello

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 :

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

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

devient :

Code :

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

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

cdlt