Discussion :

[tarmo57]

re re bonjour j'ai besoin pour un petit programme d'afficher les enregistrements qui ont plus de 5 jours
J ai fais une requête mais sans résultat

Code :

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

1
2
3
4
5
 
Query1.SQL.Clear;
Query1.SQL.Add('select * from table.DB');
Query1.SQL.Add ('WHERE (Date_enregistrement)>(Now()-5)');
Query1.Open;

merci de votre aide

[Whiler]

Dans le genre... côté Delphi...

Code :

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

1
2
3
uses System.SysUtils, System.DateUtils;
 
FormatDateTime('yyyy-mm-dd', IncDay(Now, -5))

Après sans la structure de la table, la plateforme de la base de données... on ne peut pas spécialement t'aider plus...

[Ph. B.]

Bonjour,

re re bonjour j'ai besoin pour un petit programme d'afficher les enregistrements qui ont plus de 5 jours
J ai fais une requête mais sans résultat

Code :

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

1
2
3
4
5
 
Query1.SQL.Clear;
Query1.SQL.Add('select * from table.DB');
Query1.SQL.Add ('WHERE (Date_enregistrement)>(Now()-5)');
Query1.Open;

D'une part, précisez le SGBD (bien que le nom de la table me laisse fortement penser à Paradox) et la structure des colonnes impliquées dans la requête, cela permettra d'obtenir une réponse plus pertinente...
D'autre part, la condition ne me semble pas en adéquation avec les conditions de votre problème : actuellement, je dirais que vous récupérez les lignes dont "l'age" est strictement inférieur à 5 jours.
--
Philippe.

[tarmo57]

désolé, je vous donne plus de détails je suis sur une table paradox et un champs date

[SergioMaster]

pas mal , mais avec un paramètre cela serait encore mieux

Code :

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

1
2
3
4
5
6
 
Query1.SQL.Clear;
Query1.SQL.Add('select * from table.DB');
Query1.SQL.Add ('WHERE Date_enregistrement<=:FromDate)');
Query1.ParamByName('FromDate').asDateTime:=IncDay(Date,-5);
Query1.Open;

Avantage majeur , pas besoin de s'occuper du format SGBD de la date
mineur mais non moindre utilisation de la fonction delphi pour la gestion des dates (unité dateutils)

P.S. je ne sais pas a quelle version apparait la fonction incday Delphi3 ne la connait pas , Delphi7 si (mes versions 4 et 5 ont été désinstallées depuis longtemps).

C'est aussi pour ça qu'il est important d'indiquer quelle version de Delphi est utilisée

[Ph. B.]

Bonjour,
Entièrement d'accord pour l'utilisation de requêtes paramétrées plutôt que construites en direct. Cela évite une possible injection SQL et permet des optimisations pour les moteurs de bases de données dignes de ce nom...

P.S. je ne sais pas a quelle version apparait la fonction incday Delphi3 ne la connait pas , Delphi7 si (mes versions 4 et 5 ont été désinstallées depuis longtemps).

Dans le cas d'une ancienne version de delphi qui n'aurait pas cette fonction, on peut contourner cette limitation en s'appuyant sur les caractéristique du type TDateTime qui est lui même du type Double (cf.aide).

La partie entière d'une valeur TDateTime de Delphi représente le nombre de jours écoulés depuis le 30/12/1899.La partie fractionnaire de la valeur TDateTime est la partie des 24 heures écoulée.

Sachant cela, on peut remplacer directement la fonction IncDay(Date, -5) par Date - 5
--
Philippe.

[Whiler]

Dans le cas d'une ancienne version de delphi qui n'aurait pas cette fonction, on peut contourner cette limitation en s'appuyant sur les caractéristique du type TDateTime qui est lui même du type Double (cf.aide).

Sachant cela, on peut remplacer directement la fonction IncDay(Date, -5) par Date - 5

http://docwiki.embarcadero.com/VCL/fr/System.TDateTime

En plus, le calcul sera optimisé en faisant une simple soustraction... (IncDay entraîne l'appel de 4 fonctions...)

[ALWEBER]

Essaie quelque chose dans le genre :

Code :

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

1
2
3
4
5
6
 
St1 := ''''+DateToStr (now)+'''' ;
Query1.SQL.Clear;
Query1.SQL.Add('select * from table.DB');
Query1.SQL.Add ('WHERE (Date_enregistrement)>('+st1+'()-5)');
Query1.Open;

[tarmo57]

Essaie quelque chose dans le genre :

Code :

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

1
2
3
4
5
6
 
St1 := ''''+DateToStr (now)+'''' ;
Query1.SQL.Clear;
Query1.SQL.Add('select * from table.DB');
Query1.SQL.Add ('WHERE (Date_enregistrement)>('+st1+'()-5)');
Query1.Open;

Merci ALWEBER
j'ai fais des tests modifier un peu, mais j'ais toujours une erreur ,je ne comprend pas pourquoi
mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
var
  St1: String;
begin
St1 := ''''+DateToStr (now)+'''' ;
Query1.SQL.Clear;
Query1.SQL.Add('select * from corps.DB');
Query1.SQL.Add ('WHERE Active_Date_depart = "Non" And (Date_arrive)>('+st1+'()-5)');
Query1.Open;
end;)

