作业帮 > 综合 > 作业

求一oracle 帮写两个Package

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 01:06:47
求一oracle 帮写两个Package
我收到了两个人的短信息了...但是我看不到你们的信息...请加在下面回答一下.我好联系你们!
交我好友也可以..网页有点问题不好意思
CREATE OR REPLACE PACKAGE PKG_TAB_DATA IS
TYPE REF_CUR IS REF CURSOR RETURN TAB_DATA%ROWTYPE;
PROCEDURE PRO_GET_DATA(in_id IN NUMBER,OUT_DATA OUT REF_CUR);
PROCEDURE PRO_GET_DATA(IN_KIND IN VARCHAR2,OUT_DATA OUT REF_CUR);
END PKG_TAB_DATA;
CREATE OR REPLACE PACKAGE BODY PKG_TAB_DATA IS
PROCEDURE PRO_GET_DATA(in_id IN NUMBER,OUT_DATA OUT REF_CUR) IS
BEGIN
\x05OPEN OUT_DATA FOR
\x05 SELECT * FROM TAB_DATA t WHERE t.id = in_id;
END PRO_GET_DATA;
PROCEDURE PRO_GET_DATA(IN_KIND IN VARCHAR2,OUT_DATA OUT REF_CUR) IS
BEGIN
\x05OPEN OUT_DATA FOR
\x05 SELECT * FROM TAB_DATA t WHERE t.kind = IN_KIND;
END PRO_GET_DATA;
END PKG_TAB_DATA;