SAK 図書館
SAK 図書館
Oracle PL/SQL 編14 - 全テーブル構造リストファイル出力、utl_file.put_line
■全テーブル構造リストファイル出力
・USER_TAB_COLUMNS を利用して、全テーブル構造をテキストファイルに出力
するには、次のようにする。(表一覧、テーブル一覧)
尚、出力ファイルは、dnm、fnm でパスとファイル名を指定する。
また、カンマ区切り出力にするなど工夫すれば、CSV ファイル形式として、
Excel シートにコンバートすることも可能である。
declare
dnm varchar2(200) := 'g:\tmp'; -- テーブル構造出力ファイルパス
fnm varchar2(200) := 'test.txt'; -- テーブル構造出力ファイル名
cursor cu is select
lower(table_name) as テーブル名,
column_name as 項目名,
lower(data_type) as 項目タイプ,
nvl(data_precision, char_col_decl_length) as 長さ,
data_scale as 小数部
from user_tab_columns
order by table_name, column_id;
fno utl_file.file_type;
rec varchar2(1000);
svtbl varchar2(200) := '';
begin
-- テーブル構造テキストファイル出力
fno := utl_file.fopen(dnm, fnm, 'W');
for cu_rec in cu loop
if svtbl is null or svtbl != cu_rec.テーブル名 then
utl_file.put_line(fno, '========================================================================');
utl_file.put_line(fno, 'テーブル - ' || cu_rec.テーブル名);
utl_file.put_line(fno, '========================================================================');
utl_file.put_line(fno, '項目名 タイプ 長さ 小数部');
utl_file.put_line(fno, '------------------------------------------------------------------------');
svtbl := cu_rec.テーブル名;
end if;
utl_file.put_line(
fno,
rpad(cu_rec.項目名, 37) || ' ' ||
rpad(cu_rec.項目タイプ, 20) || ' ' ||
to_char(cu_rec.長さ, '99999') || ' ' ||
to_char(cu_rec.小数部, '99999')
);
end loop;
utl_file.put_line(fno, '========================================================================');
utl_file.fclose(fno);
end;
/
-- 処理結果 --
========================================================================
テーブル - ipm
========================================================================
項目名 タイプ 長さ 小数部
------------------------------------------------------------------------
IP varchar2 15
組織1 varchar2 200
組織2 varchar2 200
========================================================================
テーブル - コードm
========================================================================
項目名 タイプ 長さ 小数部
------------------------------------------------------------------------
キー varchar2 20
データ varchar2 200
更新担当者 varchar2 20
更新日付 char 10
更新時間 char 8
========================================================================
テーブル - テストm
========================================================================
項目名 タイプ 長さ 小数部
------------------------------------------------------------------------
キー char 8
データ1 number 9 0
データ2 number 9 0
データ3 number 9 0
========================================================================
■Oracle PL/SQL 編資料
■SQL 基礎実地編資料
■SQL 基礎編資料
■SQL チューニング編資料
■PostgreSQL 編、JAVA Servlet、JSP 編資料
■MySQL 編資料
Copyright (C) 1999-2024 Y.SAK