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]

ça marche pas

 

[fanch55]

ça marche pas
Regarde la pièce jointe 1115257

Vraiment très strict : un select doit finir par un ;
et il y en a 2 ...

Sub testMP()
Dim Requete As String
    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

 

[VBA_dev_Anne_Marie]

Vraiment très strict : un select doit finir par un ;
et il y en a 2 ...

Sub testMP()
Dim Requete As String
    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

J'ai rempla

Vraiment très strict : un select doit finir par un ;
et il y en a 2 ...

Sub testMP()
Dim Requete As String
    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

Merci, mais , malheureusement ça ne marche pas :

 

[VBA_dev_Anne_Marie]

J'ai rempla

Merci, mais , malheureusement ça ne marche pas :
Regarde la pièce jointe 1115260

Voici du code qui marche, normalement, je n'utilisais pas "," :

 

[fanch55]

Essayez cela :

        " Select  Max(d_effet),Sum(Abs(mt_brut_cie)) " & _
        "           from " & db_Ev & " T1 " & _
        "     Inner join " & db_Cl & " 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 " & _
        "     )"

 

[VBA_dev_Anne_Marie]

Essayez cela :

        " Select  Max(d_effet),Sum(Abs(mt_brut_cie)) " & _
        "           from " & db_Ev & " T1 " & _
        "     Inner join " & db_Cl & " 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 " & _
        "     )"

Merci beaucoup, ça marche bien ! C'était quoi, l'erreur ?

 

[fanch55]

Merci beaucoup, ça marche bien ! C'était quoi, l'erreur ?

Oracle oh désespoir ....
Je me suis rappelé que contrairement à d'autres SGBD,
l'alias d'une table dans Oracle ne peut pas être écrit avec le mot_clé As

 

[VBA_dev_Anne_Marie]

Oracle oh désespoir ....
Je me suis rappelé que contrairement à d'autres SGBD,
l'alias d'une table dans Oracle ne peut pas être écrit avec le mot_clé As

Mince, désolée, je savais, je n'ai pas vu Merci beaucoup pour ton aide, franch55 !

 

[VBA_dev_Anne_Marie]

Salut à tous,
et si on combinait comme cela :

"Select * From ( " & _
"   Select Abs(ev.mt_brut_cie) As dernier_versement " & _
"              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 " & _
"         order by ev.d_effet desc" & _
"    ) Where Rownum <= 1;"

ou

"Select * From ( " & _
"   Select Abs(ev.mt_brut_cie) As dernier_versement " & _
"              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 " & _
"         order by ev.d_effet desc" & _
"    ) FETCH FIRST 1 ROWS ONLY;""

Merci beaucoup, fanch55, le premier code marche bien.

​