create or replace procedure cre_tbl(p_stmt varchar2) as begin execute immediate p_stmt; exception when others then null; end; execute cre_tbl('create table aaa(a number,b varchar2(10))');
create procedure pro(p_table in varchar2,p_col in varchar2,p_type in varchar2) as str varchar2(100); begin str:='create table '||p_table||' ('||p_col||' '||p_type||')'; execute immediate str; end; /
create or replace cre_table(tab_name,col_name,……)
{
……
execute immediate 'create table ……' ;
……
}
as
begin
execute immediate p_stmt;
exception
when others then
null;
end;
execute cre_tbl('create table aaa(a number,b varchar2(10))');
as
str varchar2(100);
begin
str:='create table '||p_table||' ('||p_col||' '||p_type||')';
execute immediate str;
end;
/