Discussion :

[kavinsky31]

Bonjour,
Voila j'ai un prog. avec bd access sous delphi7,
Le client demande d'extraire les données par période (sem,mois,années), j'ai crée mes requêtes SQL et tous fonctionne a merveille apart l'extraction de la semaine (dont la semaine est entres deux mois) en sachant que le debut de la semaine chez nous est le dimanche.
un bout de mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
with ADOQuery1 do
  begin    
    Close;
    SQL.Clear;
    SQL.Add('Select * from Consultations');
    SQL.Add('where (Dentiste=:dent');
    SQL.Add('and (DatePart ("ww", [LaDate])=:tdy1 and DatePart ("m", [LaDate])=:mois1 and DatePart ("yyyy", [LaDate])=:annee1)');
            if DayOfWeek(PlannerCalendar1.Date)=1 then
    begin parameters.ParamValues['tdy1']:=WeekOf((PlannerCalendar1.Date)+1); end
    else begin parameters.ParamValues['tdy1']:=WeekOf(PlannerCalendar1.Date);end;
    parameters.ParamValues['mois1']:=MonthOf(PlannerCalendar1.Date);
    parameters.ParamValues['annee1']:=YearOf(PlannerCalendar1.Date);
    open;

par ex mai 2018 sa première semaine contient le 29 et 30 avril donc si j’exécute ma requête les donnes de ces dates sont pas extraites merci d'avance !

[SergioMaster]

Bonjour et bienvenue,

pourquoi ne pas exprimer la requête différemment ?

Code SQL :

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

1
2
Select * from Consultations where Dentiste=:dent 
                 and LaDate between :debutsemaine and :finSemaine

- je ne suis pas un fan de Access loin de là, donc la deuxième ligne de la requête est peut être à modifier en fonction de votre colonne,
- :finSemaine pourrait être remplacé par :debutsemaine+7, mais ça dépend si les composants d'accès SQL permettent la réutilisation de paramètres

il vous suffit maintenant au niveau de votre code de trouver le premier jour de la semaine en fonction de la date PlannerCalendar1.Date,
je n'ai plus trop la mémoire des possibilités de Delphi 7 à ce sujet,
debutsemaine:= StartOfTheWeek(PlannerCalendar1.Date); donne le lundi de la semaine et non le dimanche
il faut donc avant transformer PlannerCalender1.Date en un jour "neutre" de semaine par exemple un mardi, mercredi et seulement ensuite
utiliser debutsemaine:= StartOfTheWeek(PlannerCalendar1.Date) -1 ;

[kavinsky31]

Merci Sergio,

J'ai effectivement changer la structure de la requête c'est plus correcte surtout avec la semaine ou l'année change
mais sinon delphi + SQL db access Ouffff c trop chiant.

Voila le principe pour ceux qui ont la même demande avec un dimanche comme début de semaine

Code :

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

1
2
3
4
5
6
7
8
9
SQL.Add('where (LaDate between :debutsemaine and :finsemaine)';
 
     Parameters.ParamByName('debutsemaine').DataType:=ftDate;
     Parameters.ParamByName('finsemaine').DataType:=ftDate;
      if DayOfWeek(PlannerCalendar1.Date)=1 then
    begin Parameters.ParamByName('debutsemaine').Value:=StartOfTheWeek(PlannerCalendar1.date)+6;
          Parameters.ParamByName('finsemaine').Value:=EndOfTheWeek(PlannerCalendar1.date)+6; end
    else begin Parameters.ParamByName('debutsemaine').Value:=StartOfTheWeek(PlannerCalendar1.date)-1;
    Parameters.ParamByName('finsemaine').Value:=EndOfTheWeek(PlannerCalendar1.date)-1;end;

[SergioMaster]

Bonjour,

mais sinon delphi + SQL db access Ouffff c trop chiant.

n'étant ni fan d'ADO, ni d'Access je ne peux que confirmer

J'aurais procédé quelque peut différemment en ne calculant que la date de début de semaine sachant que la fin de semaine est égale à Date de début + 7

[anapurna]

salut

je ne vois pas bien l’intérêt d'avoir autant de date

en SQL comme en développement il faut différencier les données choisie de ce que tu affiche
tu as une multitude de choix avec la fonction DATEPART
il faut juste savoir ce que tu veut afficher pour choisir le bon trie

SELECT Dentiste,...,LaDate
,DATEPART(ISOWK,LaDate) AS 'ISO WEEK'
,DATEPART(DAY, LaDate) As 'DAY'
,DATEPART(MONTH,LaDate) As 'MONTH'
,DATEPART(YEAR,LaDate) As 'YEAR'
FROM CONSULTATIONS
WHERE Dentiste=:dent

une fois le choix fait a toi d'afficher

[SergioMaster]

Bonjour,

je ne vois pas bien l’intérêt d'avoir autant de date

je suis d'accord il y en a une de trop

tu as une multitude de choix avec la fonction DATEPART

par contre je ne suis pas d'accord avec l'utilisation de la fonction DATEPART ISO WEEK puisque une des premières spécifications est:

ma semaine standard commence le dimanche

, de plus il y aurait un bug sur cette fonction du moins était-ce le cas encore début 2016 (étonnant de la part de MS ) selon la lecture de ceci
où, étrangement, les liens sur les rapports de bugs finissent sur une page 404 (MS mauvais joueur )
Pour obtenir la bonne semaine à partir d'une date il faudrait utiliser : DatePart("ww", DATEDEPART, 1,2) Voir ici

[anapurna]

salut

bin en fait il faut qu'il choisisse le calendrier qui l’intéresse le plus et l'année qui va avec ^^
la plupart des bases de donnée gère les deux type de semaine