qu'il est bon peut-être de rappeler pour ne pas perdre de temps a eplucher tous les forums
si ça peut être utile a quelques uns ?
Code : Tout sélectionner
;tri de colonne (format date 1/1/2009) colonne sqlite reconnue en texte(1)
sql$="select (case when(substr(nom_colonne_a_trier,2,1))='/' then '0'||substr(nom_colonne_a_trier,1,1)||'/' else substr(nom_colonne_a_trier,1,2)||'/' end|| case when(substr(nom_colonne_a_trier,-7,1))='/' then '0'||substr(nom_colonne_a_trier,-6,1)||'/' else substr(nom_colonne_a_trier,-7,2)||'/' end||substr(nom_colonne_a_trier,-4,4)) as nom_a_donner from nom_table_a_trier
order by nom_a_donner";ecrire desc apres nom_a_donner pour tri inverse
;base a ouvrir
OpenDatabase(0,"nom_base_a_ouvrir","","");eventuellement OpenDatabase(0,"nom_base_a_ouvrir","utilisateur$","motdepasse$")
DatabaseQuery(0,sql$)
;suite du code
;tri de colonne (format date 1/1/2009) colonne sqlite reconnue en texte(2)
sql$="select nom_colonne_a_trier from nom_table_a_trier order by (substr(nom_colonne_a_trier,-4,4)||'/'||case when(subst(nom_colonne_a_trier,-7,1)='/') then '0'||substr(nom_colonne_a_trier,-6,1)||'/' else substr(nom_colonne_a_trier,-7,2)||'/' end||case when(substr(nom_colonne_a_trier,2,1)='/') then '0'||substr(nom_colonne_a_trier,1,1) else substr(nom_colonne_a_trier,1,2) end)";ecrire desc apres nom_a_donner pour tri inverse
;base a ouvrir
OpenDatabase(0,"nom_base_a_ouvrir","","");eventuellement OpenDatabase(0,"nom_base_a_ouvrir","utilisateur$","motdepasse$")
DatabaseQuery(0,sql$)
;suite du code