PLSQL入门：cursor传参，loop fetch使用，if使用，单引号字符表示

1、cursor传入参数

定义：cursor [cursor变量名称]([参数名称] [参数类型]) IS [SQL语句，可以使用传入参数]

例子：
    cursor moTypeNames(domain VARCHAR2) IS
      select t1.modelname from pm4h_mo.mdl_resmodel t1,pm4h_mo.mdl_domain t2
      where t2.domainname=domain
      and t1.domainid = t2.domainid;
    使用：open [cursor变量名称]([参数])

例子：

open moTypeNames(domainName);

2、loop fetch使用

fetch [cursor变量] into [循环变量]

when [cursor变量] %notfound;

例子：

loop

fetch domainNames into domainName;
      exit when domainNames%notfound;

end loop;

3、if使用

if(条件) then

[真值语句块]

end if;

4、单引号字符表示

''''：最外层两个单引号表示字符串引用，字符串中间第一个单引号表示转义，第二个单引号表示单引号。

例子：

v_sql :='select count(*)
                from pm4h_mo.mdl_resmodel t1, pm4h_mo.mdl_resmodeltable t2
                where  t1.modelname='''||moTypeName||''' and  t1.modelid=t2.modelid';

5、open cursor后要注意close cursor

declare
  --存储域名
  type t_cur is ref cursor;
  domainNames     t_cur;
  domainName      varchar2(50) :='';

  --存储每个域下的网元类型
  cursor moTypeNames(domain VARCHAR2) IS
    select t1.modelname from pm4h_mo.mdl_resmodel t1,pm4h_mo.mdl_domain t2
    where t2.domainname=domain
    and t1.domainid = t2.domainid;
  moTypeName      varchar2(500) :='';

  --拼接sql临时变量
  v_sql           varchar2(500) :=''; 

  --网元实体表名称
  tableName       varchar2(500) :=''; 

  --每个网元类型实体数
  v_count_number  number(30) :=0; 

  --总实体数
  v_count_sum     number(30) :=0;
begin
  --不限制输出长度
  dbms_output.enable(null);

  --查询域名
  open domainNames for
    select domainname from pm4h_mo.mdl_domain;

  --循环域名
  loop
    fetch domainNames into domainName;
    exit when domainNames%notfound;
    dbms_output.put_line(domainName);

    --查询MoType
    open moTypeNames(domainName); 

    --循环MoType
    loop
      fetch moTypeNames into moTypeName;
      exit when moTypeNames%notfound;
      dbms_output.put(moTypeName);

      --查询是否存在实体表：ElementMoType不存在实体表
      v_sql :='select count(*)
                from pm4h_mo.mdl_resmodel t1, pm4h_mo.mdl_resmodeltable t2
                where  t1.modelname='''||moTypeName||''' and  t1.modelid=t2.modelid';
      execute immediate v_sql
      into v_count_number;

      if(v_count_number <> 0) then
        --存在实体表，查询实体表名
        v_sql :='select t2.tablename
                from pm4h_mo.mdl_resmodel t1, pm4h_mo.mdl_resmodeltable t2
                where  t1.modelname='''||moTypeName||''' and t1.modelid=t2.modelid';
        execute immediate v_sql
        into tableName;

        --查询实体数量
        v_sql := 'select count(*) from pm4h_mo.obj_'||tableName || '  where verendtime is null';
        execute immediate v_sql
        into v_count_number;
        dbms_output.put_line(':'||v_count_number);

        --计算实体总量
        v_count_sum :=v_count_sum+v_count_number;
      end if;
    end loop;
    dbms_output.put_line('');
    close moTypeNames;
  end loop;
  dbms_output.put_line('total:'||v_count_sum);
  close domainNames;
end;