Microsoft 365 First and Last en ADODB VBA

VBA_dev_Anne_Marie · 5 Septembre 2021

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 !

chris · 5 Septembre 2021

Post en double

Microsoft 365 - ADODB VBA sql : First en Last

Bonjour, Je suis en train de coder en ADODB VBA sql. Je cherche à récupérer l'observation la plus récente, le tri est effectué par date. Pourriez-vous m'indiquer un exemple avec la fonction First/Last en ADODB sql VBA, s'il vous plaît ? Merci pour votre aide !

www.excel-downloads.com

dysorthographie · 5 Septembre 2021

Bonjour,
Par défaut un recordset ce trouve sur le premier enregistrement {Movefirst}
Pour se rendre au dernier enregistrement c'est la méthode Movelast !

Note que si ta requête ne retourne aucun enregistrement Movefirst et Movelast genaire un erreur il faut tester si Eof et Bof son différents !

Code:

 Set RS=cn.execute(SQL)
If RS.Eof<>RS.Bof then
Rs.MoveLast
Rs.MoveFirst
End if

juvaxe · 5 Septembre 2021

Bonjour MarieParis

Un exemple de séquence SQL en ADODB

StrSql = "SELECT TOP 1 * FROM table ORDER BY champ DESC"

Mettre ASC ou DESC selon ce que tu cherches en résultat.

Cordialement

dysorthographie · 5 Septembre 2021

Effectivement je me suis dit ça après coup

VBA_dev_Anne_Marie · 6 Septembre 2021

juvaxe à dit:
Bonjour MarieParis

Un exemple de séquence SQL en ADODB

StrSql = "SELECT TOP 1 * FROM table ORDER BY champ DESC"

Mettre ASC ou DESC selon ce que tu cherches en résultat.

Cordialement

Merci ! Pourriez-vous vérifier ma syntaxe, s'il vous plaît ? :
RECSET.Open "select TOP 1 abs(ev.mt_brut_cie) as dernier_versement from db_evenement ev, dp_classe_evt classe order by ev.d_effet desc" & _
" where ev.no_police = '" & NO_POLICE & "' and classe.b_ea =1 and classe.b_rachat = 1 and ev.is_classe_evt=classe.is_classe_evt", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic

Je reçois l'erreur : ORA-00923: FROM keyword not found where expected.

Merci beaucoup pour votre aide !

chris · 6 Septembre 2021

RE

Tu as la réponse dans le message que tu as cité : il suffit de regarder l'ordre des clauses...

dysorthographie · 6 Septembre 2021

un requête est toujours architecturé comme suis!

Select Champs
From {Inner join On Value}
Where facultatif
Group By facultatif
Having facultatif toujours lié à Count, Max, Min, Avg
Order by facultatif

VB:

" select TOP 1 abs(ev.mt_brut_cie) as dernier_versement" & _
" from db_evenement ev, dp_classe_evt classe " & _
" where ev.no_police = '" & NO_POLICE & "' and classe.b_ea =1 and classe.b_rachat = 1 and ev.is_classe_evt=classe.is_classe_evt" & _
" order by ev.d_effet desc"

VBA_dev_Anne_Marie · 6 Septembre 2021

dysorthographie à dit:
un requête est toujours architecturé comme suis!

Select Champs

From {Inner join On Value}

Where facultatif

Group By facultatif

Having facultatif toujours lié à Count, Max, Min, Avg

Order by facultatif

VB:

" select TOP 1 abs(ev.mt_brut_cie) as dernier_versement" & _ " from db_evenement ev, dp_classe_evt classe " & _ " where ev.no_police = '" & NO_POLICE & "' and classe.b_ea =1 and classe.b_rachat = 1 and ev.is_classe_evt=classe.is_classe_evt" & _ " order by ev.d_effet desc"

Merci, mais j'ai toujours la même erreur peut-être c'est à cause de 2 tables : from db_evenement ev, dp_classe_evt classe ?

VBA_dev_Anne_Marie · 6 Septembre 2021

chris à dit:
RE

Tu as la réponse dans le message que tu as cité : il suffit de regarder l'ordre des clauses...

Je suis vraiment désolée, mais je ne vois pas d'erreur.
Je code beaucoup en SAS, je suis débutante en VBA sql.

dysorthographie · 6 Septembre 2021

essais comme ça!

VB:

" select TOP 1 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"

VBA_dev_Anne_Marie · 6 Septembre 2021

dysorthographie à dit:

essais comme ça!

VB:

" select TOP 1 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"

Merci, mais j'ai toujours la même erreur sur "from". Voci mon code :
Dim RECSET As New ADODB.Recordset
RECSET.Open " select TOP 1 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", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic

Je me demande si l'utilisation de TOP 1 est possible en ADODB RECSET.

dysorthographie · 6 Septembre 2021

le top Fonctionne avec ADO.
je t'invite à découper ta requête pour trouver l'erreur!

VB:

" select TOP 1 abs(ev.mt_brut_cie) as dernier_versement" & _
" from db_evenement ev"

Code:

 " select TOP 1 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"

Code:

 "select TOP 1 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 & "'"

ETC

VBA_dev_Anne_Marie · 6 Septembre 2021

dysorthographie à dit:

le top Fonctionne avec ADO.
je t'invite à découper ta requête pour trouver l'erreur!

VB:

" select TOP 1 abs(ev.mt_brut_cie) as dernier_versement" & _
" from db_evenement ev"

Code:

 " select TOP 1 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"

Code:

 "select TOP 1 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 & "'"

ETC

Très bonne idée, merci beaucoup, je regarde, c'est très curieux !

dysorthographie · 6 Septembre 2021

Debug.Print Sq vas copier le texte de ta requête dans la fenêtre d'exécution!
il te sufis de le copier coller dans Sql manageur pour l'évaluer et corriger le problèmes!

VB:

Dim Sql As String
Sql = " select TOP 1 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"
Debug.Print Sql

Microsoft 365 First and Last en ADODB VBA

VBA_dev_Anne_Marie

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

Microsoft 365 - ADODB VBA sql : First en Last

dysorthographie

XLDnaute Accro

juvaxe

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

VBA_dev_Anne_Marie

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

VBA_dev_Anne_Marie

XLDnaute Occasionnel

VBA_dev_Anne_Marie

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

VBA_dev_Anne_Marie

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

VBA_dev_Anne_Marie

XLDnaute Occasionnel

dysorthographie

XLDnaute Accro

Discussions similaires