在程序运行的时候运行建立表,drop 表等的操作。先要拼出字符串,然后运行该字符串。
动态建立表,插入数据,取行数
conn / as sysdba
GRANT create any table TO SCOTT;
conn scott/tiger
set serveroutput on
create or replace procedure p1(name varchar2)
is
v1 number;
sqltext varchar2(200);
begin
--判断表是否存在,如果存在,先 drop,如果不存在,直接建立
select count(*) into v1 from tabs where table_name=upper(name);
if v1=1 then
sqltext:='drop table '||name||' purge'; --拼写字符串
dbms_output.put_line(sqltext);
execute immediate sqltext; --运行动态 sql 语句
end if;
--建立表
sqltext:='create table '||name||' as select * from emp'; --拼写字符串
dbms_output.put_line(sqltext);
execute immediate sqltext; --运行动态 sql 语句
--插入数据
sqltext:='insert into '||name||' select * from emp';
execute immediate sqltext;
commit;
--动态取表中的数据
sqltext:='select count(*) from '||name;
execute immediate sqltext INTO V1; --运行动态 sql,把变量返回到变量
dbms_output.put_line(v1);
end;
/
exec p1('T1');
动态建立表,插入数据,取行数
conn / as sysdba
GRANT create any table TO SCOTT;
conn scott/tiger
set serveroutput on
create or replace procedure p1(name varchar2)
is
v1 number;
sqltext varchar2(200);
begin
--判断表是否存在,如果存在,先 drop,如果不存在,直接建立
select count(*) into v1 from tabs where table_name=upper(name);
if v1=1 then
sqltext:='drop table '||name||' purge'; --拼写字符串
dbms_output.put_line(sqltext);
execute immediate sqltext; --运行动态 sql 语句
end if;
--建立表
sqltext:='create table '||name||' as select * from emp'; --拼写字符串
dbms_output.put_line(sqltext);
execute immediate sqltext; --运行动态 sql 语句
--插入数据
sqltext:='insert into '||name||' select * from emp';
execute immediate sqltext;
commit;
--动态取表中的数据
sqltext:='select count(*) from '||name;
execute immediate sqltext INTO V1; --运行动态 sql,把变量返回到变量
dbms_output.put_line(v1);
end;
/
exec p1('T1');