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
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;
/
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;