sql:Oracle11g 表,视图,存储过程结构查询

-- Oracle 11 G
--20160921 涂聚文再次修改
--Geovin Du
--GetTables
SELECT owner, object_name, created FROM all_objects WHERE (owner in ( select USERNAME from user_users  )) AND object_type = 'TABLE'  ORDER BY owner,    object_name;

---GEOVIN
SELECT owner, object_name, created FROM all_objects WHERE (owner in ( select USERNAME from user_users  )) AND object_type = 'TABLE' and owner='GEOVIN'  ORDER BY owner,    object_name;

--GetTableColumns
--declare @owner varchar(200),@tablename varchar(200)

select * from all_tab_columns;


select  cols.column_name, 
                             cols.data_type, 
                             cols.data_length,
                             cols.data_precision, 
                             cols.data_scale,
                             cols.nullable,        
                             cmts.comments,
                             cols.owner,
                             cmts.owner,
                             cols.table_name
                      from  all_tab_columns cols, 
                            all_col_comments cmts
                        where cols.owner = cmts.owner 
                        and cols.table_name = cmts.table_name 
                        and cols.column_name = cmts.column_name
                        and  cols.owner= 'GEOVIN'
                        --and ROWNUM <= 10
                        order by column_id;           
                            
 --表结构   
select cols.column_name, 
                             cols.data_type, 
                             cols.data_length,
                             cols.data_precision, 
                             cols.data_scale,
                             cols.nullable,        
                             cmts.comments
                      from  all_tab_columns cols, 
                            all_col_comments cmts 
                      where 
                            cols.owner = 'GEOVIN' --
                        and cols.table_name = 'EMPLOYEELIST'--
                        and cols.owner = cmts.owner 
                        and cols.table_name = cmts.table_name 
                        and cols.column_name = cmts.column_name
                        order by column_id;
 

                     
 
--GetViews
select v.owner, v.view_name, o.created
                from all_views   v,
                    all_objects o 
                where v.view_name = o.object_name 
                and o.object_type = 'VIEW' 
                and (v.owner in ( select USERNAME from user_users  ))
                order by v.owner, v.view_name;
                
                
                
