1 --定义一个数组类型msg_array，元素类型是varchar2，元素的长度不能超过30
2 create or replace type msg_array is table of varchar2(30);
3 --定义一个存储过程，查询表和字段是否有注释，参数tableNames的类型为上面定义的类型
4 create or replace procedure testGetComments(tableNames in msg_array) is
5 --定义变量tab_comments，记录表是否有注释，有则大于0
6 tab_comments int := 0;
7 --定义变量col_comments，记录没有注释的字段总数
8 col_comments int := 0;
9 --定义变量str，输出信息
10 str varchar2(100) := '';
11 --定义变量flag，是否需要打印信息,大于0则需要打印
12 flag int := 0;
13
14 begin
15
16 --输出共有几个表（特定环境才能输出）
17 DBMS_OUTPUT.put_line('共有:' || tableNames.COUNT || '个表');
18 if tableNames.COUNT != 0 --如果数组长度大于0
19 then
20 for i in 1..tableNames.COUNT --循环数组
21 loop
22
23 --查询没有注释的字段总数
24 select count(*) into col_comments
25 from user_col_comments
26 where Table_Name = tableNames(i)
27 and comments is null;
28 --查询表是否有注释
29 select count(*) into tab_comments
30 from user_tab_comments
31 where Table_Name = tableNames(i)
32 and comments is null;
33
34 if tab_comments > 0
35 then
36 flag := 1;
37 str := '没有注释，';
38 end if;
39
40 if col_comments > 0
41 then
42 flag := 1;
43 str := str || col_comments || '个字段没有注释';
44 end if;
45
46 if flag > 0
47 then
48 DBMS_OUTPUT.put_line('表:' || tableNames(i) || ': ' || str);
49 end if;
50
51 str := '';
52 flag := 0;
53 end loop;
54 end if;
55 end;
56
57
58 --声明一个变量tableNames，用来放表名
59 declare tableNames msg_array :=msg_array('tableName1','tableName2');
60 begin
61 --调用存储过程testGetComment
62 testGetComments(tableNames);
63 end;
64
65 --删除存储过程
66 drop procedure testGetComments;
67 --删除自定义类型
68 drop type msg_array;
69
70 ---------------------
71 作者：qq_33966061
72 来源：CSDN
73 原文：https://blog.csdn.net/qq_33966061/article/details/85249408
74 版权声明：本文为博主原创文章，转载请附上博文链接！
