关于数据库对象版本比较的脚本

--CREATE THE CREATE_TABLE SCRIPT, THOUGH WE CAN USE

--LIKE select dbms_metadata.get_ddl('TABLE','TABLENAME','USERNAME') from dual; GET THE SQL SCRIPT

--BUT IT IS NOT HELPFUL TO COMPARE THE DIFFERENT VERSION

SELECT SQLTEXT FROM
SXW S(J,yu4}0(
+Z,aSm.L/P2b$dA0SELECT 'CREATE TABLE '||TABLE_NAME AS SQLTEXT,-1 AS COLUMN_ID,TABLE_NAME FROMUSER_TABLES@REMOTEKGK
0~`A;cH&\0UNIONITPUB个人空间,x0g;E^f`r
SELECT '(' AS SQLTEXT,0 AS COLUMN_ID,TABLE_NAME FROMUSER_TABLES@REMOTEKGKITPUB个人空间&`b!T)}%C3Q-G
S
UNION
/Yac)fZl I0SELECT ');' AS SQLTEXT,100 AS COLUMN_ID,TABLE_NAME FROMUSER_TABLES@REMOTEKGKITPUB个人空间]JuOVW
UNION
gjV3\'x
W^+`0SELECTITPUB个人空间)q;lZ)K"].|k FF
CASE WHEN DATA_TYPE='NUMBER'ITPUB个人空间^:| H:j&shu0F
THENITPUB个人空间eY^M
hX
CASE WHEN DATA_PRECISION IS NULLITPUB个人空间!T?9i4?.]'X#l K
THEN COLUMN_NAME||' INTEGER,'ITPUB个人空间 V;WdI,@
`1{
ELSE COLUMN_NAME||' '||DATA_TYPE||'('||TO_CHAR(DATA_PRECISION)||','||TO_CHAR(DATA_SCALE)||')'||DECODE(COLUMN_ID,(SELECT MAX

(B.COLUMN_ID) FROMUSER_TAB_COLUMNS@REMOTEKGKB WHERE A.TABLE_NAME=B.TABLE_NAME),' ',',')
b)K;^W({!O8^0ENDITPUB个人空间^6h L5Q7G7T
WHEN DATA_TYPE='NVARCHAR2'
e8F0R'\\ MX0THEN COLUMN_NAME||' '||DATA_TYPE||'('||TO_CHAR(DATA_LENGTH/2)||')'||DECODE(COLUMN_ID,(SELECT MAX(B.COLUMN_ID) FROM

USER_TAB_COLUMNS@REMOTEKGKB WHERE A.TABLE_NAME=B.TABLE_NAME),' ',',')
f1j9~;PW:MG0WHEN DATA_TYPE IN ('CHAR','VARCHAR2')
;K0j `P*{3lD0THEN COLUMN_NAME||' '||DATA_TYPE||'('||TO_CHAR(DATA_LENGTH)||')'||DECODE(COLUMN_ID,(SELECT MAX(B.COLUMN_ID) FROM

USER_TAB_COLUMNS@REMOTEKGKB WHERE A.TABLE_NAME=B.TABLE_NAME),' ',',')
pz3Y'^hfa k(s0Qc0WHEN DATA_TYPE IN ('DATE','BLOB','CLOB','LONG','NCLOB')
Cp4^Fd Gt0THEN COLUMN_NAME||' '||DATA_TYPE||DECODE(COLUMN_ID,(SELECT MAX(B.COLUMN_ID) FROMUSER_TAB_COLUMNS@REMOTEKGKB WHERE

A.TABLE_NAME=B.TABLE_NAME),' ',',')ITPUB个人空间,k4t6s[8r;f"o
END AS SQLTEXT,ITPUB个人空间4B yPF)^U q[$\ \
COLUMN_ID,
uP8K9r1db8g,@Ni5m0A.TABLE_NAME

R ~:[;x9W BI0FROMUSER_TAB_COLUMNS@REMOTEKGKA
"uCD5v's#L!p0Where A.table_name Like 'T%'ITPUB个人空间WI-CCcV
) dITPUB个人空间$AGk:i+st Lw W:t
Where d.table_name Not In
a/_E u4@ n0(
4S*FMU,J?0Select c.table_name From USER_TABLES cITPUB个人空间(nA6X-N Y8xVa
Where c.table_name Like 'T%'
IO_*s+y_,fvE0)
)_*UV]w`T,aW0ORDER BY TABLE_NAME,COLUMN_ID,SQLTEXT

--ADD NEW COLUMN ACCORDING THE LATEST TABLE NAME

--BASED THE COLUMN_NAME AND COLUMN_ID,NEED TO MODIFY THE COLUMN NAME

--BUT IN FACT MOST SITUATION IT RESULT IN NEW COLUMN,SO IT IS NO USEFUL

....