Classement par max
Bonjour tout le monde,
Je travaille sur VB6.
Je cherche à avoir le dernier mois de la liste (type string), format (mm/aaaa)
Mon code
Sqls="select max(mois) from TableMois where (societe=' " & cstr(varsociete) & " ')" If rs.state=adstateopen then rs.close Rs.open Sqls, db, adopenKeyset, adLockPessimustic LblMois= Rs.fields(0) Rs.close
Sans résultat correcte. Merci pour votre aide
Bonjour tout le monde,
Je travaille sur VB6.
Je cherche à avoir le dernier mois de la liste (type string), format (mm/aaaa)
Mon code
<code basic>
Sqls="select max(mois) from TableMois where (societe=' " & cstr(varsociete) & " ')"
If rs.state=adstateopen then rs.close
Rs.open Sqls, db, adopenKeyset, adLockPessimustic
LblMois= Rs.fields(0)
Rs.close
</code>
Sans résultat correcte. Merci pour votre aide
Android / Chrome 103.0.0.0
<code basic> Sqls="select max(mois) from TableMois where (societe=' " & cstr(varsociete) & " ')" If rs.state=adstateopen then rs.close Rs.open Sqls, db, adopenKeyset, adLockPessimustic LblMois= Rs.fields(0) Rs.close </code> Android / Chrome 103.0.0.0
2 réponses
-
Contributeur
bonjour, as-tu testé la requête hors VBA?
-
Bonjour,
Merci pour votre réponse, j'ai contourner le problème par l'ajout dans la table (bd) d'une colonne que j'ai nommé (daterepere, format ("jj/mm,/aaaa")) et j'ai reformuler mon code de façon de faire la requête en utilisant : max(daterepere)
Merci pour votre reactivité
