orsen成長錄
          
				
          
			          		
		
          
	
          

          

          
	
          
		
          
			
 
BlogJava ::
首頁 ::
新隨筆 ::
聯系 ::
聚合
 ::
管理 ::


			
			
				

          
	
          
		
          
			
			
			
				 
				3 
				隨筆 ::
				2 文章
				::
				0 評論
				::
				0 Trackbacks
			
		
          
	
          

          

			          		
		
          
	
          

          


          


          
	
					

          
	
	
	
          
		
          --通過使用隱式游標和記錄為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;
          

          
 
	
          
	
	
          
		posted on 2009-09-24 12:58 Orsen 閱讀(139) 評論(0)  編輯  收藏  所屬分類: Oracle 
	
          

          







          
	    
    




          





          


          

	
          
		
          
				
		
	
		
          
		
		
          只有注冊用戶登錄后才能發表評論。
          
		
          
			
		
          
			
		
          
		
		
          
		


          

		          		
		
          
		
          			
		
		
		
		
          
		
          
		
		
          
		
          
			網站導航:
		
		
          
		
          
			
		
          	
		
          
			 
		
          
		
          
			
		
          
		
          
			
				
		
          		
	
          	

          



          

				

          




    







          
        
	




主站蜘蛛池模板：
三台县|
清徐县|
分宜县|
娄底市|
留坝县|
丹寨县|
逊克县|
建始县|
凤冈县|
册亨县|
南投县|
屏东县|
陈巴尔虎旗|
台南县|
霸州市|
宁河县|
柳林县|
勐海县|
平顶山市|
屏山县|
高安市|
屯留县|
金堂县|
云霄县|
房山区|
长寿区|
赞皇县|
聂拉木县|
平邑县|
兴隆县|
黎川县|
潞西市|
门头沟区|
内乡县|
嘉黎县|
青海省|
南宫市|
涞水县|
安平县|
滨海县|
桦南县|