码迷,mamicode.com
首页 > 其他好文 > 详细

存储过程

时间:2018-04-16 18:19:51      阅读:207      评论:0      收藏:0      [点我收藏+]

标签:性能测试

--验证存储过程是否正确时,需要用declare块。

 declare

  i integer;

  v_sql varchar2(1000);

  -- 定义游标

  CURSOR C_EMP IS SELECT category FROM act_hq_tem_def;

  

  begin

    

 select  count(*) into i from user_tables t where t.table_name ='SSS';

   dbms_output.put_line('I的值是:');

   dbms_output.put_line(i);

  

 if i=1 then 

   execute immediate 'drop table sss'; end if;

 IF I=0 THEN

   execute immediate '

   create table sss( 

   name number(20) )';

   end if;

  

  

   dbms_output.enable(1000000);

   

   for tab in (

     select t.guid gd, t.name  nm  from fasp_T_causer t

     )

     

     loop --loop 是开始循环, 需要结束标识loop end 。 

    

   v_sql := 'select count(*) from fasp_T_causer';

   execute immediate v_sql into i;

   

     If i > 0 then

      DBMS_OUTPUT.PUT_LINE(tab.nm || ' tab 中的name值  ' || tab.gd );

    end if;

    end loop ;

    

  

    

 --遍历游标

for c_row22 in c_emp loop 

    if substr(c_row22.category,-4) ='2016' then 

      dbms_output.put_line('流程类型' || c_row22.category);  

   end if;

   end loop ;  

     

 ------------------------------------------------------------  

   

   

   

    

 --创建存储过程   

 create or replace procedure p_wf_cf(yn varchar2,yo varchar2,allds out varchar2) as

 cursor c_emp is select category from act_hq_tem_def;

 tablec1 number;

 begin

  select count(*) into tablec1 from user_tables where table_name='ACT_HI_PROCINST_' || yn;  

   allds := tablec1;

   end  p_wf_cf;




--调用存储过程,输出值也在函数里传进去。 之后可以替换输出值,打印出来。

declare

  v_titleAVARCHAR2(20) := '2017';

    v_titlebVARCHAR2(20) := '2016';

    v_titlec11VARCHAR2(20) :='12';

begin

 p_wf_cf(v_titleA,v_titleb,v_titlec11);

  v_titlec11  :=p_wf_cf(v_titleA,v_titleb); --存储过程中需要有return 操作,才可用这种方式。 

  dbms_output.put_line('输出值为:' || v_titlec11);

 end;







--编写存储过程

create or replace procedure p_fasp_sc (dblink in varchar) as

  type refcursor is ref cursor;--定义游标类型

  col_cursor refcursor;--定义游标变量

v_deptRowfasp_T_causer%ROWTYPE ;-- 定义行类型

v_empRowfasp_T_causer%ROWTYPE ;-- 定义行类型

  tablename  varchar2(100);

  tmpsql varchar2(20000);

  exesql  varchar2(20000);

  

  v_enoemp.empno%TYPE ; -- 与emp表中empno字段类型相同的类型。

  v_resultA NUMBER NOT NULL := 100 ;  -- 定义一个非空变量v_resultA,同时赋值

  v_enameVARCHAR2(10) ;

   v_deptRowdept%ROWTYPE ;-- 装载一行dept表中记录

   v_date1DATE := SYSDATE ;--定义时间

  

  type emp_type is recode(

  ename emp.ename%type,

  job  emp.job%type,

  sal emp.sal%type,

  comm emp.comm%type

  );

  v_emp emp_type;--定义一个指定的复合类型变量

  

begin

  

  v_eno := &empno ;-- 由键盘输入雇员编号

   SELECT * INTO v_deptRow FROM dept WHERE deptno=10 ;--查询一行记录放在v_deptRow中。

   

   

   

  tmpsql :='select table_name as tablename from fasp_v_usertables where table_name like ''FASP_T_GL%''';


open col_cursor for tmpsql; --打开游标

loop 

  fetch col_cursor into tablename ; --取得游标数据

  exit when col_cursor%notfound; --如果没有数据则退出

  exesql := 'select count(*) from fasp_v_usertables';

  

  begin

    execute immediate exesql;

    exception

      when others then

        dbms_output.put_line('baocuole');

        raise;

       end;

end loop; 

close col_cursor;

end;




--调用存储过程

declare

  v_titleAVARCHAR2(20) := '1212';

begin

 p_fasp_sc(v_titleA) ;

 end;

  

 

--子程序

if 。。then 。。 else

and 

or

between and

is null

not null

like


--case

 CASE v_choose

    WHEN 0 THEN

      DBMS_OUTPUT.put_line('您选择的是第0项。') ;

    WHEN 1 THEN

      DBMS_OUTPUT.put_line('您选择的是第1项。') ;

    ELSE

      DBMS_OUTPUT.put_line('没有选项满足。') ;

  END CASE ;  


RAISE --报出异常。 

COMMIT ;

--for


存储过程

标签:性能测试

原文地址:http://blog.51cto.com/13693838/2104068

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!