create or replace procedure ProcAddUser(iDepartmentid in number,szName in varchar2,szErrCode out varchar2) as begin insert into m_groups(groupid,groupname) values(iDepartment,szName) ; commit; szErrCode:='执行成功!'; exception when others then rollback; szErrCode:='执行失败!'; end;
oracle中的数字用number, set serverout on 在过程中不能这么用.
set serveroutput on这个不要
create or replace procedure ProcAddUser (iDepartmentid in number,szName in varchar2,szErrCode out varchar2) as begin
insert into m_groups(groupid,groupname) values(iDepartment,szName) ; commit; szErrCode:='0'; return; exception WHEN OTHERS THEN BEGIN rollback; szErrCode:='1';
return; end; end;
create or replace procedure gsktest.insertbook(nPID in NUMBER,sName in VARCHAR, sErr out VARCHAR ) as begin insert into T_BOOK (PID,BOOKNAME) values(nPID,sName); sErr := 'a'; end insertbook;这样可以
as
begin
insert into m_groups(groupid,groupname) values(iDepartment,szName) ;
commit;
szErrCode:='执行成功!';
exception
when others then
rollback;
szErrCode:='执行失败!';
end;
set serverout on 在过程中不能这么用.
(iDepartmentid in number,szName in varchar2,szErrCode out varchar2)
as
begin
insert into m_groups(groupid,groupname)
values(iDepartment,szName) ;
commit;
szErrCode:='0';
return;
exception
WHEN OTHERS THEN BEGIN
rollback;
szErrCode:='1';
return;
end;
end;
as
begin
insert into T_BOOK (PID,BOOKNAME) values(nPID,sName);
sErr := 'a';
end insertbook;这样可以