iDevlop blog

Cette requete toute simple permet d'affichier tous les objets d'une base: SELECT s.Name AS Table_Name, nz([Connect],"") & nz([database],"") AS Db, IIf([s].[ForeignName]<>[name],[s].[foreignname]) AS ForeignName, s.DateCreate, s.DateUpdate, Switch([type]=1,"tbl",[type]=4,"sql",[type]=5,"qry",[type]=6,"lnk",[type]=-32761,"mod",[type]=-32764,"rpt",[type]=-32768,"frm") AS ObjType, s.Type FROM MSysObjects AS s WHERE (((s.Type) In (1,4,5,6,-32761,-32764,-32768)) AND ((Left([Name],1))<>"~") AND ((Left([Name],4))<>"MSys")) ORDER BY s.Type, s.Name;