create or replace procedure procedure1 (tempno in scott.emp.empno%type, --入参,与emp表中empno类型一致 name1 out scott.emp.ename%type, --出参,同上 job1 in out scott.emp.job%type) --出参,同上 as myjob scott.emp.job%type; --变量 myname scott.emp.ename%type; --变量 begin select job into myjob from scott.emp where empno=tempno; --赋值与myjob select ename into myname from scott.emp where empno=tempno; --赋值与myname name1:='姓名: '||myname; --给出参赋值 job1:='职业: '||myjob; --给出参赋值 end;
根据empno 找'姓名: '和'职业: '
set serveroutput on --- 打开页面输出 create or replace procedure procedure1 --创建或替代过程procedure1 (tempno in scott.emp.empno%type, ---定义字段tempno,类型和emp表里的empno字段一致 name1 out scott.emp.ename%type, ---同上 job1 in out scott.emp.job%type) ---同上 as myjob scott.emp.job%type; ---定义变量 myname scott.emp.ename%type; ---定义变量 begin select job into myjob from scott.emp ---从表emp取job放到变量myjob里 where empno=tempno; select ename into myname from scott.emp --同上 where empno=tempno; name1:='姓名: '||myname; 连接字串 job1:='职业: '||myjob; 连接字串 end;
(tempno in scott.emp.empno%type, --入参,与emp表中empno类型一致
name1 out scott.emp.ename%type, --出参,同上
job1 in out scott.emp.job%type) --出参,同上
as
myjob scott.emp.job%type; --变量
myname scott.emp.ename%type; --变量
begin
select job into myjob from scott.emp
where empno=tempno; --赋值与myjob
select ename into myname from scott.emp
where empno=tempno; --赋值与myname
name1:='姓名: '||myname; --给出参赋值
job1:='职业: '||myjob; --给出参赋值
end;
create or replace procedure procedure1 --创建或替代过程procedure1
(tempno in scott.emp.empno%type, ---定义字段tempno,类型和emp表里的empno字段一致
name1 out scott.emp.ename%type, ---同上
job1 in out scott.emp.job%type) ---同上
as
myjob scott.emp.job%type; ---定义变量
myname scott.emp.ename%type; ---定义变量
begin
select job into myjob from scott.emp ---从表emp取job放到变量myjob里
where empno=tempno;
select ename into myname from scott.emp --同上
where empno=tempno;
name1:='姓名: '||myname; 连接字串
job1:='职业: '||myjob; 连接字串
end;