输出表结构的oracle编程代码

--直接上代码

declare

--需要时直接将表的名字换掉就行
  tbName varchar2(100) := 'S_LN_LNP_CTRT_CBAPP';
  i      number := 0;
begin
  dbms_output.put_line('SELECT');
  for c in (SELECT t.COLUMN_NAME
              FROM USER_TAB_COLS T
             WHERE T.TABLE_NAME = tbname
             order by t.SEGMENT_COLUMN_ID) loop
    i := i + 1;
    if i = 1 then
      dbms_output.put_line('    ' || c.column_name);
    else
      dbms_output.put_line(',   ' || c.column_name);
    end if;
  end loop;
  dbms_output.put_line('FROM ' || tbName);
end;

--会直接将表结构打印出来

很不错的代码，值得收藏。