大型數(shù)據(jù)庫技術(shù)-實驗四PLSQL編程實驗內(nèi)容：(1)記錄執(zhí)行命令和操作過程中遇到的問題及解決方法，注意從原理上解釋原因。(2)記錄利用SQL*Plus或PL/SQLDeveloper編寫、執(zhí)行PL/SQL程序的命令。(3)記錄執(zhí)行命令和操作過程中遇到的問題及解決方法，注意從原理上解釋原因。(4)記錄利用企業(yè)管理器管理存儲過程、存儲函數(shù)、觸發(fā)器的方法(5)記錄利用SQL*Plus和PL/SQLDeveloper管理存儲過程、存儲函數(shù)、觸發(fā)器的命令。實驗步驟與調(diào)試過程：1．在SQL*Plus中使用PL/SQL塊處理2．無參數(shù)的存儲過程3．帶輸入?yún)?shù)的存儲過程4．帶輸入輸出的存儲過程5．用Function查詢出EMP中給定職工號的工資6．用異常處理完善程序7.創(chuàng)建存儲過程，實現(xiàn)功能為：刪除scott.emp表中任意給定職工號的職工記錄8.創(chuàng)建函數(shù)，實現(xiàn)功能為：在scott.emp表和scott.dept表中查詢出任意給定職工號的職工姓名及職工所在部門的名稱9.創(chuàng)建觸發(fā)器，實現(xiàn)更新dept表中的deptno值，級聯(lián)更新emp表中相應(yīng)值10.對存儲過程、函數(shù)及觸發(fā)器實現(xiàn)查看、修改、刪除等基本操作實驗結(jié)果：第1頁共13頁第2頁共13頁第3頁共13頁第4頁共13頁疑難小結(jié)：1、ORA-12541:TNS:沒有監(jiān)聽器原因:沒有啟動監(jiān)聽器或者監(jiān)聽器損壞。如果是前者，使用命令netstartOracleOraHome81TNSListener(名字可能有出入)即可;如果是后者，則使用"Net8ConfigurationAssistant"工具向?qū)е?監(jiān)聽程序配置"增加一個監(jiān)聽器即可(基本不用寫任何信息，一路OK。在添加之前可能需要把所有的監(jiān)聽器先刪除!)2、ORA-12500:TNS:監(jiān)聽程序無法啟動專用服務(wù)器進程或ORA-12560:TNS:協(xié)議適配器錯誤原因:ORACLE的數(shù)據(jù)庫服務(wù)沒有啟動。使用命令netstartORACLESERVICEORADB(ORADB為數(shù)據(jù)庫名字)即可。如果仍沒有解決，請繼續(xù)向下看。3、如果數(shù)據(jù)庫服務(wù)啟動失敗，則很有可能是其注冊表項值損壞，最好的做法是以下兩步:1)ORADIM-DELETE-SIDoradb刪除數(shù)據(jù)庫服務(wù)項2)ORADIM-NEW-SIDoradb新增數(shù)據(jù)庫服務(wù)項注:這個過程中如果出錯，就重啟計算機!第5頁共13頁主要實現(xiàn)方法和過程（程序清單）：1．在SQL*Plus中使用PL/SQL塊處理EMP表中職工號7788的職工，如果工資小于3000那么把工資更改為3000：SQL>DECLAREXNUMBER(7,2);BEGINSELECTsalINTOxFROMempWHEREempno=7788;IFx<3000THENUPDATEempSETsal=3000WHEREempno=7788;ENDIF;END;如果想運行緩沖區(qū)的內(nèi)容，那么可以用RUN命令或者/命令。請參閱第一章有關(guān)內(nèi)容。2．無參數(shù)的存儲過程CREATEORREPLACEPROCEDUREproc_executionISBEGINUPDATEEMPSETENAME=‘yourname’whereEMPNO=9010;ENDproc_execution;存儲過程的在SQL*Plus中運行SQL>EXECUTEproc_execution第6頁共13頁

