plsql程序設(shè)計(jì)-展示頁(yè)
2024-08-01 16:48本頁(yè)面
【正文】 insert into tout values(, ,)。 if i=1 then insert into tout values(,)。 begin 例 三 For r1 in c1 loop i := 0 。 i number 。 （注： 一天中收到的文件可能不止一份） ?編一 PL/SQL 程序，查詢每一類中最后一天收到的文件） ?表 clog(kno 類別 , pno 編號(hào) , pdate 收發(fā)日期 ) ?練習(xí)要點(diǎn)： 光標(biāo) FOR循環(huán)，帶參數(shù)的光標(biāo) 例 三 Declare cursor c1 is select distinct kno from clog。文件分類，每類中文件依收到日期先后順序編號(hào)。 open c1(v_depno) 。 光標(biāo) for循環(huán) For r in c1 loop end loop。 mit 。 例 二 Close c1。 end loop 。 s_sal:=s_sal + e_sal*。 exit when c1%notfound 。 select sum(sal) into s_sal from emp 。 e_eno char(3)。 s_sal number 。 Declare cursor c1 is select eno,sal from emp order by sal for update 。 隱式光標(biāo) 隱式光標(biāo)名： SQL 訪問： SQL％ ROWCOUNT SQL%FOUND SQL%NOTFOUND 顯式光標(biāo) ?定義 delcare cursor c1 is select … ?打開 open c1 ?讀 fetch c1 into 變量 /記錄 ?close c1 顯式光標(biāo) 讀取狀態(tài)信息 c1%found c1%rowcount 用光標(biāo)定義記錄 temp c1%rowtype 例 二 問題： 為職工長(zhǎng)工資。 光 標(biāo) ?Oracle 使用 Private SQL Area的工作區(qū)執(zhí)行 SQL語(yǔ)句，并保存語(yǔ)句執(zhí)行結(jié)果和相關(guān)的狀態(tài)信息。 end if 。 例 一 if = v_passwd then insert into tout values(`login ok` )。 BEGIN select * into tin_rec from tin 。 v_passwd % type 。 例 外 EXCEPTION WHEN 例外名 1 THEN … WHEN 例外名 2 THEN … … WHEN OTHERS THEN … … END ； 系統(tǒng)預(yù)定義例外 ? dup_val_on_index ? no_data_found ? too_many_rows Select * into … 用戶自定義例外 ?例外名定義 ex1 exception 。 FOR i IN 1..10 LOOP END LOOP 。 程序控制結(jié)構(gòu) IF e1 THEN ELSIF e2 THEN ELSIF e3 THEN ELSE END IF。 變量賦值 an_sal :=mon_sal *12 + nvl(m,0) 。 v_ename %TYPE 。PL/SQL程序設(shè)計(jì) 什么是 PL/SQL ?對(duì) SQL的擴(kuò)充 ?過程化 ?后臺(tái)技術(shù) PL/SQL 程序結(jié)構(gòu) Declare begin exception end / 變量類型 v_ename char(10) 。 married boolean :=true 。 emp_rec emp % ROWTYPE 。 Select ename INTO v_ename from emp where eno=` e01 ` 。 WHILE e LOOP END LOOP 。 EXIT [WHEN e] 。 ?引起例外 raise ex1 ； 例 一 用戶注冊(cè)檢查 tin : tout : userlog : Ud ps msg Userid passwd … 例 一 DECLARE tin_rec tin % rowtype 。 errps EXCEPTION 。 select passwd into v_passwd from userlog where userid = 。 else raise errps 。 exception when errps then insert into tout values(`password error`〕 ； when no_data_found then insert into tout values(`userid error’〕 ； end。 ?光標(biāo)是一個(gè) PL/SQL結(jié)構(gòu)，利用光標(biāo)可以命名這些工作區(qū)，并通過光標(biāo)訪問工作區(qū)中的信息。從最低工資長(zhǎng)，工資總額限制在 50萬(wàn)元。 emp_num number :=0 。 e_sal number 。 例 二 Begin open c1。 while s_sal500000 loop fetch c1 into e_eno,e_sal 。 update emp set sal=sal* where eno=e_eno 。 emp_num:=emp_num+1 。 where current of c1 。 insert into msg values(emp_num , s_sal) 。 end。 如何打開光標(biāo) 如何讀光標(biāo)區(qū) 如何判斷讀完 如何關(guān)閉光標(biāo) 帶參數(shù)光標(biāo) cursor c1 (depno char(3)) is select * from emp where dno=depno 。 例 三 ?例題： 收發(fā)室收文件。值班人員收到文件后，要在系統(tǒng)中登錄文件類別，編號(hào)，收到日期。 cursor c2 (kindno char(3)) is select * from clog where kno=kindno order by day desc 。 l_d date 。 for r2 in c2() loop i := i + 1 。 l_d:=。 else exit。 end loop。 記錄－多域單行結(jié)構(gòu) Declare type time_type is record (second integer(2) :=0 , minute integer(2) :=0, hour integer(2) :=0 ) 。 PL/SQL表 (數(shù)組 )－多行單列結(jié)構(gòu) Declare type ename_type is table of char(10) index by binary_integer 。 I binary_integer :=0 。 ename_array(I):= 。 P
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1