CREATE OR REPLACE PACKAGE pk_paises AS -- Esta es la cabecera del paquete se deben DECLARAR LOS PROCEDIMIENTOS DEL PAQUETE
PROCEDURE sp_paises_grabar(p_codpais Varchar2,p_nombre Varchar2);
PROCEDURE sp_paises_consultaruno (p_codpais varchar2);
END pk_paises;
CREATE OR REPLACE PACKAGE BODY pk_paises AS -- Cuerpo del paquete
PROCEDURE sp_paises_grabar(
p_codpais VARCHAR2,
p_nombre VARCHAR2) IS
BEGIN
INSERT INTO tbl_paises (fld_codpais, fld_nombre) Values
(p_codpais,p_nombre);
END sp_paises_grabar;
PROCEDURE sp_paises_consultaruno (p_codpais varchar2) IS
BEGIN
select fld_codpais,fld_nombre from tbl_paises where fld_codpais=p_codpais;
END sp_paises_consultaruno;
END pk_paises;
PROCEDURE sp_paises_grabar(p_codpais Varchar2,p_nombre Varchar2);
PROCEDURE sp_paises_consultaruno (p_codpais varchar2);
END pk_paises;
CREATE OR REPLACE PACKAGE BODY pk_paises AS -- Cuerpo del paquete
PROCEDURE sp_paises_grabar(
p_codpais VARCHAR2,
p_nombre VARCHAR2) IS
BEGIN
INSERT INTO tbl_paises (fld_codpais, fld_nombre) Values
(p_codpais,p_nombre);
END sp_paises_grabar;
PROCEDURE sp_paises_consultaruno (p_codpais varchar2) IS
BEGIN
select fld_codpais,fld_nombre from tbl_paises where fld_codpais=p_codpais;
END sp_paises_consultaruno;
END pk_paises;
No hay comentarios:
Publicar un comentario