oracle存储过程追加字段,oracle的存储过程实现字段类型的替换

create or replace procedure convert_date_to_timestamp

/**************************

function: 将数据库中所有的表中含DATE类型的字段改为TIMESTAMP类型；

需要建立下列类型表：

create table type_table_info (

table_name varchar2(30),

column_name varchar2(30),

data_type varchar2(100)

)

***************************/

is

v_query_base_sql varchar2(100) := 'SELECT table_name,column_name,data_type FROM all_tab_cols WHERE table_name = ''';

v_query_table_sql varchar2(150);

v_alter_sql varchar2(100);

type table_type is table of type_table_info%rowtype;

table_array table_type;

begin

for c_tabs in (

select table_name from user_tables where table_name <> 'type_table_info'

)

loop

v_query_table_sql := v_query_base_sql || c_tabs.table_name || '''';

execute immediate v_query_table_sql bulk collect into table_array;

for i in table_array.first .. table_array.last

loop

--DBMS_OUTPUT.put_line(table_array(i).column_name || ':' || table_array(i).data_type);

if table_array(i).data_type = 'DATE' then

v_alter_sql := 'alter table ' || table_array(i).table_name || ' modify ' || table_array(i).column_name || ' timestamp';

DBMS_OUTPUT.put_line(table_array(i).column_name || ': ' || v_alter_sql);

execute immediate v_alter_sql;

end if;

end loop;

end loop;

end convert_date_to_timestamp;

create or replace procedure convert_number_to_decimal

/**************************

function: 将数据库中所有的表中含DATE类型的字段改为TIMESTAMP类型；

需要建立下列类型表：

create table type_table_info (

table_name varchar2(30),

data_type varchar2(100)

)

***************************/

is

v_query_base_sql varchar2(100) := 'SELECT table_name,data_type FROM all_tab_cols WHERE table_name = ''';

v_query_table_sql varchar2(150);

v_alter_sql varchar2(100);

type table_type is table of type_table_info%rowtype;

table_array table_type;

begin

for c_tabs in (

select table_name from user_tables where table_name <> 'type_table_info'

)

loop

v_query_table_sql := v_query_base_sql || c_tabs.table_name || '''';

execute immediate v_query_table_sql bulk collect into table_array;

for i in table_array.first .. table_array.last

loop

--DBMS_OUTPUT.put_line(table_array(i).column_name || ':' || table_array(i).data_type);

if table_array(i).data_type = 'NUMBER' then

v_alter_sql := 'alter table ' || table_array(i).table_name || ' modify ' || table_array(i).column_name || ' decimal(65)';

DBMS_OUTPUT.put_line(table_array(i).column_name || ': ' || v_alter_sql);

execute immediate v_alter_sql;

end if;

end loop;

end loop;

end convert_numbr_to_decimal;

create or replace procedure convert_varchar2_to_varchar /************************** function: 将数据库中所有的表中含DATE类型的字段改为TIMESTAMP类型； 需要建立下列类型表： create table type_table_info ( table_name varchar2(30),column_name varchar2(30),data_type varchar2(100) ) ***************************/ is v_query_base_sql varchar2(100) := 'SELECT table_name,data_type FROM all_tab_cols WHERE table_name = '''; v_query_table_sql varchar2(150); v_alter_sql varchar2(100); type table_type is table of type_table_info%rowtype; table_array table_type; begin for c_tabs in ( select table_name from user_tables where table_name <> 'type_table_info' ) loop v_query_table_sql := v_query_base_sql || c_tabs.table_name || ''''; execute immediate v_query_table_sql bulk collect into table_array; for i in table_array.first .. table_array.last loop --DBMS_OUTPUT.put_line(table_array(i).column_name || ':' || table_array(i).data_type); if table_array(i).data_type = 'VARCHAR2(200)' then v_alter_sql := 'alter table ' || table_array(i).table_name || ' modify ' || table_array(i).column_name || ' VARCHAR2(500)'; DBMS_OUTPUT.put_line(table_array(i).column_name || ': ' || v_alter_sql); execute immediate v_alter_sql; end if; end loop; end loop; end convert_varchar2_to_varchar;

总结

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。