PLSQL 块demo

DECLARE
  v_servid NUMBER(16);
  v_stdno VARCHAR2(30);
BEGIN
  FOR i IN (SELECT rownum rn, t.*
              FROM tb_server t
             WHERE t.seller = 'abd')
  LOOP
    v_servid := i.servid;
    BEGIN
      SELECT t1.stdno
        INTO v_stdno
        FROM tb_digit t1
       WHERE t1.servid = i.servid;
    
      IF i.servtype = '0' THEN
        UPDATE tb_device t2
           SET t2.place = 999
         WHERE t2.stdno = i.stdno;
      
      ELSIF i.servtype = '1' THEN
        UPDATE tb_device t2
           SET t2.place = 111
         WHERE t2.stdno = i.stdno;
      END IF;
    
    EXCEPTION
      WHEN no_data_found THEN
        dbms_output.put_line(SQLERRM);
    END;
    IF MOD(i.rn, 1000) = 0 THEN
      COMMIT;
    END IF;
  END LOOP;
  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    dbms_output.put_line(v_servid || '------' || SQLERRM);
END;

收藏于 2012-07-25

来自于百度空间

转载于:https://www.cnblogs.com/ruanjianxian/p/6126906.html