這段時間實在是很忙，結婚、趕項目進度、被迫出書、教學。每件事都是不能得罪的。。。。
前幾天幫教務處修正oracle數據庫數據問題，把代碼貼出來防止以后找不到了

declare?
CURSOR?curTTT?is?select?XN,XM,XQ,KCMC,XF,BJMC?from?CJB;
XN1?VARCHAR2(10);
XM1?VARCHAR2(20);
??XQ1?NUMBER(1);
??KCMC1?VARCHAR2(40);
??XF1?VARCHAR2(10);
??BJMC1?VARCHAR2(40);
begin
-----------------------------------------

?if?curTTT%isopen?=?false?then?
??open?curTTT;
??end?if;
??fetch?curTTT?into?XN1,XM1,XQ1,KCMC1,XF1,BJMC1;
?--??Dbms_Output.put('1');
while?curTTT%found?
loop
?if?XF1='0'?then???????
update?CJB?
set?XF=(select?*?from?(select?nvl(XF,0)?from?CJB?
where?BJMC=BJMC1?and?KCMC=KCMC1?and?XQ=XQ1
?????and?XN=XN1?and?XF>'0'?)
???????where?ROWNUM<=1)
where?BJMC=BJMC1?and?KCMC=KCMC1?and?XQ=XQ1
?????and?XN=XN1?and?XM=XM1;?
end?if;

if?curTTT%rowcount=0?then
exit;
end?if;

fetch?curTTT?into?XN1,XM1,XQ1,KCMC1,XF1,BJMC1;
end?loop;

??commit;
??close?curTTT;
--------------------------------------------?
end;

轉載于:https://www.cnblogs.com/coffeeliu/archive/2006/09/30/518879.html

總結

以上是生活随笔為你收集整理的oracle 游标（学校）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。