Microsoft 365 First and Last en ADODB VBA

[VBA_dev_Anne_Marie]

Bonjour,

Je suis en train de coder en sql ADODB VBA. Je cherche à récupérer l'observation la plus récente (triée par date).
Pourriez-vous me donner l'exemple de la fonction First/Last en ADODB VBA ?

Merci beaucoup !

 

[VBA_dev_Anne_Marie]

Exact, j'ai construit 2 petites tables avec très peu de lignes et surtout de dates.
Je me re penche sur la bonne requête ....

Je voudrai faire ça, mais la syntaxe n'est pas bonne

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

 

[VBA_dev_Anne_Marie]

Je voudrai faire ça, mais la syntaxe n'est pas bonne

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

Dans la db_evenement, je regarde si la date réponds à mes conditions (je prends le max après la jointure) ensuite je refait la jointure sur Max(Date) avec dp_classe_evt cl2. Mais je ne sais pas où je me trompe dans l'orthographe. En fait, dans db_evenement il a bcp de données, je dois travailler juste sur les données qui sont aussi présentes dans dp_classe_evt. Merci beaucoup pour votre aide !

 

[dysorthographie]

Voila ce que j'ai trouvé sur SAS

https://www.math.univ-toulouse.fr/~besse/Wikistat/pdf/st-tutor5-sas-sql.pdf

il me semble bien qu'il est question d'entrer du code SQL!

si tu fait un copié collé de SAS à VBA ça doit fonctionner!

 

[VBA_dev_Anne_Marie]

Voila ce que j'ai trouvé sur SAS

https://www.math.univ-toulouse.fr/~besse/Wikistat/pdf/st-tutor5-sas-sql.pdf

il me semble bien qu'il est question d'entrer du code SQL!

si tu fait un copié collé de SAS à VBA ça doit fonctionner!

Désolé, la page en question ne s'ouvre pas.

 

[dysorthographie]

Désolé

 

[fanch55]

Voila ce que j'ai trouvé sur SAS

https://www.math.univ-toulouse.fr/~besse/Wikistat/pdf/st-tutor5-sas-sql.pdf

il me semble bien qu'il est question d'entrer du code SQL!

si tu fait un copié collé de SAS à VBA ça doit fonctionner!

J'ouvre bien ...

 

[VBA_dev_Anne_Marie]

J'ouvre bien ...

Oui, j'ai un code SAS qui fonctionne bien, comment traduire ce code en ADODB :

 

[VBA_dev_Anne_Marie]

Désolé

Je voudrais mettre mon code SAS en VBA en fait, en passant par Recordset ADODB, voici la "traduction" mais elle ne marche pas :

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

Je suis débutante en ADODB, si vous pourriez m'aider, j'en serais très reconnaissante, ça fait 3 jours que je galère

 

[VBA_dev_Anne_Marie]

Je voudrais mettre mon code SAS en VBA en fait, en passant par Recordset ADODB, voici la "traduction" mais elle ne marche pas :

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

Je suis débutante en ADODB, si vous pourriez m'aider, j'en serais très reconnaissante, ça fait 3 jours que je galère

J'ai copier-coller mon code SAS qui marche en VBA :

    RECSET.Open "Select  Max(ev.d_effet ), Sum(Abs(ev.mt_brut_cie)) as cumul" & _
"from psaeu11.db_evenement as ev Inner join psaeu11.dp_classe_evt  as 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" & _
"and ev.d_effet = (" & _
"select Max(ev2.d_effet)" & _
"from      db_evenement  ev2" & _
"Inner join dp_classe_evt cl2" & _
"On ev2.is_classe_evt=cl2.is_classe_evt" & _
"where ev2.no_police='" & NO_POLICE & "' and cl2.b_ea=1 and cl2.b_rachat=1)",

Je reçois l'erreur : FROM keyword not found where expected

 

[dysorthographie]

j'ai repris ton script SAS et je l'ai retravaillé avec Notpad++
fais un test!

"Select  Max(ev.d_effet ), Sum(Abs(ev.mt_brut_cie)) as cumul " & _
 " from psaeu11.db_evenement as ev Inner join psaeu11.dp_classe_evt  as cl " & _
 "  On ev.is_classe_evt=cl.is_classe_evt " & _
 "    where ev.no_police='T342GB00827' and cl.b_ea=1 and cl.b_rachat=1 " & _
 "and ev.d_effet = ( " & _
 "   select Max(ev2.d_effet) " & _
 "   from       psaeu11.db_evenement  ev2 " & _
 "   Inner join psaeu11.dp_classe_evt cl2 " & _
 "  On ev2.is_classe_evt=cl2.is_classe_evt " & _
 "    where ev2.no_police='T342GB00827' and cl2.b_ea=1 and cl2.b_rachat=1); "

