base de datos

AC TIVIDAD I
Bloques anonimos

Facultad de Ingeniería !

1

numero 1
declare
v_empno emp.empno%type;
v_ename emp.ename%type;
v_job emp.job%type;
begin
select empno, ename, job
intov_empno, v_ename, v_job
from emp
where empno = 7369;
dbms_output.put_line(v_empno || ' ' || v_ename || ' '|| v_job);
end;

Facultad de Ingeniería !

2

Numero 2
declare
reg_emp emp%ROWTYPE;begin
select *
into reg_emp
from emp
where empno = 7369;
dbms_output.put_line(reg_emp.empno || ' ' || reg_emp.ename || ' '|| reg_emp.job);
end;

Facultad de Ingeniería !

3

numero 3declare
v_nom_emp emp.ename%TYPE;
v_nom_jefe emp.ename%type;
begin
select e.ename , m.ename
into v_nom_emp,v_nom_jefe
from emp e join emp m ON e.mgr = m.empno
where e.empno = 7369;dbms_output.put_line(v_nom_jefe || 'es el jefe de' || v_nom_emp);
end;

Facultad de Ingeniería !

4

//numero 4
declare
cursor cemp
is
select * from emp;
reg_emp emp %ROWTYPE;
c NUMBER(2) :=0;
beginopen cemp;
loop
fetch cemp into reg_emp;
exit when cemp%NOTFOUND;
c := c+1;
dbms_output.put_line(c||' '||reg_emp.empno || ' ' || reg_emp.ename || ' '||
reg_emp.job);
end loop;
close cemp;end;

Facultad de Ingeniería !

5

//numero 5
declare
cursor cemp
is
select * from emp;
c NUMBER(2) :=0;
begin
for reg_emp in cemp
loop
c := c+1;
dbms_output.put_line(c||''||reg_emp.empno || ' ' || reg_emp.ename || ' '||
reg_emp.job);
end loop;
end;

Facultad de Ingeniería !

6

//numero 6
declare
cursor cemp(v_job emp.job%type)
is
select * from emp
where job =v_job;
begin
for reg_emp in cemp('MANAGER')
loop
dbms_output.put_line(reg_emp.empno || ' ' || reg_emp.ename || ' '|| reg_emp.job);
end loop;
end;

Facultad de Ingeniería !

7

//numero 7declare
cursor cemp
is
select * from emp;
begin
for reg_emp in cemp
loop
if reg_emp.deptno = 10 then
insert into emp10 values(reg_emp.empno,reg_emp.ename,reg_emp.job,reg_emp.deptno);
elsif...