listeDesBases est une Source de Données
SI PAS HExécuteRequêteSQL(listeDesBases,hRequêteDéfaut,"SHOW DATABASES") ALORS
Info("impossible d'executer la requête",ErreurInfo(errMessage))
SINON
HLitPremier(listeDesBases)
TANTQUE PAS HEnDehors(listeDesBases)
ListeAjoute(lis_bases,listeDesBases.Database)
HLitSuivant(listeDesBases)
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2959&post_id=12386