一 包的組成

創(chuàng)新互聯(lián)從2013年成立，先為潁東等服務(wù)建站，潁東等地企業(yè)，進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為潁東企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。

1)包頭(package)：包頭部分申明包內(nèi)數(shù)據(jù)類型，常量，變量，游標(biāo)，子程序和異常錯(cuò)誤處理，

  這些元素為包的公有元素。

2)包主體(package body)：包主體則是包定義部分的具體實(shí)現(xiàn)，它負(fù)責(zé)為包頭中所聲明子程序

  提供具體的實(shí)現(xiàn)，在包主體中還可以聲明包的私有元素

3)包頭和包主體分開編譯，并作為兩個(gè)分開的對(duì)象分別存放在數(shù)據(jù)庫(kù)字典中

--刪除package

--drop package pkg_lxg_test;

--1)首先創(chuàng)建package頭(頭和body的sql不要寫在同一個(gè)文件中執(zhí)行)

---- 這里可以聲明多個(gè)procedure(如果外部調(diào)用才聲明)

create or replace package pkg_lxg_test as

 procedure deleteTask(taskTypeCode  in varchar2, --任務(wù)類型代碼

           businessKey  in varchar2, --業(yè)務(wù)號(hào)

           resultCode   out varchar2, --結(jié)果代碼

           resultMessage out varchar2 --結(jié)果信息

           );

end pkg_lxg_test;

--)2 再創(chuàng)建package體(上面的頭不能和體一起執(zhí)行，移交時(shí)應(yīng)該寫成兩個(gè)sql文件進(jìn)行移交)

--)3 創(chuàng)建完成后,如果創(chuàng)建成功了會(huì)自動(dòng)編譯的

--)4 如果在創(chuàng)建package不成功的話，在查看和說(shuō)明中可以查看到錯(cuò)誤

--)5 package創(chuàng)建完成后，-->右鍵,查看--->然后選中你要測(cè)試的package中的proc點(diǎn)擊右鍵---》測(cè)試

CREATE OR REPLACE PACKAGE BODY NBADATA.pkg_lxg_test AS

function function2(taskTypeCode  in varchar2,businessKey in varchar2) return varchar2

 is

  v_preview_environment  varchar2(4);

  v_voucher_no varchar2(50);

  v_count      number default 0;

begin

  v_preview_environment:= '1';

  --dbms_output.put_line('執(zhí)行了方法function2');

  return v_preview_environment;

end function2;

 --這里定義procedure,可以定點(diǎn)多個(gè)

 procedure deleteTask(taskTypeCode  in varchar2, --任務(wù)類型代碼

           businessKey  in varchar2, --業(yè)務(wù)號(hào)

           resultCode   out varchar2, --結(jié)果代碼

           resultMessage out varchar2 --結(jié)果信息

           ) IS

 begin

    begin

       resultCode   := '0';

       resultMessage := 'delete asynchrouns task sucess';

      --dbms_output.put_line('成功執(zhí)行了存儲(chǔ)過(guò)程');

    exception

     when others then

      resultCode   := '1';

      resultMessage := 'fail in deleting asynchrouns task sucess';

    end;

 end deleteTask;

end pkg_lxg_test;

/

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)cdcxhl.cn，海內(nèi)外云服務(wù)器15元起步，三天無(wú)理由+7*72小時(shí)售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國(guó)服務(wù)器、虛擬主機(jī)、免備案服務(wù)器”等云主機(jī)租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡(jiǎn)單易用、服務(wù)可用性高、性價(jià)比高”等特點(diǎn)與優(yōu)勢(shì)，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場(chǎng)景需求。

新聞標(biāo)題：oracle包的創(chuàng)建-創(chuàng)新互聯(lián)
當(dāng)前網(wǎng)址：http://weahome.cn/article/cdgioh.html