SQLListeSource("BASE", "ODBC")
SQLConnecte(s_Serveur_in,s_ut_in,s_pwd_in,s_base_in,"OLEDB",hOledbSQLServer,"Application Name="+ExeInfo(exeDescription))
SINON
s_req="select name from master.dbo.sysdatabases where (DATABASEPROPERTY(name, N'IsSingleUser')=1 or has_dbaccess(name)=1)"
Exec(s_nomReq,s_req)
TANTQUE SQLAvance(s_nomReq)=0
s_listeBase+=SQLLitCol(s_nomReq,1)+RC
FIN
SQLFerme(s_nomReq)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5328&post_id=22012