-- 创建无参procedure:
drop procedure proc_test
create or replace procedure proc_test
is
testvalue varchar2(40);
begin
select ename into testvalue from emp where empno = 7844;
dbms_output.put_line(testvalue);
end proc_test;
/
begin
proc_test;
end;
-------------------------------
create or replace procedure proc_test
is
testvalue varchar2(40);
job varchar2(9);
begin
select ename,job into testvalue,job from emp where empno=7844;
dbms_output.put_line(testvalue||job);
end proc_test;
/
------------------------------
-- 创建无参procedure:
drop procedure proc_test
create or replace procedure proc_test
is
testvalue varchar2(40);
begin
select ename into testvalue from emp where empno = 7844;
dbms_output.put_line(testvalue);
end proc_test;
/
begin
proc_test;
end;
-- 创建输入参procedure:
drop procedure insert_student
create or replace procedure insert_student
(
user_id Number,user_name varchar2,user_pass varchar2
)
as
begin
insert into student values(user_id,user_name,user_pass);
end insert_student;
begin
insert_student(1,'aaa','bbb');
commit;
end;
drop procedure proc_test1
create or replace procedure proc_test1
(
invalue in Integer
)
as
testvalue varchar2(40);
begin
select user_name into testvalue from user_info where user_id = invalue;
dbms_output.put_line(testvalue);
end proc_test1;
/
declare
parameter Integer := 1001;
begin
proc_test1(parameter);
end;
-- 创建输出参procedure:
drop procedure proc_test2
create or replace procedure proc_test2
(
invalue out varchar2
)
as
begin
select user_name into invalue from user_info where user_id = 1001;
end proc_test2;
/
declare
parameter varchar2(20);
begin
proc_test2(parameter);
dbms_output.put_line(parameter);
end;
--既有输入，又有输出
create or replace procedure proc_test3
(
invalue in Integer,outvalue out varchar2
)
as
begin
select user_name into outvalue from user_info where user_id = invalue;
end proc_test3;
/
declare
parameter Integer := 1001;
parameter1 varchar2(20);
begin
proc_test3(parameter,parameter1);
dbms_output.put_line(parameter1);
end;