---GetViewColumns
select cols.column_name, 
                             cols.data_type, 
                             cols.data_length,
                             cols.data_precision, 
                             cols.data_scale,
                             cols.nullable,        
                             cmts.comments
                      from  all_tab_columns cols, 
                            all_col_comments cmts 
                      where 
                            cols.owner = 'GEOVIN' --
                        and cols.table_name = 'v_EMPLOYEELIST'---
                        and cols.owner = cmts.owner 
                        and cols.table_name = cmts.table_name 
                        and cols.column_name = cmts.column_name
                        order by column_id; 
 ----GetTablePrimaryKey
  select 
                        cols.constraint_name, 
                        cols.column_name, 
                        cols.position 
                    from
                        all_constraints     cons,
                        all_cons_columns    cols
                    where 
                        cons.OWNER = 'GEOVIN'
                        and cons.table_name = 'EMPLOYEELIST'
                        and cons.constraint_type='P'
                        and cols.owner = cons.owner
                        and cols.table_name = cons.table_name   
                        and cols.constraint_name = cons.constraint_name 
                    order by cons.constraint_name, cols.position;
                    
 ---GetTableIndexes
 select        idx.owner, idx.uniqueness, con.constraint_type, idx.table_type, col.*
                from        all_ind_columns col,
                            all_indexes idx,
                            all_constraints con
                where        idx.table_owner = '{0}'
                            AND idx.table_name = '{1}'
                            AND idx.owner = col.index_owner
                            AND idx.index_name = col.index_name
                            AND idx.owner = con.owner (+)
                            AND idx.table_name = con.table_name(+)
                            AND idx.index_name = con.constraint_name(+);
                            
 ---GetTableKeys 表的主键
 select 
                    cols.constraint_name, 
                    cols.column_name, 
                    cols.position, 
                    r_cons.table_name related_table_name, 
                    r_cols.column_name related_column_name 
                from
                    all_constraints     cons,
                    all_cons_columns    cols,
                    all_constraints     r_cons,
                    all_cons_columns    r_cols
                where cons.OWNER = 'GEOVIN'
                  and cons.table_name = 'EMPLOYEELIST'
                  and cons.constraint_type='R'
                  and cols.owner = cons.owner
                  and cols.table_name = cons.table_name   
                  and cols.constraint_name = cons.constraint_name 
                  and r_cols.owner = cons.r_owner 
                  and r_cols.constraint_name = cons.r_constraint_name 
                  and r_cons.owner = r_cols.owner 
                  and r_cons.table_name = r_cols.table_name 
                  and r_cons.constraint_name = r_cols.constraint_name 
                order by cons.constraint_name, cols.position;
              
                
               
 ---GetViewText 视图脚本
 select        text
                from        all_views
                where        owner = 'GEOVIN'
                            and view_name = 'VIEW_BOOKADMINISTRATOR';
                            
                            
 --GetCommands  存储过程,包
 select methods.owner, 
                            methods.package_name, 
                            methods.object_name, 
                            methods.overload,
                            ao.object_type,
                            ao.created,
                            ao.status,
                            ao.object_id
                        from
                        (select distinct owner, package_name, object_name, overload, object_id from ALL_ARGUMENTS 
                            where (owner in ( select USERNAME from user_users  ))
                            ) methods,
                            all_objects ao
                        where ao.object_id = methods.object_id    
                        order by methods.owner, methods.package_name, methods.object_name;
                        
 ---GetCommandParameters 显示存储过程参数
 select 
                        ARGUMENT_NAME, 
                        POSITION, 
                        SEQUENCE, 
                        DATA_LEVEL, 
                        DATA_TYPE, 
                        IN_OUT, 
                        DATA_LENGTH, 
                        DATA_PRECISION, 
                        DATA_SCALE  
                    from ALL_ARGUMENTS 
                    where --object_ID=0
                    --and
                     object_name = 'PROCSELECTBOOKKINDLIST' --PROCSELECTBOOKKINDLIST
                    --and 2
                    order by position;
   --                 
    select *  from ALL_ARGUMENTS 
                    where --object_ID=0
                    --and
                     object_name = 'PROCSELECTBOOKKINDLIST' --PROCSELECTBOOKKINDLIST
                    --and 2
                    order by position;                 
                    
                    
 ---GetCommandText 显示存储过程脚本
 desc user_source;
                   
select text from user_source
where name = 'PROCSELECTBOOKKINDLIST'
order by line;

 SELECT * FROM DBA_source;
 
 SELECT * FROM ALL_source;       
                                             
select * from all_objects;





--OWNER='GEOVIN' and 

 select * from (select dense_rank() over (order by object_id) as dr,b.* from all_objects b) x where  dr<=15;
 
 --存储过程
select * from user_objects where   object_type   = 'PROCEDURE'; 


--http://docs.oracle.com/cd/B19306_01/server.102/b14220/schema.htm
--Oracle / PLSQL: Retrieve primary key information
--GetPrimaryKeys
SELECT cols.table_name, cols.column_name, cols.position, cons.status, cons.owner
FROM all_constraints cons, all_cons_columns cols
WHERE cons.constraint_type = 'P'
AND cons.constraint_name = cols.constraint_name
AND cons.owner = cols.owner
AND cols.owner='GEOVIN'
ORDER BY cols.table_name, cols.position;

---
SELECT cols.table_name, cols.column_name, cols.position, cons.status, cons.owner
FROM all_constraints cons, all_cons_columns cols
WHERE cols.table_name = 'BOOKKINDLIST'
AND cons.constraint_type = 'P'
AND cons.constraint_name = cols.constraint_name
AND cons.owner = cols.owner
AND cons.owner='GEOVIN'
ORDER BY cols.table_name, cols.position;