BlogJava-orsen成长录-随笔分类-Oraclehttp://www.blogjava.net/orsen/category/41818.htmlzh-cnThu, 24 Sep 2009 17:42:47 GMTThu, 24 Sep 2009 17:42:47 GMT60oracle 游标的使用http://www.blogjava.net/orsen/archive/2009/09/24/296273.htmlOrsenOrsenThu, 24 Sep 2009 04:58:00 GMThttp://www.blogjava.net/orsen/archive/2009/09/24/296273.htmlhttp://www.blogjava.net/orsen/comments/296273.htmlhttp://www.blogjava.net/orsen/archive/2009/09/24/296273.html#Feedback0http://www.blogjava.net/orsen/comments/commentRss/296273.htmlhttp://www.blogjava.net/orsen/services/trackbacks/296273.html--通过使用隐式游标和记录为mydept表添加内容
Declare  
Type  dept_rec Is Record
(
     r_deptno  dept.deptno%Type,
     r_dname   dept.dname%Type,
     r_loc     dept.loc%Type
);
v_deptrec   dept_rec;
Begin
     Select deptno,dname,loc Into v_deptrec From dept
     Where deptno=&dno;
     Insert Into mydept Values v_deptrec;
      dbms_output.put_line('插值成功');
     Exception 
     When NO_DATA_FOUND Then
     dbms_output.put_line('该部门不存在');
     When Others Then
     dbms_output.put_line('发生异常，插值失败');
End ;


--结合游标从DEPT表中查询数据，将相应的数据插入到MYDEPT表中
Declare  
Type  dept_rec Is Record
(
     r_deptno  dept.deptno%Type,
     r_dname   dept.dname%Type,
     r_loc     dept.loc%Type
);
Cursor dept_cursor Is
Select * From dept Order By deptno Asc;
v_deptrec   dept_rec;
Begin

      --打开游标
      Open dept_cursor;
      --从游标中取值
      Fetch dept_cursor Into v_deptrec;
      While(dept_cursor%Found) Loop
           Insert Into mydept Values v_deptrec;
      dbms_output.put_line('插值成功');
      Fetch dept_cursor Into v_deptrec;          
      End Loop;
      Close dept_cursor;
     Exception When Others Then
     dbms_output.put_line('发生异常，插值失败');
End ;


--使用面向游标的记录
--通过面向游标的记录显示部门信息
Declare Cursor dept_cursor
Is
Select * From mydept Order By deptno Asc;
--定义一个面向游标的记录
v_deptrec dept_cursor%Rowtype;
Begin
     Open dept_cursor;
     Loop 
     Fetch  dept_cursor Into v_deptrec;      
          Delete From mydept Where deptno=v_deptrec.deptno;
          dbms_output.put_line(v_deptrec.deptno||' 信息删除成功');
     Exit When dept_cursor%Notfound ;
     End Loop;
     Close dept_cursor;
     Exception When Others Then
     dbms_output.put_line('发生异常，删除失败');
End;

Orsen 2009-09-24 12:58 发表评论
]]>