3．帶輸入?yún)?shù)的存儲過程：解雇給定職工號的職工，并調(diào)用proc_execution：SQL>CREATEORREPLACEPROCEDUREfire_emp(v_emp_noINemp.empno%type)ISBEGINproc_execution;DELETEFROMEMPWHEREempno=v_emp_no;ENDfire_emp;/Procedurecreated.SQL>EXECUTfire_emp(7654)PL/SQLproceduresuccessfullycompleted.存儲過程刪除了職工號7654的職工。4．帶輸入輸出的存儲過程查詢EMP中給定職工號的姓名、工資和傭金。SQL>CREATEORREPLACEPROCEDUREquery_emp(v_emp_noINemp.empno%type,v_emp_nameOUTemp.ename%type,v_emp_salOUTemp.sal%type,第7頁共13頁

v_emp_commOUTm%type)ISBEGINSELECTename,sal,commINTOv_emp_name,v_emp_sal,v_emp_commFROMEMPWHEREempno=v_emp_no;ENDquery_emp;/Procedurecreated.SQL>VARIABLEemp_namevarchar2(15);SQL>VARIABLEemp_salnumber;SQL>VARIABLEemp_commnumber;SQL>EXECUTEquery_emp(7654,:emp_name,:emp_sal,:emp_comm);PL/SQLproceduresuccessfullycompleted.SQL>PRINTemp_name;EMP_NAME-------------------MARTIN第8頁共13頁

5．用Function查詢出EMP中給定職工號的工資：SQL>CREATEORREPLACEFUNCTIONget_sal(v_emp_noINemp.empno%type)RETURNnumberISV_emp_salemp.sal%type:=0;BEGINSELECTsalINTOv_emp_salFROMEMPWHEREempno=v_emp_no;RETURN(v_emp_sal);ENDget_sal;/Procedurecreated.SQL>VARIABLEemp_salnumberSQL>EXECUTE:emp_sal:=get_sal(7654)PL/SQLproceduresuccessfullycompleted.SQL>PRINTemp_salEMP_SAL-------------------第9頁共13頁

12506．用異常處理完善程序如例3中：解雇給定職工號的職工，并調(diào)用proc_execution：SQL>CREATEORREPLACEPROCEDUREfire_emp(v_emp_noINemp.empno%type)ISBEGINproc_execution;DELETEFROMEMPWHEREempno=v_emp_no;ENDfire_emp;Procedurecreated.SQL>EXECUTfire_emp(7654)如果職工號7654的職工不存在則出錯。為了避免出錯我們使用了EXCEPTION語句。SQL>CREATEORREPLACEPROCEDUREfire_emp(v_emp_noINemp.empno%type)IS第10頁共13頁

BEGINproc_execution;DELETEFROMEMPWHEREempno=v_emp_no;IFSQL%NOTFOUNDTHENRAISE_APPLICATION_ERROR(-20202,'Employeedoesnotexists.');ENDIF;ENDfire_emp;Procedurecreated.SQL>EXECUTfire_emp(7654)就不會出錯了。7創(chuàng)建存儲過程，實現(xiàn)功能為：刪除scott.emp表中任意給定職工號的職工記錄；CREATEORREPLACEPROCEDUREDELETE_EMP(IDINDEPT.DEPTNO%TYPE)ISBEGINDELETEFROMDEPTWHEREDEPTNO=ID;ENDDELETE_EMP;8創(chuàng)建函數(shù)，實現(xiàn)功能為：在scott.emp表和scott.dept表中查詢出任意給定職工號的職工姓名及職工所在部門的名稱。CREATEORREPLACEFUNCTIONSELECT_EMP(V_EMP_NOINEMP.EMPNO%TYPE,V_EMP_NAMEOUTEMP.ENAME%TYPE)第11頁共13頁

RETURNDEPT.DNAME%TYPEASV_DEPT_NAMEDEPT.DNAME%TYPE;BEGINSELECTEMP.ENAME,DEPT.DNAMEINTOv_emp_name,v_dept_nameFROMEMP,DEPTWHEREEMP.deptno=DEPT.DEPTNOANDEMPNO=v_emp_no;RETURNv_dept_name;ENDSELECT_EMP;9創(chuàng)建觸發(fā)器，實現(xiàn)更新dept表中的deptno值，級聯(lián)更新emp表中相應(yīng)值。CREATEORREPLACETRIGGERUPDATE_DEPT_TO_EMPAFTERUPDATEONDEPTFOREACHROWBEGINIFupdatingTHENUPDATEempSETdeptno=:new.deptnoWHEREdeptno=:old.deptno;ENDIF;ENDUPDATE_DEPT_TO_EMP;第12頁共13頁

10對存儲過程、