Para que el servidor muestre los resultados.

set serveroutput on

Cursor que liste de all_tables y de all_tab_columns, nombre de tabla y atributo

declare
cursor CrListaAtributos (pTabla varchar2) is
    select COLUMN_NAME
    from all_tab_columns
    where TABLE_NAME = pTabla ;
    cursor CrListatablas is
    select distinct tablas.table_name
    from all_tables tablas
    where table_name not like '%$%'
    and owner not like '%SYS%';
  
    vNomTabla all_tables.table_name%type;
    vAtributoTabla all_tab_columns.table_name%type;
  

begin
    open CrListatablas;
    loop
      
    fetch CrListatablas into vNomTabla;
    exit when CrListatablas %notfound;
        dbms_output.put_line('--------------------------------');
    dbms_output.put_line(vNomTabla);
        dbms_output.put_line('--------------------------------');
    open CrListaAtributos(vNomTabla);
  
    loop
    fetch CrListaAtributos into vAtributoTabla;
    exit when CrListaAtributos%notfound;
    dbms_output.put_line(vAtributoTabla);
    end loop;
    close CrListaAtributos;
    end loop;
    close CrListatablas;
end;

Servidor Duoc

http://oracle:5560/isqlplus/

contar cuantos empleados hay por cada departamento :
Creamos un atributo en la tabla departments :
ALTER table DEPARTMENTS add TotEmplexDepartamento number(100)
Ahora procedo a realizar el cursor :
Declare cursor
miCursor is
select e.department_id, count(p.employee_id) as Empleados
from Departments e, Employees p
where p.department_id = e.department_id
group by p.department_id;
vnumdepartamento employees.employee_id%type;
vtotempleados employees.employee_id%type;
begin
open micursor;
loop
fetch micursor into vnumdepartamento,vtotempleados;
exit when micursor%notfound;
update DEPARTMENTS set TotEmplexDepartamento= vtotempleados 
where department_id= vnumdepartamento
end loop;
close micursor;
End;

Cursor

--Cursor que permita determinar los empleados cuyo cargo sea finance manager o programmer, que tienen una renta menor o igual al promedio entre el salario minimo y maximo definido en la tabla jobs--
--Para los empleados que tiene menos del promedio estudiar aumento y para los que tengan mas estudiar carga de trabajo--
-- Generando un registro en la tabla , estudio_sueldo, donde se graben el id_empleado , nombre , apellido , renta , y diferencia con promedio--


Create table estudio_sueldo(
EMPLOYEE_ID number (6),
FIRST_NAME varchar2 (20),
LAST_NAME varchar2 (25),
SALARY number (8,2),
PROMEDIO number (8,2),
MESSAGE varchar2 (30))

Incompleto

Declare
cursor miCursor is
 Select first_name , last_name, e.job_id, employee_id, salary
 From Employees e, Jobs j
 Where e.job_id = j.job_id
 and job_title = 'Finance Manager'
 or job_title = 'Programmer';
vNombre employees.first_name%type;
vApellido employees.last_name%type;
vJobid employees.job_id%type;
vEmpleadoid employees.employee_id%type;
vSalario employees.salary%type;
vSueldoMin employees.salary%type;
vSueldoMax employees.salary%type;
vPromedio number (8,2);
Begin
open miCursor;
loop
fetch miCursor into vNombre,vApellido,vJobid,vEmpleadoid,vSalario;
exit when miCursor%notfound;
dbms_output.put_line(vNombre ||' '||vApellido||' '||vJobId||' '||vEmpleadoId||' '||vSalario);
select min_salary , max_salary into vSueldoMin, vSueldoMax
from jobs
where vJobId = job_id
vPromedio = (vSueldoMin + vSueldoMax)/2;
if vSueldo >= vPromedio
then vMessage := 'evaluar carga de trabajo'
else
vMessage := 'Estudiar aumento de sueldo';
end if;
--Falta calcular la diferencia ente los sueldos y promedios--
--Realizar enunciado--
insert into estudio_sueldo values (vEmpleadoid,vNombre,vApellido,vSalario, vPromedio)
end loop;
close miCursor;
End;

Consultas

Select first_name , last_name, e.job_id
From Employees e, Jobs j
Where e.job_id = j.job_id
and job_title = 'Finance Manager'


--(Tiene que estar igual el campo a buscar que en la tabla)--
-- Si no se realiza el lower o upper ---


Select first_name , last_name, e.job_id
From Employees e, Jobs j
Where e.job_id = j.job_id
and lower (job_title) = 'finance manager'

-- Listar todos los empleados que tienen los cargos finance manager , programmer --

Select first_name , last_name, e.job_id
From Employees e, Jobs j
Where e.job_id = j.job_id
and job_title = 'Finance Manager'
or job_title = 'Programmer'

Cursor.-

select department_id as "Departamento",
count(*) as "Total Empleado"
From employees
group by department_id


select DEPARTMENT_NAME as "departamento",
count(*) as "totalEmpleados"
from DEPARTMENTS d, EMPLOYEES e
Where e.DEPARTMENT_ID = d.DEPARTMENT_ID
Group by DEPARTMENT_NAME   

Seleccionar el nombre de los departamentos donde trabaja el empleado.

