使用内部数据检索Oracle元数据

Question

我正在尝试编写一个使用表的元数据和内部数据的PL / SL程序，就像：

table1 (ABC varchar2(50),wsx varchar2(50));
table2 (ABC number(50),dv varchar2(50));
table3 (ABC varchar2(10),wsds varchar2(50));
table4 (ABC varchar2(20),wfsdg varchar2(50));
table5 (ABC number(50),wsxsfd varchar2(50));

所有五个表都有一列，且名称相同'ABC' 。

假设table1具有3行，例如('JOHN.TEDA','avdv'),('MARK.LEE','fesf'),('JOHN.DEA','fwfd')而其他表也具有类似这样的数据。

现在使用列名作为输入（'ABC'），我应该得到连接的输出。

我们可以从user_tab_columns获取列信息。

最大长度表示列::中的现有数据的最大长度：

select max(length(ABC)) from table1

我在加入两者时遇到问题 表不是引用的。

Answer 1

我试图使用Oracle中的PIPELINED函数来复制您提到的方案。 希望这可以帮助。

CREATE OR REPLACE TYPE fun_obj
IS
  OBJECT
  (
    tab_name VARCHAR2(100),
    colname  VARCHAR2(100),
    datatyp  VARCHAR2(100),
    datlen   NUMBER,
    nullable VARCHAR2(1),
    LEN      NUMBER );
  /

CREATE OR REPLACE
  FUNCTION test_max_count(
      colname IN VARCHAR2)
    RETURN fun_tab PIPELINED
  AS
    tab fun_obj:=fun_obj(NULL,NULL,NULL,NULL,NULL,NULL);
    lvlen NUMBER;
  BEGIN
    FOR I IN
    (SELECT DISTINCT table_name,
      OWNER,
      COLUMN_NAME,
      DATA_TYPE,
      DATA_LENGTH,
      NULLABLE,
      NULL AS MAX_LEN
    FROM all_tab_columns
    WHERE column_name = colname
    )
    LOOP
      tab.tab_name:=i.table_name;
      tab.colname :=i.COLUMN_NAME;
      tab.datatyp :=i.DATA_TYPE;
      tab.datlen  :=i.DATA_LENGTH;
      tab.nullable:=i.NULLABLE;
      EXECUTE IMMEDIATE 'SELECT MAX(LENGTH('||i.column_name||')) FROM '||I.OWNER||'.'||I.TABLE_NAME INTO lvlen;
      tab.len:=lvlen;
      PIPE ROW(tab);
    END LOOP;
  END;
  /

------------------------------------To Execute----------------------------------

SELECT * FROM TABLE(test_max_count('abc'));

Answer 2

CREATE OR REPLACE PROCEDURE test2 ( p_column_name IN  varchar  ) 
    IS

    CURSOR GET_DATA (COL  VARCHAR )IS 

    SELECT TABLE_NAME ,COLUMN_NAME,DATA_TYPE,DATA_LENGTH,NULLABLE 
    FROM 
    user_tab_columns where COLUMN_NAME = COL; 

    a_table varchar2(50);
    B_COL varchar2(50);
    a_max  varchar2(50);

    BEGIN  

    FOR C IN GET_DATA(p_column_name) LOOP 

    a_table := c.table_name;  
    B_COL  :=  C.COLUMN_NAME;         

    EXECUTE IMMEDIATE 'SELECT MAX(LENGTH('||B_COL||')) FROM '||a_table into a_max ;            

    insert into received_Data values  (c.table_name,C.COLUMN_NAME,C.DATA_TYPE,C.DATA_LENGTH,C.NULLABLE,a_max);

    END LOOP;


    EXCEPTION 
            WHEN OTHERS THEN 
                 RAISE_APPLICATION_ERROR (-20001, 
                                          p_column_name || ':$:' || SQLERRM, TRUE) ; 
    END test2;

    /

    CREATE TABLE RECEIVED_DATA
    ( TABLE_NAME   VARCHAR2(50 BYTE), 
      COLUMN_NAME  VARCHAR2(50 BYTE),    
      DATA_TYPE    VARCHAR2(50 BYTE),
      DATA_LENGTH  VARCHAR2(50 BYTE),
      IS_NULL      VARCHAR2(50 BYTE),
      MAX_LENGTH   VARCHAR2(50 BYTE));

Answer 3

您无法使用SQL直接实现此目的。 您需要执行PL / SQL +立即执行。

• 用您期望的列创建一个表
• 然后for each循环来计算每列的最大长度。