create or replace package Pac_Test
as
  procedure Pro_DelAndUpd();
end Pac_test;
/
Commit;
/create or replace package body Pac_Test
as
       procedure Pro_DelAndUpd
       is
       begin
            update t_test set name = name || ' is updated';
delete from t_test where id = 1001;
dbms_lock.sleep(1);
RAISE_APPLICATION_ERROR(-1,'大哥,出错了!');
       end Pro_DelAndUpd;
end Pac_Test;
/
Commit;
/----------------------------显示错误:3/32     PLS-00103: 出现符号 ")"在需要下列之一时:
         <an identifier>
         <a double-quoted delimited-identifier>current

解决方案 »

  1.   

    -------------------- 增加一个参数就正确了,如下:--------------------
    create or replace package Pac_Test
    as
      procedure Pro_DelAndUpd(inName varchar2);
    end Pac_test;
    /
    Commit;
    /create or replace package body Pac_Test
    as
           procedure Pro_DelAndUpd(inName varchar2)
           is
           begin
                update t_test set name = name || ' is updated';
    delete from t_test where id = 1001;
    --dbms_lock.sleep(10);
    RAISE_APPLICATION_ERROR(-20005,'权限不足,新增管理员信息失败!');
           end Pro_DelAndUpd;
    end Pac_Test;
    /
    Commit;
    /
      

  2.   

    改了一下:
    create or replace package Pac_Test
    as
      procedure Pro_DelAndUpd;
    end Pac_test;create or replace package body Pac_Test
    as
           procedure Pro_DelAndUpd
           is
           begin
                update t_test set name = name || ' is updated';
    delete from t_test where id = 1001;
    dbms_lock.sleep(1);
    RAISE_APPLICATION_ERROR(-1,'大哥,出错了!');
           end Pro_DelAndUpd;
    end Pac_Test;