sql - すべての外部キーの長さを Oracle の PK と一致させる

Question

PK と FK のタイプは同じでなければならないことがわかっているため、Oracle ではサイズが異なる場合があります。

1. すべての外部キーを見つけ、
2. それらが参照されているすべての PK を見つける
3. 長さを比較
4. FK が短い場合は、PK の長さを標準として使用します。

誰かがスクリプトを手に入れましたか？

Answer 1

これを試すことができます（1つのスキーマをチェックします）：

select mcols.table_name , mcols.column_name, mcols.data_type, mcols.data_length, mcols.data_precision, mcols.data_scale, dcols.table_name, dcols.column_name, dcols.data_length, dcols.data_precision, dcols.data_scale
from user_tab_cols mcols, user_cons_columns mc, user_constraints dt, user_cons_columns dc, user_tab_cols dcols
where dt.constraint_type = 'R'  -- Referential constraints, i.e. foreign keys
and dt.r_constraint_name = mc.constraint_name
and dc.constraint_name = dt.constraint_name
and mc.position = dc.position
and mcols.table_name = mc.table_name
and mcols.column_name = mc.column_name
and dcols.table_name = dc.table_name
and dcols.column_name = dc.column_name
-- Filter to list only columns that differ
and (mcols.data_type <> dcols.data_type      -- Check for CHAR vs VARCHAR2
  or mcols.data_length <> dcols.data_length  -- Check length (for varchar columns)
  or nvl(mcols.data_precision, 0) <> nvl(dcols.data_precision, 0) -- Check precision (for number columns)
  or nvl(mcols.data_scale, 0) <> nvl(dcols.data_scale, 0)  -- Check scale (for number columns)
);
;

Answer 2

SELECT cc.table_name,
       CC.COLUMN_NAME,
       TCF.DATA_TYPE || '(' || TCF.DATA_PRECISION || ',' || TCF.DATA_SCALE || ')' DTYPE1,
       rcc.table_name AS r_table_name,
       RCC.COLUMN_NAME AS R_COLUMN_NAME,
       TCP.DATA_TYPE || '(' || TCP.DATA_PRECISION || ',' || TCP.DATA_SCALE || ')' DTYPE2,
       cc.position
FROM   user_constraints c
       JOIN user_cons_columns cc ON c.owner = cc.owner AND c.constraint_name = cc.constraint_name
       JOIN USER_CONS_COLUMNS RCC ON C.OWNER = RCC.OWNER AND C.R_CONSTRAINT_NAME = RCC.CONSTRAINT_NAME AND CC.POSITION = RCC.POSITION
       JOIN USER_TAB_COLS TCF ON TCF.TABLE_NAME = CC.TABLE_NAME AND TCF.COLUMN_NAME = CC.COLUMN_NAME
       JOIN USER_TAB_COLS TCP ON TCP.TABLE_NAME = RCC.TABLE_NAME AND TCP.COLUMN_NAME = RCC.COLUMN_NAME
WHERE TCF.DATA_TYPE || '(' || TCF.DATA_PRECISION || ',' || TCF.DATA_SCALE || ')' != TCP.DATA_TYPE || '(' || TCP.DATA_PRECISION || ',' || TCP.DATA_SCALE || ')'
ORDER BY c.constraint_name, cc.table_name, cc.position;