在PLSQL中检索列名和数据类型

Question

我正在编写一个PL SQL块，用于检索数据库中所有表的列和数据类型。我能够获得列，但不能获取数据类型。寻找一个好方法的建议。任何帮助，将不胜感激。我的代码如下

ACCEPT p_1 PROMPT 'Please enter the Table Name' 

DECLARE 
    v_table_name VARCHAR2(40) :='&p_1'; 
    -- First cursor 
    CURSOR get_tables IS  
     SELECT DISTINCT table_name 
     FROM user_tables 
     WHERE UPPER(table_name) = UPPER(v_table_name); 
    --Second cursor 
    CURSOR get_columns IS 
     SELECT DISTINCT column_name 
     FROM user_tab_columns 
     WHERE table_name = v_table_name; 
    v_column_name VARCHAR2(100); 
    -- Third Cursor 
    CURSOR get_types IS 
     SELECT data_type 
     FROM user_tab_columns 
     WHERE table_name = v_table_name; 

    v_data_type user_tab_columns.data_type%type; 
BEGIN 
    -- Open first cursor 
    OPEN get_tables; 
    FETCH get_tables INTO v_table_name; 
    DBMS_OUTPUT.PUT_LINE(' '); 
    DBMS_OUTPUT.PUT_LINE('Table = ' || v_table_name); 
    DBMS_OUTPUT.PUT_LINE('========================='); 
    CLOSE get_tables; 
    -- Open second cursor 
    OPEN get_columns; 
    FETCH get_columns INTO v_column_name; 
    WHILE get_columns%FOUND LOOP 
     DBMS_OUTPUT.PUT_LINE(' ' || v_column_name); 
     FETCH get_columns INTO v_column_name; 
    END LOOP; 
    CLOSE get_columns; 
    --Open Third Cursor 
    OPEN get_types; 
    FETCH get_types into v_data_type; 
    WHILE get_types%FOUND LOOP 
     DBMS_OUTPUT.PUT_LINE(' ' || v_data_type); 
     FETCH get_types into v_data_type; 
    END LOOP; 

    CLOSE get_types;  
END; 

我的错误状态PLS-00371：最多一个声明“V_DATA_TYPE”允许

Answer 1

不是PLSQL大师，但这里是我的粮食。

Select data_type from user_tab_columns where TABLE_NAME = 'YourTableName' 

道具埃里克，检查this线程和他的答案。

记住你可以用DESC命令来描述一个Oracle表，视图，同义词，包装或功能。它会给你名字，data_type和lengh。 如果这真的对你有用，你应该能够获得所有表格的数据，尽管我不是一个游戏迷，你应该做的很好。

试试这个：

-- Open second cursor 
      OPEN get_columns; 
      LOOP 
      FETCH get_columns INTO v_column_name, v_data_type; 
      EXIT WHEN get_columns%NOTFOUND; 
      DBMS_OUTPUT.PUT_LINE(' ' || v_column_name); 
      END LOOP; 
      CLOSE get_columns; 
    END LOOP; 

但要小心您所选择的v_data_type变量的数据类型。

Answer 2

你的块有太多的代码。这就是你需要的全部：

begin 
    for r in (select column_name, data_type 
       from user_tab_columns 
       where table_name = upper('&&p_1') 
       order by column_id) 
    loop 
     dbms_output.put_line(r.column_name ||' is '|| r.data_type); 
    end loop; 

end;

Answer 3

很好的努力，但代码太多。你需要短暂的假期:)

SELECT table_name, 
     column_name, 
     data_type, 
     data_length, 
     nullable 
FROM cols 
WHERE table_name='&YOUR_TABLE' 
ORDER BY column_id 

Answer 4

我遇到了类似的问题。它可以在这里查看：Retrieving Table Structure with Dynamic SQL。

要注意的事情中，我确信，如果data_scale = 0我指出这将是一个整数，如果是> 0，这是一个双。