Microsoft 365 First and Last en ADODB VBA

fanch55 à dit:

Le Having ne sert que quand on regroupe (order by ...) ( d'où l'erreur ORA-00937 retournée par Oracle ).
Vous voulez regrouper par quoi ?
Je ne répond que par mémoire, n'ayant pas/plus de base oracle ...

Cliquez pour agrandir...

dysorthographie à dit:

Bonjour,
J'ai copié bêtement mais d.effet ne correspond à aucuncun champs de aucune table !

Cliquez pour agrandir...

Dim RECSET As New ADODB.Recordset
    RECSET.Open "select dernier_versement from (" & _
"    select  abs(ev.mt_brut_cie) as dernier_versement,count(ev.d_effet) NB" & _
"     from db_evenement ev inner join  dp_classe_evt classe On ev.is_classe_evt=classe.is_classe_evt" & _
"     where ev.no_police = '" & NO_POLICE & "' and classe.b_ea =1 and classe.b_rachat = 1 " & _
"     Group By   Abs(ev.mt_brut_cie) " & _
"     Having count(ev.d_effet)<>1 ) " & _
"     order by ev.d_effet desc)", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic

dysorthographie à dit:

Bonjour Marie,
Disposes tu d'Oracle SQL Manager sur ton ordinateur ?

Cliquez pour agrandir...

fanch55 à dit:

Bonsoir Marie,
Pourriez-vous dire ce que vous cherchez exactement avec votre requête car certaines clauses semblent contradictoires ...

Cliquez pour agrandir...

fanch55 à dit:

Je pense que vous n'avez pas besoin de faire de Having ou de group ou de order by,
testez la requête ci-jointe

VB:

" Select  Max(d_effet ), Sum(Abs(mt_brut_cie)) " & _
"  from db_evenement " & _
"  where d_effet = ( " & _
"    select Max(d_effet) " & _
"     from       db_evenement  ev " & _
"     Inner join dp_classe_evt cl " & _
"     On ev.is_classe_evt=cl.is_classe_evt" & _
"     where ev.no_police='" & NO_POLICE & "' and cl.b_ea=1 and cl.b_rachat=1 " & _
"    ) "

Dans le cas le plus courant, vous aurez le dernier versement
Si plusieurs versements ont été faits à la même date, vous en aurez le cumul .
Pour le First, vous remplacez Max par Min ...

Cliquez pour agrandir...

MarieParis à dit:

Merci, faudrait-il mettre select Max(ev.d_effet) au lieu de select Max(d_effet) ? C'est étrange, mais je ne retrouve pas le bon résultat.

Cliquez pour agrandir...

MarieParis à dit:

Si il y a plus qu'une observation pour la date la plus récente, est-ce que ce code permet de faire le cumul de toutes ces lignes ?

Cliquez pour agrandir...

fanch55 à dit:

d_effet n'étant présent que dans db_evenement, il n'y a pas besoin de préciser ev. , mais si vous le préférez, cela ne coute rien de le préciser , le résultat sera le même .
Vous dites que le résultat ne semble pas bon : la date ou le montant ?
vous pouvez faire un test avec Select d_effet , Abs(mt_brut_cie) en tête de requête pour voir le nombre de retours ...


C'est ce que fait Max(d_effet ), Sum(Abs(mt_brut_cie))

Cliquez pour agrandir...

fanch55 à dit:

d_effet n'étant présent que dans db_evenement, il n'y a pas besoin de préciser ev. , mais si vous le préférez, cela ne coute rien de le préciser , le résultat sera le même .
Vous dites que le résultat ne semble pas bon : la date ou le montant ?
vous pouvez faire un test avec Select d_effet , Abs(mt_brut_cie) en tête de requête pour voir le nombre de retours ...


C'est ce que fait Max(d_effet ), Sum(Abs(mt_brut_cie))

Cliquez pour agrandir...

dysorthographie à dit:

bonjour,
SAS est une interface qui te permets d'exécuter des Requêtes?

ADODB est une interface de communication entre VBA et ta base de données! il utilise le connecteur SAS et la même syntaxe! c'est le connecteur SAS qui fige la syntaxe SQL d'ADODB pas le contraire!

Cliquez pour agrandir...

MarieParis à dit:

En fait, je pense que l'on récupère le max(d_effet) suite à la jointure, et on revient dans db_evenement pour trouver une date qui répond à ce max(d_effet). En fait, je souhaiterais trouver la date qui répond à max(d_effet) dans la table que l'on obtient suite à la jointure. C'est pour cela que je trouve des sum trop gros, alors qu'il y a deux ligner à sommer.

Cliquez pour agrandir...