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 !

 

[chris]

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]

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 !

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

 

[juvaxe]

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]

Effectivement je me suis dit ça après coup

 

[VBA_dev_Anne_Marie]

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]

RE

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

 

[dysorthographie]

un requête est toujours architecturé comme suis!

1. Select Champs
2. From {Inner join On Value}
3. Where facultatif
4. Group By facultatif
5. Having facultatif toujours lié à Count, Max, Min, Avg
6. Order by facultatif

" 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]

un requête est toujours architecturé comme suis!

1. Select Champs
2. From {Inner join On Value}
3. Where facultatif
4. Group By facultatif
5. Having facultatif toujours lié à Count, Max, Min, Avg
6. Order by facultatif

" 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]

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]

essais comme ça!

" 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]

essais comme ça!

" 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]

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

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

2.  " 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"

3.  "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 & "'"

4. ETC

 

[VBA_dev_Anne_Marie]

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

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

2.  " 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"

3.  "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 & "'"

4. ETC

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

 

[dysorthographie]

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!

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