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