ORACLE下面几个有用的存储过程

删除视图
create or replace procedure DropViewProc(viewName in varchar2) 
as

begin
	execute immediate 'drop view ' || viewName;
	dbms_output.put_line('success to drop view: ' || viewName);	
end;
/

执行存储过程
exec DropViewProc('user_basetab');

删除存储过程
drop procedure DropViewProc;


删除表
create or replace procedure DropTableProc(tableName in varchar2) 
as
	tableCounts number(10) := 0;
begin
	select count(*) into tableCounts from user_tables where upper(table_name) = upper(tableName);
	if(tableCounts > 0) then
		execute immediate 'drop table ' || tableName;
		dbms_output.put_line('success to drop table: ' || tableName);	
	end if;
end;
/


删除sequence
create or replace procedure DropSeqProc(seqName in varchar2) 
as
	seqCounts number(10) := 0;
begin
	select count(*) into seqCounts from user_sequences where upper(sequence_name) = upper(seqName);
	if(seqCounts > 0) then
		execute immediate 'drop sequence ' || upper(seqName);
		dbms_output.put_line('success to drop sequence: ' || seqName);	
	end if;
end;
/