Discussion :

[sondo]

Bonjour à tous,

Je viens à vous pour demander de l'aide pour la mise en place d'une requête. En voici les ligne :

Code :

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

1
2
3
4
5
select sum(nvl( JRCBT_MONTANT,0)) recette_police_caisse,EVT_NUMCPTE,EVT_LIBELLE,to_date(JRCBT_DATE#,'dd/mm/yyyy') journee from
gc_JRcbt,gcc_evt_comptable
where to_date(JRCBT_DATE#,'dd/mm/yyyy') between to_date('&date1','dd/mm/yyyy') and to_date('&date2','dd/mm/yyyy')
and JRCBT_EVT#=EVT_CODE#
group by EVT_NUMCPTE,EVT_LIBELLE,to_date(JRCBT_DATE#,'dd/mm/yyyy') ;

Et voilà ce que j'ai fais en Delphi :

Code :

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

1
2
3
4
5
6
7
8
9
Query1.sql.Clear;
  Query1.sql.Add('select sum(nvl(JRCBT_MONTANT,0)) recette_police_caisse,EVT_NUMCPTE,EVT_LIBELLE, to_date(JRCBT_DATE#,'dd/mm/yyyy') from gc_JRcbt,gcc_evt_comptable');
  Query1.sql.Add('where to_date(JRCBT_DATE#,'dd/mm/yyyy') between');
  Query1.sql.Add('to_date('+Quotedstr(formatdatetime('dd/mm/yyyy', DateTimePicker1.Date))+','+QuotedStr('dd/mm/yyyy')+')');
  Query1.sql.Add('and ');
  Query1.sql.Add('to_date('+Quotedstr(formatdatetime('dd/mm/yyyy', DateTimePicker2.Date))+','+QuotedStr('dd/mm/yyyy')+')');
  Query1.sql.Add(')');
  Query1.sql.Add('group by EVT_NUMCPTE,EVT_LIBELLE, to_date(JRCBT_DATE#,'dd/mm/yyyy'));
  Query1.Open;

Mais je remarque que j'ai des problème avec to_date(JRCBT_DATE#,'dd/mm/yyyy'). Delphi signal un problème de parenthèse. Je ne suis pas très habile dans la mise en forme des chaines de caractères.
Merci à vous de m'aider.

[SergioMaster]

Bonjour,

c'est certainement là ou une query paramétrée serait préférable

Code :

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

1
2
3
4
5
6
7
8
9
 
Query1.sql.Clear;
  Query1.sql.Add('select sum(nvl(JRCBT_MONTANT,0)) recette_police_caisse,EVT_NUMCPTE,EVT_LIBELLE,JRCBT_DATE  from gc_JRcbt JOIN gcc_evt_comptable ON JRCBT_EVT=EVT_CODE'); // à remarquer la Jointure plutôt qu'un where 
  Query1.sql.Add('where JRCBT_DATE between');
  Query1.sql.Add(':Fdate and :TDate');
  Query1.sql.Add('group by EVT_NUMCPTE,EVT_LIBELLE,JRCBT_DATE');
  Query1.Parambyname('FDate').asDateTime:=DateTimePicker1.Date;
  Query1.Parambyname('TDate').asDateTime:=DateTimePicker2.Date;
  Query1.Open;

cependant , je ne connais pas la SGBD utilisée Oracle?
cela fonctionnerait pour Interbase ou Firebird

[sondo]

Salut SergioMaster,

Merci pour ton aide. J'ai essayé ta requête, mais elle ne renvoie aucune ligne. Peut-être que c'est parce que je suis sous oracle 10g.
A bientôt.

[sondo]

Salut,

Je me suis trompé dans mon post précédent. En réalité je mettait des date qui n'existait pas dans la base, donc des résultats nuls.
La requête marche mais il ne ramène pas le même nombre de lignes que l'autre.
Par exemple, cette requête ramène 11 ligne

Code :

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

1
2
3
4
5
select sum(nvl( JRCBT_MONTANT,0)) recette_police_caisse,EVT_NUMCPTE,EVT_LIBELLE,to_date(JRCBT_DATE#,'dd/mm/yyyy') journee from
gc_JRcbt,gcc_evt_comptable
where to_date(JRCBT_DATE#,'dd/mm/yyyy') between to_date('&date1','dd/mm/yyyy') and to_date('&date2','dd/mm/yyyy')
and JRCBT_EVT#=EVT_CODE#
group by EVT_NUMCPTE,EVT_LIBELLE,to_date(JRCBT_DATE#,'dd/mm/yyyy') ;

et celui-ci ramène 6 lignes

Code :

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

1
2
3
4
5
6
7
8
9
 
Query1.sql.Clear;
  Query1.sql.Add('select sum(nvl(JRCBT_MONTANT,0)) recette_police_caisse,EVT_NUMCPTE,EVT_LIBELLE,JRCBT_DATE  from gc_JRcbt JOIN gcc_evt_comptable ON JRCBT_EVT=EVT_CODE'); // à remarquer la Jointure plutôt qu'un where 
  Query1.sql.Add('where JRCBT_DATE between');
  Query1.sql.Add(':Fdate and :TDate');
  Query1.sql.Add('group by EVT_NUMCPTE,EVT_LIBELLE,JRCBT_DATE');
  Query1.Parambyname('FDate').asDateTime:=DateTimePicker1.Date;
  Query1.Parambyname('TDate').asDateTime:=DateTimePicker2.Date;
  Query1.Open;

Il y'a quelque chose qui ne va pas. Je cherche toujours le problème.

[SergioMaster]

Bonjour , évidemment pour Oracle il fallait s'inspirer de la forme (paramètres)

N'ayant pas /ne connaissant pas suffisamment Oracle , je ne peut faire que des suggestions

Tout d'abord dans les lignes 1 et 2 et 8 de ta requête

to_date(JRCBT_DATE#,'dd/mm/yyyy')

il faut faut soit doubler les ' soit utiliser quotedstr('dd/mm/yyyy') avec les inconvénients que cela comporte (les concaténations de chaines)

Code :

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

1
2
3
 
  Query1.sql.Add('select sum(nvl(JRCBT_MONTANT,0)) recette_police_caisse,EVT_NUMCPTE,EVT_LIBELLE, to_date(JRCBT_DATE#,''dd/mm/yyyy'') from gc_JRcbt,gcc_evt_comptable');
  Query1.sql.Add('where to_date(JRCBT_DATE#,''dd/mm/yyyy'') between');

ou

Code :

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

1
2
3
 
  Query1.sql.Add('select sum(nvl(JRCBT_MONTANT,0)) recette_police_caisse,EVT_NUMCPTE,EVT_LIBELLE, to_date(JRCBT_DATE#,'+QuotesStr('dd/mm/yyyy')+') from gc_JRcbt,gcc_evt_comptable');
  Query1.sql.Add('where to_date(JRCBT_DATE#,'+QuotedStr('dd/mm/yyyy')+')  between');

ensuite , je ne comprend pas trop le # en fin de champ (ça c'est du à ma méconnaissance d'ORACLE.


[Edit] suite a un post au même moment je n'avais pas lu la suite
la différence entre le nombre de résultat reçu c'est peut être du à la jointure
Comme je ne connais pas la relation entre les deux tables , je ne peut que suggérer un test entre LEFT [OUTER/INNER] JOIN,FULL JOIN , RIGHT [OUTER/INNER] JOIN etc...

mais aussi au format du champ Date ou TimeStamp ?
s'il s'agit d'un TimeStamp ,
Query.paramByName('TDate).asDateTime:= DateTimePicker2.Date+1; devrait fonctionner