游标，动态，for循环 -

kb5706

浏览: 41503 次
性别:
来自: 大连

最近访客更多访客>>

whsfei

redkale

dtl5878461

helenjay_cwy

博主相关

博客

微博

相册

留言

关于我

文章分类

全部博客 (85)

社区版块

存档分类

游标，动态，for循环

--小测：输出各部门员工的部门名称和工号、姓名，工资。
要求： 各部门工资最高的放在前面 在“DALLAS”地方的部门名称后加上“*”。 ·三种实现方式 1 通过显式游标 2 通过FOR循环 3 通过动态SQL方式

----------------------------------------显示游标

declare
  type emp_dept is record(
    name  dept.dname%type,
    loc   dept.loc%type,
    empno emp.empno%type,
    ename emp.ename%type,
    sal   emp.sal%type);
  emp_table emp_dept;
  cursor cur_emp is
    select d.dname, d.loc, e.empno, e.ename, e.sal
      from emp e, dept d
     where d.deptno = e.deptno
     order by e.deptno, e.sal desc;
begin
  open cur_emp;
  fetch cur_emp
    into emp_table;
  loop
 
    if emp_table.loc = 'DALLAS' THEN
      dbms_output.put_line(emp_table.loc || '*' || '-->' || emp_table.name ||
                           '-->' || emp_table.empno || '-->' ||
                           emp_table.sal);
    else
      dbms_output.put_line(emp_table.loc || '-->' || emp_table.name ||
                           '-->' || emp_table.empno || '-->' ||
                           emp_table.sal);
    end if;
    fetch cur_emp
      into emp_table;
    exit when cur_emp%notfound;
  end loop;
  close cur_emp;
end;
    ----不用if else
    begin
       for x in (select(case when d.loc='DALLAS'
       then d.loc||'*' else d.loc
        end),d.dname,e.empno,e.ename,e.sal from emp e,dept d where d.deptno=e.deptno order by e.deptno,e.sal desc)
 loop
     dbms_output.put_line(x.loc||'-->'||x.dname||'-->'||x.empno||'-->'||x.sal);
 end loop;
 END;

-------------------------------for循环

begin
       for x in (select d.dname,d.loc,e.empno,e.ename,e.sal from emp e,dept d where d.deptno=e.deptno order by e.deptno,e.sal desc)
 loop
 if x.loc='DALLAS' then
        x.loc:=x.loc||'*';
  end if;
     dbms_output.put_line(x.loc||'-->'||x.dname||'-->'||x.empno||'-->'||x.sal);
 end loop;
 END;

-------------------------------动态sql <p style="margin-top:0px; margin-bottom:5px; padding-top:0px; padding-bottom:0px; border-top-width:0px; border-right-width:0px; border-bottom-width:0px; border-left-width:0px; border-style:initial; border-color:initial; list-style-type:none; list-style-position:initial; word-wrap:normal; word-break:normal; line-height:21px; color:rgb(70,70,70); font-family:simsun; font-size:14px; text-align:left"> <pre name="code" class="sql">declare cursor cur_emp is select d.dname, d.loc, e.empno, e.ename, e.sal from emp e, dept d where d.deptno = e.deptno order by e.deptno, e.sal desc; type emp_table_type is table of cur_emp%rowtype index by binary_integer; emp_table emp_table_type; str_sql varchar2(1000); begin str_sql := 'select d.dname, d.loc, e.empno, e.ename, e.sal from emp e, dept d where d.deptno = e.deptno order by e.deptno, e.sal desc'; execute immediate str_sql bulk collect into emp_table; for i in 1 .. emp_table.count loop if emp_table(i).loc = 'DALLAS' THEN dbms_output.put_line(emp_table(i).loc || '*' || '-->' || emp_table(i).dname || '-->' || emp_table(i).empno || '-->' || emp_table(i).sal); else dbms_output.put_line(emp_table(i).loc || '-->' || emp_table(i).dname || '-->' || emp_table(i).empno || '-->' || emp_table(i).sal); end if; end loop; end;</pre> ----还可以用记录类型来做如上

分享到：