tu n'a pas mis d'espace en fin de ligne

ev2" & _
"Inner join dp_classe_evt cl2"

 

[VBA_dev_Anne_Marie]

j'ai repris ton script SAS et je l'ai retravaillé avec Notpad++
fais un test!

"Select  Max(ev.d_effet ), Sum(Abs(ev.mt_brut_cie)) as cumul " & _
 " from psaeu11.db_evenement as ev Inner join psaeu11.dp_classe_evt  as cl " & _
 "  On ev.is_classe_evt=cl.is_classe_evt " & _
 "    where ev.no_police='T342GB00827' and cl.b_ea=1 and cl.b_rachat=1 " & _
 "and ev.d_effet = ( " & _
 "   select Max(ev2.d_effet) " & _
 "   from       psaeu11.db_evenement  ev2 " & _
 "   Inner join psaeu11.dp_classe_evt cl2 " & _
 "  On ev2.is_classe_evt=cl2.is_classe_evt " & _
 "    where ev2.no_police='T342GB00827' and cl2.b_ea=1 and cl2.b_rachat=1); "

tu n'a pas mis d'espace en fin de ligne

ev2" & _
"Inner join dp_classe_evt cl2"

Est-ce que je peux remplacer les par 'T342GB00827' '" & NO_POLICE & "' (variable macro), sinon ça reste en dur.
Est-ce que je peux enlever les psaeu11 ? Mon code adodb VBA commence avec par Call CONNEXION_PEGASE, je n'ai pas besoin de mettre les psaeu11 je crois.

 

[dysorthographie]

oui bien sur si ta connection adodb ce fait bien sur psaeu11

 

[fanch55]

Cela rejoint ce que je testais :

Sub testMP()
db_Ev = "db_evenement"
db_Cl = "dp_classe_evt"
no_police = "T342GB00827"
requete = _
    " Select  max(d_effet),sum(Abs(mt_brut_cie)) " & _
    "  from " & db_Ev & " as T1 " & _
    "     Inner join " & db_Cl & " as T2 " & _
    "     On T1.is_classe_evt = T2.is_classe_evt" & _
    "     where T1.no_police = '" & no_police & "' and T2.b_ea =1 and T2.b_rachat = 1 " & _
    "   and T1.d_effet = ( " & _
    "    select Max(d_effet) " & _
    "     from       " & db_Ev & "  ev " & _
    "     Inner join " & db_Cl & " 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 " & _
    "    ) "
RECSET.Open requete, cnn_Pegase, adOpenDynamic, adLockBatchOptimistic

End Sub

Mais il me semble qu'avec Oracle, on peut utiliser des With qui évite de réécrire la même requete,
ce que je ne peux pas faire avec mon driver Excel .

 

[VBA_dev_Anne_Marie]

Cela rejoint ce que je testais :

Sub testMP()
db_Ev = "db_evenement"
db_Cl = "dp_classe_evt"
no_police = "T342GB00827"
requete = _
    " Select  max(d_effet),sum(Abs(mt_brut_cie)) " & _
    "  from " & db_Ev & " as T1 " & _
    "     Inner join " & db_Cl & " as T2 " & _
    "     On T1.is_classe_evt = T2.is_classe_evt" & _
    "     where T1.no_police = '" & no_police & "' and T2.b_ea =1 and T2.b_rachat = 1 " & _
    "   and T1.d_effet = ( " & _
    "    select Max(d_effet) " & _
    "     from       " & db_Ev & "  ev " & _
    "     Inner join " & db_Cl & " 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 " & _
    "    ) "
RECSET.Open requete, cnn_Pegase, adOpenDynamic, adLockBatchOptimistic

End Sub

Mais il me semble qu'avec Oracle, on peut utiliser des With qui évite de réécrire la même requete,
ce que je ne peux pas faire avec mon driver Excel .

Merci beaucoup, malheureusement, je reçois une erreur :

 

[fanch55]

Merci beaucoup, malheureusement, je reçois une erreur :
Regarde la pièce jointe 1115252

Oracle est devenu bien strict !!!!
Terminer Requete avec un ;