create or replace procedure add_column as
--declare在oracle中指代的是“块”,用于处理一段业务逻辑的
--declare
--动态表表名前缀
tbl_name_prefix nvarchar2(255);
--表名
tbl_name nvarchar2(255);
--字段
add_column_name nvarchar2(255) := 'code_ssqx';
--存放sql语句的字符串
sql_str nvarchar2(500);
--字段是否已存在
is_exist number := 0;
c_name number;
ret number;
--记录动态表的的数量
mt_counter number := 0;
begin
for tbl_name_record in (select table_name
from USER_TABLES
where table_name like 'ZHZS_%') loop
mt_counter := mt_counter + 1;
dbms_output.put_line('tbl_name: ' || tbl_name_record.table_name);
-- oracle cols 查询表字段类型及长度 function
select count(column_name)
into is_exist
from cols
where table_name = upper(tbl_name_record.table_name)
and column_name = upper(add_column_name);
if (is_exist = 0) then
dbms_output.put_line('字段 [' || add_column_name || '] 在表' ||
tbl_name_record.table_name || '中不存在');
sql_str := 'alter table ' || tbl_name_record.table_name || ' add ' ||
add_column_name || ' varchar2(50) ';
dbms_output.put_line('添加列, 动态执行DDL语句: ' || sql_str);
---动态执行DDL语句
--execute immediate sql_str;
c_name := dbms_sql.open_cursor;
dbms_sql.parse(c_name, sql_str, dbms_sql.native);
ret := dbms_sql.execute(c_name);
dbms_sql.close_cursor(c_name);
else
dbms_output.put_line('字段 [' || add_column_name || '] 已经存在于表' ||
tbl_name_record.table_name || '中');
end if;
end loop;
dbms_output.put_line('共有: [' || mt_counter || '] 个动态表。');
--declare在oracle中指代的是“块”,用于处理一段业务逻辑的
--declare
--动态表表名前缀
tbl_name_prefix nvarchar2(255);
--表名
tbl_name nvarchar2(255);
--字段
add_column_name nvarchar2(255) := 'code_ssqx';
--存放sql语句的字符串
sql_str nvarchar2(500);
--字段是否已存在
is_exist number := 0;
c_name number;
ret number;
--记录动态表的的数量
mt_counter number := 0;
begin
for tbl_name_record in (select table_name
from USER_TABLES
where table_name like 'ZHZS_%') loop
mt_counter := mt_counter + 1;
dbms_output.put_line('tbl_name: ' || tbl_name_record.table_name);
-- oracle cols 查询表字段类型及长度 function
select count(column_name)
into is_exist
from cols
where table_name = upper(tbl_name_record.table_name)
and column_name = upper(add_column_name);
if (is_exist = 0) then
dbms_output.put_line('字段 [' || add_column_name || '] 在表' ||
tbl_name_record.table_name || '中不存在');
sql_str := 'alter table ' || tbl_name_record.table_name || ' add ' ||
add_column_name || ' varchar2(50) ';
dbms_output.put_line('添加列, 动态执行DDL语句: ' || sql_str);
---动态执行DDL语句
--execute immediate sql_str;
c_name := dbms_sql.open_cursor;
dbms_sql.parse(c_name, sql_str, dbms_sql.native);
ret := dbms_sql.execute(c_name);
dbms_sql.close_cursor(c_name);
else
dbms_output.put_line('字段 [' || add_column_name || '] 已经存在于表' ||
tbl_name_record.table_name || '中');
end if;
end loop;
dbms_output.put_line('共有: [' || mt_counter || '] 个动态表。');
end add_column;
删除字段类似操作