et l'erreur

utilisation incorrecte du mot clé Elément: ()-5)

merci par avance de votre aide

[ShaiLeTroll]

Si l'on regarde la requête générée par ce code 'WHERE (Date_enregistrement)>('+st1+'()-5)',
on obtient WHERE (Date_enregistrement) > ('02/04/2012'()-5) .
Trop de Parenthèses, tue la parenthèse !

Sinon la soustraction d'une Date (en format chaine) directement en Paradox

Il faut commencer par des exemples simples

select "02/04/2012" - 5 FROM corps.DB => 30/01/2012 !
Oh ! format Américain sur mon Paradox 7 de BCB6 FR sur un OS Français !

Pourquoi ne pas utiliser la proposition de SergioMaster avec ParamByName, c'est la méthode la plus fiable qui permet d'éviter les '''' et ou les '"' ou encore QuotedStr

Code :

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

1
2
3
4
5
6
7
Query1.SQL.Clear();
Query1.SQL.Add('SELECT * FROM corps.DB');
Query1.SQL.Add('WHERE Active_Date_depart = :HaveDep');
Query1.SQL.Add('AND Date_arrive > :FromDate)');
Query1.ParamByName('HaveDep').AsString := 'Non';
Query1.ParamByName('FromDate').AsDateTime := Date - 5; // IncDay c'est plus lisible ! non ?
Query1.Open();

[SergioMaster]

c'est bien la peine de noter les réponses + ou -
et d'expliquer pourquoi les paramètres c'est mieux
ça ne rentre pas

[tarmo57]

ouha super grand merci a tous. Enfin la requête fonctionne nickel .
Le probleme est resolu

[tarmo57]

c'est bien la peine de noter les réponses + ou -
et d'expliquer pourquoi les paramètres c'est mieux
ça ne rentre pas

tu as raison de faire la remarque SergioMaster
je te présente toutes mes excuses.
J'était tellement perdu dans mes codes que tu m'as donner la réponse sous le nez ,je n'ai pas fait assez attention.

[tarmo57]

J'ai fais des tests la requête fonctionne super mais je n'est pas le résultat voulu
je dois afficher tous les enregistrements qui ont plus de 5 jours d'enregistrements dans la base de donnée. La date de départ est Date_arrive après 5 jours et plus je les affichent dans un DBGrid.
j'ai modifier dans tous les sens ,et rien n'a fonctionner .
une idée ?

[Andnotor]

J'ai fais des tests la requête fonctionne super mais je n'est pas le résultat voulu

DCFQ... ... QDCF...

[tarmo57]

DCFQ... ... QDCF...

SAlut Andnotor que veux dire DCFQ

[Andnotor]

DCQF ?..

[SergioMaster]

et si ... on avait une Description des champs de la table , le code de la requête et/ou le code Delphi

J'ai fais des tests la requête fonctionne super mais je n'est pas le résultat voulu

et le résultat vraiment voulu
Au fil et à mesure de la discussion des champs nouveaux apparaissent
i.e : le champ HaveDep
de plus n'aurais pas tu oublié de parler de l'ordre de tri ? (ORDER BY)

[Linkin]

Littéralement:
La requête affiche les enregistrements datant d'après aujourd'hui - cinq jours, dont ceux des cinq derniers jours.

Donc à peu de chose près l'inverse de ce que tu veux.

[SergioMaster]

La requête indiquée dans mon premier Post (#5) demandais bien les enregistrements ayant 5 jours ou plus

Query1.SQL.Add ('WHERE Date_enregistrement<=:FromDate)');

encore une fois comment un signe <= n'a pas été correctement recopié restera un mystère

juste pour enfoncé le clou au maillet en rajoutant un ordre par date décroissante

Code :

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

1
2
3
4
5
6
7
 
Query1.SQL.Clear;
Query1.SQL.Add('select * from table.DB');
Query1.SQL.Add ('WHERE Date_enregistrement<=:FromDate)');
Query1.SQL.Add ('ORDER BY date_enregistrement desc');
Query1.ParamByName('FromDate').asDateTime:=IncDay(Date,-5);
Query1.Open;