Eruano's Blog

Simple y con foco… como debe ser!

SQL – Ejemplo Paquetes PL/SQL ORACLE

leave a comment »

CREATE OR REPLACE PACKAGE gSucursal
AS
nSucursal NUMBER;

PROCEDURE insertar (vSucId NUMBER, nombre varchar);
PROCEDURE eliminar (vSucId NUMBER);
FUNCTION contar RETURN NUMBER;
PROCEDURE actualizar (vSucId NUMBER, nombre varchar);
PROCEDURE imprimir;
END gSucursal;

CREATE OR REPLACE PACKAGE BODY gSucursal
AS
PROCEDURE imprimir
AS
CURSOR oSucursales IS
SELECT sucNombre FROM SUCURSAL;
oContador NUMBER;
BEGIN
nSucursal:= contar;
IF (nSucursal > 0) THEN
FOR oElemento IN oSucursales LOOP
DBMS_OUTPUT.PUT_LINE(oElemento.sucNombre );
END LOOP;
ELSE
DBMS_OUTPUT.PUT_LINE(‘NO HAY SUCURSALES’ );
END IF;
END;

PROCEDURE actualizar (vSucId NUMBER, nombre varchar)
AS
BEGIN
UPDATE Sucursal SET sucNombre = nombre
WHERE sucId = vSucId ;
END;

PROCEDURE insertar (vSucId NUMBER, nombre varchar)
AS
BEGIN
INSERT INTO Sucursal VALUES(vSucId, nombre);
END;

PROCEDURE eliminar (vSucId NUMBER)
AS
BEGIN
DELETE FROM Sucursal WHERE sucId = vSucId;
END;

FUNCTION contar RETURN NUMBER
IS
oCont NUMBER;
BEGIN
select count(*) into oCont from sucursal;
RETURN oCont;
END;

END gSucursal;

EXEC gSucursal.insertar(6,’Pizza Donattello’);
EXEC DBMS_OUTPUT.PUT_LINE( gSucursal.contar );

Written by eruano

26 abril 2013 a 8:28 am

Publicado en Uncategorized

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: