生手存储过程碰到的小细节

新手存储过程碰到的小细节
SQL Window

create or replace procedure Pro_SPL_Upsno is  v_sql varchar2(4000);  cursor c1 is　　　　　　　　　　　　　　　　　　--游标的使用    select spli_sid v_supplierid,           lpad(spli_sno, 10, '0') v_supplierno,           spli_sname v_suppliername      from spl_supplierinfo     where spil_nvalid = 1       and length(spli_sno) = 8       and rownum < 100     order by spli_sno;begin　　　　　　　　　　　　　　　　　　　　　　     --有begin无end  v_sql := '';　　　　　　　　　 　　　　　　　　　  --动态sql  for v_c1 in c1 loop　　　　　　　　　　　　　　　 --循环的使用    v_sql := 'update spl_supplierinfo set SPLI_SNO = ''' || v_c1.v_supplierno ||             ''' where spli_sid = ''' || v_c1.v_supplierid || '''';  --注意''的使用    DBMS_OUTPUT.PUT_LINE('V_SQL:' || v_sql);    Execute immediate v_sql;　　　　　　　　　　　  --immediate 的使用    commit;  end loop;EXCEPTION　　　　　　　　　　　　　　　　　　　        --exception的使用  WHEN OTHERS THEN    ROLLBACK;    RAISE;end Pro_SPL_Upsno;

SQL> exec pro_spl_upsno;                PL/SQL procedure successfully completed     SQL> set serveroutput on;    　　　　　　　　　　    --如果需要打印SQL> exec pro_spl_upsno;   V_SQL:update spl_supplierinfo set SPLI_SNO = '0031400026' where spli_sid = '88372'......PL/SQL procedure successfully completed  

1.SQL>exec DBMS_OUTPUT.ENABLE(1000000);           --调用了dbms_output包2.SQL>set serveroutput on size 1000000  　　　　　  --设置成更大。