select DEPARTMENT_NAME ,count(EMPLOYEE_ID)
from DEPARTMENTS d, EMPLOYEES e
Where e.DEPARTMENT_ID = d.DEPARTMENT_ID
Group by DEPARTMENT_NAME
Order by DEPARTMENT_NAME
---------------------------------------------
Cursor

Declare
cursor miCursor is
select department_id ,
count(*)
From employees
group by department_id
Order by department_id;
   
vDepartamento employeeS.employee_id%type;
vTotEmpleado integer;

Begin
open miCursor;
dbms_output.put_line('Departamento TotEmpleado');
loop
fetch miCursor into vDepartamento, vTotEmpleado;
exit when miCursor%notfound;
dbms_output.put_line(vDepartamento || '                ' || vTotEmpleado);
end loop;
close miCursor;
End;



----------------------------------------------
Saber cual es el nombre de un codigo de un depto.


Declare
vNumeroDepto integer := 10;
vNombreDepto char(50);
begin
Select DEPARTMENT_NAME into vNombreDepto
from departments
where department_id = vNumeroDepto;
dbms_output.put_line('El codigo del depto es : ' || vNumeroDepto);
dbms_output.put_line('El codigo del depto es : ' || vNombreDepto);
end;

1. http://pdb002.blogspot.com/search?updated-max=2011-05-02T16%3A21%3A00-07%3A00&max-results=7

create or replace package pkgMipaquete is

function suma (p1 number, p2 number) return number;

function resta (p1 number, p2 number) return number;

function multiplica(p1 number, p2 number) return number;

function divide(p1 number, p2 number) return number;

end pkgMipaquete;

create or replace package BODY pkgMipaquete is

procedure imprime(pvalor number) is

BEGIN

dbms_output.put_line('Resultado : ' || pvalor);

end;

function suma(p1 number, p2 number) return number is

begin

imprime(p1+p2);

return(p1+p2);

end suma;

function resta(p1 number, p2 number) return number is

begin

imprime(p1-p2);

return(p1-p2);

end resta;

function multiplica(p1 number, p2 number) return number is

begin

imprime(p1*p2);

return(p1*p2);

end multiplica;

function divide(p1 number, p2 number) return number is

begin

imprime(p1/p2);

return(p1/p2);

EXCEPTION

when zero_divide then

dbms_output.put_line ('Cuack : Division por cero');

return 0;

end divide;

end pkgMipaquete;

declare

r number(10);

begin

r:= pkgMipaquete.suma(2,3);

end

Corregir

1.       Realizar una función que reciba una  cadena ej:  'ARCA' y la muestre por consola repetida n veces Ej: 7 veces.

CREATE OR REPLACE function RepiteCadena(pstr1 varchar2,pn number)
return varchar2 as
 str2 varchar(100) = null;
 i numeric = 1;
 begin
 loop
   str2 = concat(str2,pstr1);
   i = i + 1;
   exit when i >= pn;
 end loop;
 return str2;
 end;

2. Crear un procedimiento con un cursor que actualice el atributo TotEmpleado

Declare
cursor miCursor
is

select e.numoficina, count(e.numempleado) as Empleados
from oficina p, empleado e
where p.numoficina = e.numoficina
group by e.numoficina;

vnumoficina oficina.numoficina%type;
vtotempleado oficina.numoficina%type;

begin
open micursor;
loop
fetch micursor into vnumoficina, vtotempleado;
exit when micursor%notfound;
update oficina
set totempleado = vtotempleado
where numoficina = vnumoficina;
end loop;
close micursor;
End;


select * from oficina

Desarrollar 4 funciones ,

Desarrollar 4 trigger,

Desarrolar 4 cursores

Enunciado , implementación y el llamado.

http://www.scribd.com/doc/49946651/27/Funciones-en-PL-SQL

2. Crear otra función que al ingresar un número entero......entregue por consola el numero elevado al cubo.

CREATE OR REPLACE FUNCTION elevarAlCubo(n1 Numeric)
RETURN numeric
is
BEGIN
return power(n1,2);
END;

SELECT elevarAlCubo(2) from dual;

1. Crear una función que reciba 2 números y los sume...y el resultado lo muestre por la consola.


CREATE OR REPLACE FUNCTION sumar(n1 Numeric,n2 numeric)
RETURN numeric
is
BEGIN
return n1+n2;
END;


SELECT sumar(4,2) from dual;

PARA QUE SIRVE LOS CURSORES,

CUANDO SE HACE UNA CONSULTA Y ENTREGA UNA CANTIDAD DE VALORES ,
LOS CURSORES SIRVEN PARA HACER UN RECORRIDO DE LA TABLA.

NO DEJAR REGISTRO DE ACTUALIZACIONES

CREATE or replace TRIGGER trLogRenta
after update of salario on empleado
for each row
BEGIN
if :new.salario <> :old.salario then

 insert into RENTALOG VALUES (SEQRENTALOG.nextval,
 user,
 sysdate,
 :old.salario,
 :new.salario,
 :old.numempleado);
end if;
END;

REGISTRO 2 , con la misma renta

REGISTRO

CAMBIAR DE RENTA A UN 20% +

UPDATE EMPLEADO
SET SALARIO = SALARIO * 1.2
WHERE NUMEMPLEADO = 'SL21'