Ejemplos Funciones (Oracle)

Ejemplo No1: Elabore un Procedimiento almacenado llamado Actualiza_Saldo que permita actualizar el Saldo de una determinada cuenta. Suponga la siguiente tabla:

SALDOS_CUENTA = { CODCUENTA + SALDO + FECACT }
Llave Primaria
DROP TABLE SALDOS_CUENTA;
CREATE TABLE SALDOS_CUENTA ( CODCUENTA NUMBER(8) PRIMARY KEY, SALDO NUMBER(10) NOT NULL, FECACT DATE NOT NULL );

BEGIN
INSERT INTOSALDOS_CUENTA VALUES(1110,1000000,TO_DATE(‘20110101’,’YYYYMMDD’));
INSERT INTO SALDOS_CUENTA VALUES(2220,2000000,TO_DATE(‘20110601’,’YYYYMMDD’));
INSERT INTO SALDOS_CUENTA VALUES(3330,3000000,SYSDATE));
END;

SELECT * FROM SALDOS_CUENTA

1. Incremente el saldo de la cuenta 2220 en $500000.
BEGIN
Actualiza_Saldo(2220, 500000)
END;

SELECT * FROM SALDOS_CUENTA

2. Incremente el saldo dela cuenta 4440 en 1000000000.
¿ Cuál fue el resultado ?

Ejemplo No 2: Para la tabla del ejemplo anterior elabore un Procedimiento almacenado que permita actualizar el Saldo con un valor por default de una determinada cuenta. Asignando un valor por default

2.1. Incremente el saldo de la cuenta 1110 en el valor por default
BEGIN
Actualiza_Saldo(1110, 300000)
END
¿ Cuál fue elresultado ?

Ejemplo No 3: Elabore un Procedimiento Almacenado al que se le ingrese una cédula y muestre el nombre de dicha cédula. Debe indicar si no existe el empleado. Suponga la siguiente tabla:

Emp = { cedula + nom + apell1 + apell2 }

DROP TABLE Emp;

CREATE TABLE Emp ( cedula VARCHAR2(13) PRIMARY KEY, nom VACHAR2(20) NOT NULL, apell1 VARCHAR2(15) NOT NULL, apell2 VARCHAR2(15) );BEGIN
INSERT INTO emp VALUES(‘31111’,’ANA’,‘RIOS’,’ZEA’);
INSERT INTO emp (cedula, nom, apell1) VALUES(‘74444’,’JORGE’,‘LARA’);
INSERT INTO emp (cedula, nom, apell1) VALUES(‘32222’,’MARIA’,‘GARCIA’);
END;

3.1. Muestre el nombre de la cédula 74444.

BEGIN
consulta_emp (74444);
END;

3.2. Muestre el nombre de la cédula 5555. ¿ Qué ocurrió ?.

Ejemplo No 4: Para la tabla deempleados del punto anterior elabore un Procedimiento Almacenado al que se le ingrese una cédula y retorne el nombre de dicha cédula. Debe indicar si no existe el empleado.

4.1. Muestre el nombre de la cédula 74444.

DECLARE
NOMAUX emp.nom%TYPE;
BEGIN
consulta_emp (74444, NOMAUX);
DBMS_OUTPUT.PUT_LINE (‘El empleado se llama ‘, || NOMAUX);
END;

4.2. Muestre el nombre de la cédula 5555.¿ Qué ocurrió ?.

Ejemplo No 5: Elabore un procedimiento almacenado llamado invoca_consulta que utilizando el procedimiento consulta_emp para mostrar el nombre del empleado.

5.1. Muestre el nombre de la cédula 32222.

DECLARE
BEGIN
consulta_emp (32222);
END;

4.2. Muestre el nombre de la cédula 5555. ¿ Qué ocurrió ?.


Ejercicio: Dada las siguientes tablas, realice el o lossubprogramas necesarios para Imprimir la cédula de cada cliente y la diferencia entre todo lo que devenga y todo lo que se gasta:


[pic]


Cliente = { ced + nom}
 
Empleo = { ced + nit_empresa + valor_mensual }
 
Gasto = { cod_gasto + ced + valor_mensual + desc_gasto }

DROP TABLE cliente;
CREATE TABLE cliente( ced NUMBER(8) PRIMARY KEY, nom VARCHAR2(10) NOT NULL );

DROP TABLEempleo;
CREATE TABLE empleo( ced NUMBER(8) REFERENCES cliente, nit_empresa INTEGER,
valor_mensual NUMBER(6) NOT NULL,PRIMARY KEY (ced, nit_empresa));


DROP TABLE gasto;
CREATE TABLE gasto( cod_gasto NUMBER(8) PRIMARY KEY, ced NUMBER(8) REFERENCES cliente,
valor_mensual NUMBER(6), desc_gasto VARCHAR2(10)

BEGIN
INSERT INTO cliente VALUES(10,'Hugo');
INSERT INTOcliente VALUES(20, 'Ana');
INSERT INTO cliente VALUES(30,'Luis');

INSERT INTO empleo VALUES(10, 71, 1000);
INSERT INTO empleo VALUES(10, 72, 800);
INSERT INTO empleo VALUES(10, 83, 700);
INSERT INTO empleo VALUES(20, 72, 2000);
INSERT INTO empleo VALUES(20, 55, 600);

INSERT INTO gasto VALUES(1, 10, 1000, 'Alquiler');
INSERT INTO gasto VALUES(2, 10, 400, 'Servicios');
INSERT INTO...