Discussion :

[sondo]

Bonjour,

Cette ligne de requête marche bien dans dans l'editeur de commande SQL.

Code :

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

Select floor(months_between(to_date(sysdate,'dd/mm/yyyy'),to_date(max(ts),'dd/mm/yyyy'))) nb_redevance

Maintenant je veux l'utiliser en delphi dans un Query, et cela pose problème.
Voilà ce que j'ai fais :

Code :

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

Query_Red.Sql.Add('Select floor(months_between to_date(formatdatetime('dd/mm/yyyy')+','+ 'to_date(max(ts),'dd/mm/yyyy'))) nb_redevance');

Je rencontre toujours des erreurs à la l'exécution.
Pouvez-vous m'aider en ce sens.
Merci d'avance.

[ShaiLeTroll]

Dois-je sortir ma boule de cristal pour deviner le type de composants, de drivers et de DB que tu utilise ? ADO ODBC Oracle ? MyDAC MySQL ? BDE Paradox ?

Sinon, les deux requêtes ne sont absolument pas identique, ... pourquoi ne pas faire simplement

Code :

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

Query_Red.Sql.Add('Select floor(months_between(to_date(sysdate,''dd/mm/yyyy''),to_date(max(ts),''dd/mm/yyyy''))) nb_redevance');

Ensuite, tu dois avoir un problème à la compilation, puisque tu as des chaines non terminés, des concaténations n'importe où, ...

[Yurck]

Je rencontre toujours des erreurs à la l'exécution.

Certes mais quelles erreurs ?

il semble que tu ais un problème de syntaxe.
uitlises la fonction quotedstr et le débogueur

Code :

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

1
2
3
4
5
6
7
8
 
 
try
Query_Red.Sql.Add('Select floor(months_between to_date(formatdatetime('dd/mm/yyyy')+','+ 'to_date(max(ts),'dd/mm/yyyy'))) nb_redevance');
except
on e:exeption do
 showmessage ( Query_Red.Text + slinebreak + e.message);
end;

[grillé] Décidemment top lent [/grillé]

[sondo]

Salut à tous

en faisant comme ShaiLeTroll:

Code :

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

Query_Red.Sql.Add('Select floor(months_between(to_date(sysdate,''dd/mm/yyyy''),to_date(max(ts),''dd/mm/yyyy''))) nb_redevance');

Ca marche.
Voici toute la requête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Query_Red.Sql.Clear;
        Query_Red.Sql.Add('select  vps.meter.msno,vps.meter.meter_status_id status,inst_date date_installation,substr(vps.location.location_ref,1,20) numero_abonne');
        Query_Red.Sql.Add(',substr(vps.area.area,1,3) section,vps.mrl.maxlimit profil_tarifaire, count(distinct tkn) nb_achat, sum(nvl(UNITS,0)) kWH,max(ts) dernier_achat');
        Query_Red.Sql.Add(',floor(months_between(to_date(sysdate,''dd/mm/yyyy''),to_date(max(ts),''dd/mm/yyyy''))) nb_redevance');
        Query_Red.Sql.Add('from vps.meter,vps.location,vps.trn,vps.mrl,vps.area');
        Query_Red.Sql.Add('where vps.meter.location_id=vps.location.location_id');
        Query_Red.Sql.Add('and vps.meter.msno=vps.trn.msno');
        Query_Red.Sql.Add('and vps.meter.mrl_id=vps.mrl.mrl_id');
        Query_Red.Sql.Add('and vps.area.area_id=vps.location.area_id');
        Query_Red.Sql.Add('and upper(tkn) != ' + QuotedStr('REVERSED'));
        Query_Red.Sql.Add('and floor(months_between(to_date(sysdate,''dd/mm/yyyy''),to_date(max(ts),''dd/mm/yyyy''))) = ' + QuotedStr(Edit1.text));
        Query_Red.Sql.Add('group by vps.meter.msno,vps.meter.meter_status_id ,inst_date ,substr(vps.location.location_ref,1,20) ,substr(vps.area.area,1,3) ,vps.mrl.maxlimit');
        Query_Red.Sql.Add('order by round(months_between(sysdate,max(ts)))  , substr(vps.area.area,1,3),substr(vps.location.location_ref,1,20)');
        Query_Red.Open;

En l'exécutant j'ai l'erreur suivante : ORA - 934 : Group function is not allowed here.

[SergioMaster]

essayes en mettant le numéro des colonnes plutôt que le noms des champs

Code :

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

1
2
 
group by 1,2,3 .....