SQL Server Oracle Access 数据字典信息

　　select
　　fc_obj.name　 as CONSTRAINT_NAME
　　,i.name　　 as UNIQUE_CONSTRAINT_NAME
　　from
　　sysobjects fc_obj
　　,sysreferences r
　　,sysindexes i
　　,sysobjects pc_obj
　　where
　　permissions(fc_obj.parent_obj) != 0
　　and fc_obj.xtype = 'F'
　　and r.constid　= fc_obj.id
　　and r.rkeyid　= i.id
　　and r.rkeyindid　= i.indid
　　and r.rkeyid　= pc_obj.id
　　
　　----------------- Oracle -------------------

　　select * from all_tab_comments t
　　where owner='DBO'

　　select * from all_col_comments t
　　where owner='DBO'

select OWNER, CONSTRAINT_NAME, CONSTRAINT_TYPE, 
TABLE_NAME, R_OWNER, R_CONSTRAINT_NAME
from all_constraints
where owner='DBO' and 
(Constraint_Type='P' or Constraint_Type='R')

　　select *
　　from all_cons_columns
　　where owner='DBO'
　　order by Constraint_Name, Position
　　
　　------------------------- Access ------------------------
　　//Access中的系统表MSysobjects存储属性的字段是二进制格式，

不能直接分析可以采用ADO自带的OpenSchema方法获得相关信息
　　
　　//use ADOInt.pas
　　//po: TableName
　　//DBCon:TADOConnection
　　/ds:TADODataSet

DBCon.OpenSchema(siTables, VarArrayOf([Null, Null, 'Table']), EmptyParam, ds);

DBCon.OpenSchema(siColumns, VarArrayOf([Null, Null, 'po']), EmptyParam, ds);

DBCon.OpenSchema(siPrimaryKeys, EmptyParam, EmptyParam, ds);

DBCon.OpenSchema(siForeignKeys, EmptyParam, EmptyParam, ds);