PL/SQL实现获得所有表名及列名到表

PL/SQL实现获得所有表名及列名到表

首先创建保存表
CREATE TABLE table_tmp(user_name varchar2(20),table_name VARCHAR2(100),col_name VARCHAR2(200));  

然后执行匿名块如下：
DECLARE
  CURSOR CUR_TABLE IS --定义游标取出表名和列名
    SELECT TABLE_NAME, COLUMN_NAME FROM USER_TAB_COLUMNS;
  CUR01   CUR_TABLE%ROWTYPE;
  U_NAME  VARCHAR2(100) := '&a';--自定义输入用户名
  U_COUNT INTEGER;              --存储行数用
  T_NAME  USER_TAB_COLUMNS.TABLE_NAME%TYPE; --存储表名
  C_NAME  USER_TAB_COLUMNS.COLUMN_NAME%TYPE;--存储列名 
BEGIN
  OPEN CUR_TABLE; --打开游标
  LOOP
    FETCH CUR_TABLE
      INTO CUR01;
    EXIT WHEN CUR_TABLE%NOTFOUND; --没有数据就退出
    T_NAME := CUR01.TABLE_NAME;   --取出游标的值赋给变量
    C_NAME := CUR01.COLUMN_NAME;
    INSERT INTO TABLE_TMP VALUES (U_NAME, T_NAME, C_NAME); --插入到table_tmp表
  END LOOP;
  U_COUNT := CUR_TABLE%ROWCOUNT; --获得行数
  CLOSE CUR_TABLE;
  DBMS_OUTPUT.PUT_LINE('Success，effect lines:'||U_COUNT); --成功输出影响行数
EXCEPTION
  WHEN NO_DATA_FOUND THEN
    DBMS_OUTPUT.PUT_LINE('no_data_found');