㈠ oracle 存儲過程 包
表名：test
欄位名：id
序列名稱：TEST_ID
create or replace package TEST as
begin ;
procudre insertdate() ;
function getSum() return number;
function getAve() return number;
end TEST ;
create or replace package body TEST as
begin ;
procudre insertdate() is
begin
for (i=1;i<=3:i++}
loop
insert into TEST (ID) values (TEST_ID.nextval) ;
end loop ;
exception
when others
null ;
end insertdate;
function getSum() return number is
v_return number ;
begin
select sum(id) intov_return from TEST ;
rerturn v_return;
end ;
function getAve() return number is
v_return number ;
begin
select AVG(id) into v_return from TEST ;
rerturn v_return;
end ;
end TEST ;
㈡ oracle怎樣創建樣例資料庫
Oracle資料庫實例的創建、刪除、修改
以SUSE10SP2、Oracle10gR2為例。
本文中的資料庫實例這一稱謂應該換做資料庫更為准確，資料庫可以理解為是一個物理的靜態概念，主要包括一些物理存在的資料庫文件，而資料庫實例則是一個動態概念，包括一些內存區域以及若干進程，資料庫實例是對資料庫進行操作的執行者。（20090714修改）
安裝完Oracle資料庫系統的安裝後，需要創建資料庫實例才能真正開始使用Oracle資料庫服務。
總結起來，Oracle有三種創建資料庫實例的方法。
第一種，最常用也最簡單，那就是通過DBCA(Database Configuration Assistant)，這是Oralce提供的一個圖形界面的資料庫實例配置工具，通過它可以創建、刪除和修改資料庫實例，它的使用也比較簡單、易懂，互動式的圖形界面操作，非常准確有效的提示與配置，是一個比較方便的創建資料庫實例的方式。
按照DBCA給出的提示，很容易創建一個新資料庫實例。
在創建資料庫的時候，DBCA還提供了兩個選項，讓你可以根據剛剛設置好的參數生成一個資料庫實例模板和一份資料庫實例創建腳本。這兩個東西是非常好，非常有用的東西，資料庫模板由Oracle自己管理維護，已經創建好的資料庫實例模板可以在DBCA圖形程序新建資料庫實例時作為模板來使用，另外在DBCA使用responseFile文件或者命令行參數創建資料庫時也需要用到（見後面介紹）；資料庫創建腳本是一組腳本，包括shell腳本和sql腳本，這些腳本共同實現一個功能，那就是按照你之前在DBCA中設置好的那樣創建一個資料庫實例（後面也會有介紹），你需要做的只是將這些腳本在你的代碼中調用起來。當然，你也可以選擇只生成資料庫模板或者資料庫腳本，而不用去創建一個真的資料庫（這通常很費時間）。
Oracle資料庫實例的創建、刪除、修改
DBCA是一個非常強大的工具，上面看到的只是DBCA最常用的創建一個資料庫實例的使用，其實DBCA還提供另外兩種使用方法，分別是responseFile和命令行帶參調用。
先說DBCA的responseFile使用方法，responseFile這個東東並不陌生，前文講的Oracle自動安裝就是使用responseFile完成的，DBCA的responseFile使用方法和Oracle安裝程序的responseFile使用方法基本一致。但DBCA的responseFile的來源只能是Oracle安裝包中提供的模板文件，而不能向Oracle安裝程序的responseFile一樣，先自己record一個，然後再用這個record去指導Oracle的自動安裝。從Oracle安裝包中獲取到DBCA的responseFile模板文件後，你可以根據自己的需要編輯修改該模板文件，以完成對資料庫實例的某些參數設置（DBCA圖形界面所提供的參數設置，responseFile中都可以設置，而且該responseFile模板文件的注釋寫的很好，你完全不用擔心無法搞定那些繁雜的資料庫實例參數設置，贊Oralce一個！）。該模板文件在Oracle安裝包中的位置一般在${ORACLE_PACKAGE}/response目錄下。
有了responseFile之後，你只需在調用DBCA的時候指定responseFile的位置和另外一些參數：
dbca [-silent|-progressOnly] -responseFile responseFile名稱
其中-silent|-progressOnly選項意義和Oracle安裝程序命令行參數中的同名選項一樣，表示完全字元界面自動安裝或者帶圖形提示界面的半自動化安裝。
responseFile名稱當然就是responseFile的具體位置了。
但是，有一點不是很好，那就是使用DBCA的responseFile方式創建Oracle資料庫實例，需要事先已經存在一個資料庫實例模板了，在responseFile中再指定該資料庫實例模板名，然後DBCA再依據這個已有的資料庫實例模板完成新資料庫實例的創建，所以就會有前面講到的DBCA圖形界面創建資料庫實例時提供生成資料庫實例模板的選項（資料庫實例模板也可以從一個已有資料庫實例生成），就是在這要用到的。
從上面調用DBCA使用responseFile的命令中，應該已經看到了DBCA是提供一些命令行參數選項的，其實DBCA提供的命令行參數選項遠比你想像的強大，甚至可以這么說，所有DBCA圖形界面和responseFile能夠辦到的事，通過DBCA豐富的命令行參數選項都可以辦到。你在DBCA圖形界面上設置的參數或者在responseFile中指定的參數值都可以通過DBCA的命令行參數選項來進行設置，所以你完全可以只通過DBCA的命令行帶參調用來完成一個資料庫實例的創建（當然也包括刪除、修改資料庫實例等所有DBCA圖形界面所能提供的功能）。其實，我更願意這樣認為，DBCA的responseFile應用也是一種DBCA命令行帶參調用的使用。需要注意的是，當DBCA的命令行參數和responseFile同時設置一個參數時，命令行參數的優先順序是比responseFile要高的。另外，使用DBCA命令行帶參調用新建資料庫實例和使用responseFile新建資料庫實例一樣，也是需要事先已經存在一個資料庫實例模板，才能完成新資料庫實例的創建。一份非常詳細的DBCA所有命令行參數選項列表，你可以通過執行dbca -help獲得。
到現在你可能已經發現，DBCA圖形界面、DBCA的responseFile使用以及DBCA的命令行帶參調用，其實是三個分別具備完全資料庫實例設置功能的工具或者介面，分別對應不同的應用場景，它們可以滿足你幾乎所有的應用需求（使用這樣的工具來幫助構建自己的軟體真是非常愜意的一件事情，再贊Oracle一個！）。
第二種是通過腳本（是否稱為命令行方式更合適，下文描述的腳本方式其實都是命令行方式的非互動式方法，或者說命令行的自動化方式，但其實所有腳本方式都可以將shell腳本或sql腳本中的shell命令、sqlplus命令拆分出來，手工在shell中或者sqlplus界面中進行互動式的輸入執行，這可以稱為命令行的手工方式）來完成資料庫實例的代碼中自動創建。這里說的腳本包括shell腳本和sql腳本，這種方式可以說是最適合與編程結合的，因為這些shell腳本或者sql腳本都可以直接在shell命令中調用執行，所以可以很好與shell編程相結合。而這其實是基於一個非常重要的事實，即Oracle提供了一個互動式的命令行工具sqlplus（類似與DB2的db2cmd），這個工具可以認為是一個Oracle資料庫管理工具，通過它可以執行一些Oracle的資料庫管理命令，來完成一些資料庫管理工作（這當然就包括資料庫實例的創建），同時你也可以把它當作一個SQL語句執行器，直接在里邊執行你想要執行的SQL語句或者存儲過程等，並獲取執行結果。並且，更重要的是，sqlplus可以直接在shell命令行中進行非互動式的調用執行（通常是調用執行一段sqlplus語句，或者是一個由一些sqlplus語句組成的sql腳本，我所說的sqlplus語句包括Oracle資料庫管理維護命令、SQL語句和存儲過程等），這就為在shell編程中使用sqlplus完成資料庫實例自動創建工作提供了可能。
shell命令行中非互動式調用sqlplus執行一段sqlplus語句是利用shell編程中重定向命令的一個特性，即分隔符重定向輸入。一般用法如下：
command<<任意自定義分隔符
>（換行）內容
>（換行）內容
>自定義分隔符
shell中遇到<<則會自動將下一個單詞認作分隔符，並將分隔符後面的文本當作command命令執行的內容傳遞給command依次全部執行直至遇到下一個分隔符單詞才結束。這里的分隔符可以是任意自定義的單詞，通常使用EOF，舉例：
sqlplus / as sysdba<<EOF
startup nomount;
select * from v$version;
shutdown immediate;
exit;
EOF
這段shell程序調用sqlplus執行了若干sqlplus語句，用來啟動資料庫實例，查詢資料庫版本信息，然後關閉資料庫實例，退出sqlplus。
shell命令行中非互動式調用sqlplus執行一個sql腳本是利用sqlplus本身提供的命令行參數。在sqlplus界面中可以通過start命令和@命令來執行一個sql腳本，兩者功效相同，用法如下：
SQL>start sql腳本絕對路徑；
SQL>@sql腳本絕對路徑；
而在shell命令行中可以使用@來完成sqlplus對sql腳本的調用執行，舉例：
sqlplus / as sysdba @./MySQL.sql
以上命令會調用sqlplus執行當前目錄下的MySQL.sql腳本。
使用腳本來完成資料庫實例的創建工作，也分為兩種情況。
一種是誠如前文所述的那樣，在使用DBCA圖形工具創建資料庫實例的同時生成一份資料庫實例創建腳本（包括若干shell腳本和sql腳本），那麼你就可以使用這份腳本，在shell中進行調用，完成資料庫實例的代碼自動創建。使用這份資料庫實例創建腳本創建的新資料庫實例和原資料庫實例是完全一樣，當然，你可以將生成的腳本進行修改，以完成你對資料庫實例的某些設置，但是請在你對腳本內容已經足夠了解，並且知道你自己在干什麼的情況下修改腳本，否則你很有可能使用修改後的腳本無法正確創建資料庫實例。這種方法中shell腳本對sqlplus的使用，更多的是使用sqlplus來執行一些Oracle生成的sql腳本（這些sql腳本的內容是就是一些sqlplus語句的集合，它們的任務就是完成資料庫實例的創建以及設置）。
另一種情況則是不依靠DBCA生成的腳本，完全由自己來編寫實現一份shell腳本，在腳本中你可以調用sqlplus執行一段sqlplus語句或者其它一些sql腳本，以完成資料庫實例的創建和設置，這完全取決於你的實現；而最常用的用來創建資料庫實例的一個方法就是在sqlplus中使用create database語句，create database語句提供了許多豐富的選項和參數設置，確保你能完全創建一個自己所需要的資料庫實例。當然，還有一些其它方法可以創建資料庫實例，比如調用執行oracle提供某些存儲過程等。
至於create database語句的詳細介紹可以參考oracle的sql reference。
第三種嚴格來說不能算作一種創建Oracle資料庫實例的方法，它是通過已有的資料庫實例為基礎來完成新資料庫實例的創建的。這種方法是首先通過第一種或者第二種方法來創建好一個資料庫實例，然後將該資料庫實例的物理文件進行備份，然後直接使用備份的物理文件恢復出一個與原資料庫實例完全一樣新的資料庫實例，所以這種方法需要和第一、二種方法相配合才能使用。這種方法其實已經屬於Oracle數據備份與恢復的范疇了，就是Oracle數據備份恢復方式中的物理備份恢復，所以這種方法可以叫做物理恢復法。
簡單介紹物理恢復法，首先將一個已經存在資料庫實例（最好已關閉）進行物理備份，所謂物理備份其實就是復制該資料庫實例所使用的操作系統文件，這些文件主要包括DataFiles、RedoLogs、ControlFiles和UndoFiles（這些文件一般存在於$ORACLE_HOME/oradata目錄下），進行資料庫實例恢復的時候只需將備份的操作系統文件復制到新的oradata目錄下即可，可以直接啟動使用恢復後的該資料庫實例。不難看出，這種備份恢復是依賴於操作系統平台的。
詳細的物理備份和恢復介紹可以參考oracle的backup and recovery basics以及backup and recovery advanced user's guide。
說完了資料庫實例的創建，現在來說說資料庫實例的刪除和修改。其實介紹完了資料庫實例的創建，資料庫實例的刪除和修改就非常簡單了。基本和前文資料庫實例創建的內容相一致，且比較而言更簡單。
資料庫實例的刪除從上文中資料庫實例的創建不難得到，大致有兩種方法，DBCA工具和命令行方式。
DBCA工具除了能夠用來創建資料庫實例，當然也能夠用來刪除資料庫實例了，且同樣可以用使用responseFile或者命令行帶參調用等方法來完成資料庫實例的刪除，請參考資料庫實例創建部分。
命令行刪除資料庫實例的方式，嚴格來講，是使用一組sqlplus命令來完成資料庫實例的刪除，這組sqlplus命令可以組織在一個sql腳本中，然後在shell命令行中調用sqlplus程序來執行該sql腳本，或者直接在shell命令行中利用shell程序重定向特性調用sqlplus依次完全執行這組sqlplus命令，再或者使用手工的互動式輸入執行，使用方法請參考資料庫實例創建部分。
其中涉及到的sqlplus命令參考以下：
SQL>startup restrict mount;
SQL>drop database;
使用sqlplus命令刪除資料庫實例，必須先以restrict mount方式將資料庫實例載入（但不打開），然後使用drop database語句刪除該資料庫實例。
資料庫實例的修改和資料庫實例的創建，情況類似，DBCA方式或者命令行方式。只要是DBCA方式能夠修改的資料庫實例參數，命令行方式也都能辦到。
㈢ 如何使用Oracle存儲過程的一個簡單例子
樓主您好
---創建表
create table TESTTABLE
(
id1 VARCHAR2(12),
name VARCHAR2(32)
)
select t.id1,t.name from TESTTABLE t
insert into TESTTABLE (ID1, NAME)
values ('1', 'zhangsan');
insert into TESTTABLE (ID1, NAME)
values ('2', 'lisi');
insert into TESTTABLE (ID1, NAME)
values ('3', 'wangwu');
insert into TESTTABLE (ID1, NAME)
values ('4', 'xiaoliu');
insert into TESTTABLE (ID1, NAME)
values ('5', 'laowu');
---創建存儲過程
create or replace procere test_count
as
v_total number(1);
begin
select count(*) into v_total from TESTTABLE;
DBMS_OUTPUT.put_line('總人數：'||v_total);
end;
--准備
--線對scott解鎖：alter user scott account unlock;
--應為存儲過程是在scott用戶下。還要給scott賦予密碼
---alter user scott identified by tiger;
---去命令下執行
EXECUTE test_count;
----在ql/spl中的sql中執行
begin
-- Call the procere
test_count;
end;
create or replace procere TEST_LIST
AS
---是用游標
CURSOR test_cursor IS select t.id1,t.name from TESTTABLE t;
begin
for Test_record IN test_cursor loop---遍歷游標，在列印出來
DBMS_OUTPUT.put_line(Test_record.id1||Test_record.name);
END LOOP;
test_count;--同時執行另外一個存儲過程（TEST_LIST中包含存儲過程test_count）
end;
-----執行存儲過程TEST_LIST
begin
TEST_LIST;
END;
---存儲過程的參數
---IN 定義一個輸入參數變數，用於傳遞參數給存儲過程
--OUT 定義一個輸出參數變數，用於從存儲過程獲取數據
---IN OUT 定義一個輸入、輸出參數變數，兼有以上兩者的功能
--這三種參數只能說明類型，不需要說明具體長度 比如 varchar2(12)，defaul 可以不寫，但是作為一個程序員最好還是寫上。
---創建有參數的存儲過程
create or replace procere test_param(p_id1 in VARCHAR2 default '0')
as v_name varchar2(32);
begin
select t.name into v_name from TESTTABLE t where t.id1=p_id1;
DBMS_OUTPUT.put_line('name：'||v_name);
end;
----執行存儲過程
begin
test_param('1');
end;
default '0'
---創建有參數的存儲過程
create or replace procere test_paramout(v_name OUT VARCHAR2 )
as
begin
select name into v_name from TESTTABLE where id1='1';
DBMS_OUTPUT.put_line('name：'||v_name);
end;
----執行存儲過程
DECLARE
v_name VARCHAR2(32);
BEGIN
test_paramout(v_name);
DBMS_OUTPUT.PUT_LINE('name：'||v_name);
END;
-------IN OUT
---創建存儲過程
create or replace procere test_paramINOUT(p_phonenumber in out varchar2)
as
begin
p_phonenumber:='0571-'||p_phonenumber;
end;
----
DECLARE
p_phonenumber VARCHAR2(32);
BEGIN
p_phonenumber:='26731092';
test_paramINOUT(p_phonenumber);
DBMS_OUTPUT.PUT_LINE('新的電話號碼：'||p_phonenumber);
END;
-----sql命令下，查詢當前用戶的存儲過程或函數的源代碼，
-----可以通過對USER_SOURCE數據字典視圖的查詢得到。USER_SOURCE的結構如下：
SQL> DESCRIBE USER_SOURCE ;
Name Type Nullable Default Comments
---- -------------- -------- -------
-------------------------------------------------------------------------------------------------------------
NAME VARCHAR2(30) Y Name of the object
TYPE VARCHAR2(12) Y Type of the object: "TYPE", "TYPE BODY", "PROCEDURE", "FUNCTION",
"PACKAGE", "PACKAGE BODY" or "JAVA SOURCE"
LINE NUMBER Y Line number of this line of
source
TEXT VARCHAR2(4000) Y Source text
SQL>
---查詢出存儲過程的定義語句
select text from user_source WHERE NAME='TEST_COUNT';
----查詢存儲過程test_paramINOUT的參數
SQL> DESCRIBE test_paramINOUT;
Parameter Type Mode Default?
------------- -------- ------ --------
P_PHONENUMBER VARCHAR2 IN OUT
SQL>
---查看當前的存儲過程的狀態是否正確，
---VALID為正確，INVALID表示存儲過程無效或需要重新編譯
SELECT STATUS FROM USER_OBJECTS WHERE OBJECT_NAME='TEST_COUNT';
-----如果要檢查存儲過程或函數的依賴性，可以通過查詢數據字典USER_DENPENDENCIES來確定，該表結構如下：
SQL> DESCRIBE USER_DEPENDENCIES;
Name Type Nullable Default Comments
-------------------- ------------- -------- ------- ----------------------------------------------------------
NAME VARCHAR2(30) Name of the object
TYPE VARCHAR2(17) Y Type of the object
REFERENCED_OWNER VARCHAR2(30) Y Owner of referenced object (remote owner if remote object)
REFERENCED_NAME VARCHAR2(64) Y Name of referenced object
REFERENCED_TYPE VARCHAR2(17) Y Type of referenced object
REFERENCED_LINK_NAME VARCHAR2(128) Y Name of dblink if this is a remote object
SCHEMAID NUMBER Y
DEPENDENCY_TYPE VARCHAR2(4) Y
SQL>
---查詢存儲過程TEST_COUNT的依賴關系
SELECT REFERENCED_NAME,REFERENCED_TYPE FROM USER_DEPENDENCIES WHERE NAME='TEST_COUNT';
㈣ oracle中的存儲過程怎麼寫
Oracle存儲過程寫法實例
總結項目中寫的存儲過程例子：
Oracle存儲過程基本語法 存儲過程
1 CREATE OR REPLACE PROCEDURE 存儲過程名
2 IS/AS
3 BEGIN
4 NULL;
5 EXCEIPTION;
6 END;
1、創建存儲過程，後面可用is或者as：
create or replace procere PRO_COMPLAIN_TEMPLATE as
2、定義變數，此處用到了%TYPE和%ROWTYPE，參考 /database/201211/168564.html ，另外定義了一個游標，TEM_INSTANCE TEMPLATE_CUR%ROWTYPE這個類型定義必須要在游標定義之後：
NEED_DO_FOR_ZL INTEGER;
CURRENT_MAX_ID MEMO_TEMPLET.TEMPLET_ID%TYPE;
CURSOR TEMPLATE_CUR IS SELECT TEMPLET_NAME, TEMPLET_CONTENT FROM SYS_COMPLAINT_TEMPLET;
TEM_INSTANCE TEMPLATE_CUR%ROWTYPE;
3、begin開始塊：
begin
4、該插入語句使用了DBLINK，還有使用DBMS_OUTPUT.put_line('列印信息')進行信息輸出：
insert into MEMO_TEMPLET (TEMPLET_ID, TEMPLET_CONTENT, TEMPLET_TYPE, TEMPLET_MEMO) (SELECT * FROM MEMO_TEMPLET@COMPANY);
SELECT COUNT(*) INTO NEED_DO_FOR_ZL FROM SYS_COMPLAINT_TEMPLET;
IF(NEED_DO_FOR_ZL > 0) THEN
DBMS_OUTPUT.put_line('列印信息');
SELECT MAX(TEMPLET_ID)+1 INTO CURRENT_MAX_ID FROM MEMO_TEMPLET;
DBMS_OUTPUT.put_line('MEMO_TEMPLET最大ID' || CURRENT_MAX_ID);
FOR TEM_INSTANCE IN TEMPLATE_CUR LOOP
INSERT INTO MEMO_TEMPLET (TEMPLET_ID, TEMPLET_CONTENT,
TEMPLET_TYPE, TEMPLET_MEMO) VALUES (CURRENT_MAX_ID,
TEM_INSTANCE.TEMPLET_CONTENT, '7', NULL);
CURRENT_MAX_ID := CURRENT_MAX_ID + 1;
DBMS_OUTPUT.put_line(TEM_INSTANCE.TEMPLET_CONTENT);
END LOOP;
END IF;
COMMIT;
www.2cto.com
4、exception塊，使用WHEN OTHERS THEN，其中用raise可顯示錯誤信息：
exception
WHEN OTHERS THEN
DBMS_OUTPUT.put_line('sqlcode : ' ||sqlcode);
raise;
ROLLBACK;
IF TEMPLATE_CUR%ISOPEN THEN
CLOSE TEMPLATE_CUR;
END IF;
DBMS_OUTPUT.put_line('列印信息');
end;
註：關於游標的使用，如果像本例中使用for循環去遍歷游標的話則不需要顯式的去用open/close
cursor打開和關閉游標，此處會自己處理，如果使用fetch
into的話就需要顯式開關游標，另外任意執行一個update操作，用隱式游標sql的屬性%found,%notfound,%rowcount,%isopen觀察update語句的執行情況，也可以使用來判斷游標狀態，如IF
TEMPLATE_CUR%ISOPEN THEN。
㈤ oracle 如何在包里創建一個簡單的函數和存儲過程
25、包
（1）定義包頭
語法：
CREATE [OR REPLACE] PACKAGE [schame_name.]<包名>
IS | AS
包描述
包描述：可以是變數、常量及數據類型定義和游標定義，也可以是存儲過程、函數定義和參數列表返回值類型。
例：
CREATE OR REPLACE PACKAGE employeePackage
AS
--類型定義
Type empRecType is record(
Empno number(4),
Salary number
)
--變數定義
p1 varchar2(20);
type t_departmentNo table is table of dept.deptno%type
index by binary_integer;
--游標定義
Cursor order_sal retrurn EmpRecType;
--聘用員工過程
Procere HireEmployee(p_EmpNo emp.empno%type);
End employeePackage;
例：
CREATE OR REPLACE PACKAGE scott.pkg_displayproct
IS
procere prc_getproctinfo
(
pid scott.proct.prodid%type,
pname out scott.proct.prodname%type,
ctname out scott.proct.CATEGORYID%type,
dscp out scott.proct.description%type
);
function fun_getstock
(
pid scott.proct.prodid%type
)
return number;
END pkg_displayproct;
（2）定義包體
語法：
CREATE OR REPLACE PACKAGE BODY [schame_name.]<包名>
IS | AS
包體描述；
END 包名;
包名：將要創建的包名稱，該名稱可以和包頭所在的包名相同，也可以不同。
包體描述：游標、存儲過程或者函數的定義
包體是可選的，如果在包頭中沒有聲明任何存儲過程或者函數，則包體就不存在，即使在包頭有變數、游標或者類型的聲明
（3）引用包中對象
BEGIN
[schame_name.][包名.]對象名;
END;
㈥ ORACLE如何創建存儲過程，詳細例子。
--創建存儲過程 IN_SHEETID 為輸入參數CREATE OR REPLACE <a class="-highlight" href="https://www..com/s?wd=PROCEDURE&tn=44039180_cpr&fenlei=-EUBtkP1n1n1RdPjTvP1bvrH6kP10L" target="_blank">PROCEDURE</a> ST_RECEIPT(IN_SHEETID VARCHAR2) ISBEGIN--將 receipt0表中數據插入 receiptINSERT INTO RECEIPTSELECT * FROM RECEIPT0 WHERE SHEETID = IN_SHEETID;--更新receipt表中Flag值UPDATE RECEIPT SET FLAG = 100 WHERE SHEETID = IN_SHEETID;--INSERT INTO RECEIPTITEMSELECT * FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID;--刪除ReceiptItem0表數據DELETE FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID;--刪除 receipt0表數據DELETE FROM RECEIPT0 WHERE SHEETID = IN_SHEETID;<a class="-highlight" href="https://www..com/s?wd=END&tn=44039180_cpr&fenlei=-EUBtkP1n1n1RdPjTvP1bvrH6kP10L" target="_blank">END</a>;--調用存儲過程BEGINST_RECEIPT('ys141128');<a class="-highlight" href="https://www..com/s?wd=END&tn=44039180_cpr&fenlei=-EUBtkP1n1n1RdPjTvP1bvrH6kP10L" target="_blank">END</a>;--或者EXEC ST_RECEIPT('ys141128');
㈦ 急求！怎麼建立oracle存儲過程(實例)
create or replace PROCEDURE st_receipt(p_sheetid varchar2(16))
AS
BEGIN
insert into receipt select * from receipt0 where sheetid=p_sheetid ; --將 receipt0表中數據插入 receipt
update receipt set Flag=100 wheresheetid=p_sheetid; --更新receipt表中Flag值
insert into ReceiptItem select * from ReceiptItem0 where sheetid=p_sheetid ;
delete from ReceiptItem0 where sheetid=p_sheetid ;--刪除ReceiptItem0表數據
delete from receipt0 where sheetid=p_sheetid ; --刪除 receipt0表數據
end ;
exec st_receipt('ys141128')
㈧ oracle資料庫存儲過程實例
創建存儲過程的語句如下：
CREATE[OR REPLACE] PROCEDURE＜過程名＞
＜參數1>，「方式l]＜數據類型1>，
＜參數2>，[ 方式2]＜數據類型2>，
……)
IS|AS （is或as完全等價）
BEGIN
PL/SQL過程體
END＜過程名＞
例如，下面是一個刪除表的存儲過程：
--參數：tableName 要刪除的表名
create or replace procere del_table(tableName varchar2) as
--定義變數
sql_del_table long;
begin
--構造sql語句
sql_del_table := 'drop table ' || tableName;
--執行
EXECUTE IMMEDIATE sql_del_table;
end del_table;
㈨ Oracle如何創建存儲過程和如何調用存儲過程
【delphi+oracle報表解決方案(一)】delphi中調用oracle的存儲過程(分帶返回遊標，不返回值兩種)
關鍵字: delphi ,oracle存儲過程，游標,返回數據集,報表註：delphi 6+ oracle 8.1.6一.創建包與包體1.附：建表aaclass為下面作測試用create table aaclass(CID VARCHAR2(50), CNAME VARCHAR2(50), pnumber NUMBER(10,0) );INSERT INTO aaclass values('c1', 'cn1', 10 ) ;
INSERT INTO aaclass values('c2', 'cn2', 40 ) ;
INSERT INTO aaclass values('c1', 'cn3', 30 ) ;
commit;2.建包:CREATE OR REPLACE PACKAGE PKG_JCCTEST1
AS type rc_class is ref cursor;
--求p1,p2的和與差，返回的多個值通過游標返回
procere GetSubAndSum2(p1 number,p2 number ,
ResultCursor out rc_class);
--查詢滿足條件的數據集，返回數據集通過游標返回
procere GetClass2(a in number,ResultCursor out rc_class ) ; --往表中插一條記錄，不返回結果集時，本人用AdoQuery調用(adodataset好象要求必須返回結果集)
procere InsertClass( p_cid varchar2 ,p_cname varchar2 ,
p_pnumber number) ;
end PKG_JCCTEST1; 3.建包體CREATE OR REPLACE PACKAGE BODY PKG_JCCTEST1
ASprocere GetSubAndSum2(p1 number,p2 number ,
ResultCursor out rc_class)
IS
BEGIN
open ResultCursor for
select p1-p2 as "sum", p1+p2 as "sub" from al;
END ;
procere GetClass2(a in number,ResultCursor out rc_class )
is
begin open ResultCursor for
select aaclass.* from aaclass where pnumber >a;end ;procere InsertClass( p_cid varchar2 ,p_cname varchar2 ,
p_pnumber number)
is
begin
insert into aaclass values(p_cid,p_cname,p_pnumber) ;
-- commit;
end ; 二.在delphi中利用AdoDataSet調用上述第一個存儲過程
1.利用AdoConnection1連接資料庫(驅動為 oracle Provider for OLE DB)，
**並在連接字元串中加入這一節: PLSQLRSet=1; 如下所示：
Provider=OraOLEDB.Oracle.1;Password=KXD;Persist Security Info=True;User ID=KXD;Data Source=TEST3;PLSQLRSet=12.在窗體上加AdoDataSet1 指明連接為上述AdoConnection1,下面可以放一個按鈕，單擊按鈕就能調用第一步中創建的包過程，並返回數據集。代碼如下所示：
procere TForm1.Button1Click(Sender: TObject);
var
AResult , BResult : integer;
begin
ADODataSet1.Close ;
ADODataSet1.CommandType := cmdText ;
ADODataSet1.Parameters.Clear ; //***利用call方法調用oracle過程時，參數必須由?來傳， 即使你要傳的參數為常理
//輸出遊標的參數不需要指定!!!!!!，本來此函數帶三個參數，我們這里只需要傳兩個參數.
ADODataSet1.CommandText := '{call PKG_JCCTEST1.GetSubAndSum2(?,?)}' ; //***C 順序有關，createparam必須放在commandtext賦值語句之後. // 創建第一個參數，對應call中的第一個?,ftinteger為類型,10為長度，45為傳入的實參值
ADODataSet1.Parameters.CreateParameter('p1',ftinteger,pdinput,10,45);
//創建第二個參數，根據createparameter的順序 自動與call中的第二個參數對應
ADODataSet1.Parameters.CreateParameter('p2',ftinteger,pdinput,10,4); //下面調用ADODataSet1 的open方法，返回數據集(對應包過程的游標)
ADODataSet1.Open ; //根據存儲過程，數據集只有一條記錄，所以不需要用while do 來遍歷數據集，直接取數據了 //此處的欄位名根據包過程中的返回遊標 對應的欄位名來取
//定義的存儲過程返回遊標如： open ResultCursor for
// select p1-p2 as "sum", p1+p2 as "sub" from al;
//把對應的欄位值取出來即可
AResult := ADODataSet1.Fields.FieldByName('sub').Value ;
BResult := ADODataSet1.Fields.FieldByName('sum').Value ; //顯示結果
showmessage(inttostr(AResult)) ;
showmessage(inttostr(BResult)) ;end;
三.在delphi中利用AdoDataSet調用上述第二個存儲過程
還是利用上述的AdoDataSet1來調用第二個存儲過程，無需任何改動,加第二個按鈕，單擊時代碼如下：procere TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.Close ;
ADODataSet1.CommandType := cmdText ;
ADODataSet1.Parameters.Clear ; //***利用call方法調用oracle過程時，參數必須由?來傳， 即使你要傳的參數為常理
//輸出遊標的參數不需要指定!!!!!!，本來此函數帶兩個參數，我們這里只需要傳一個參數.
ADODataSet1.CommandText := '{call PKG_JCCTEST1.GetClass2(?)}' ; //***C 順序有關，createparam必須放在commandtext賦值語句之後. // 創建第一個參數，對應call中的第一個?,ftinteger為類型,10為長度，20為傳入的實參值
ADODataSet1.Parameters.CreateParameter('p1',ftinteger,pdinput,10,20);
//下面調用ADODataSet1 的open方法，返回數據集(對應包過程的游標)
ADODataSet1.Open ; while not ADODataSet1.Eof do
begin
showmessage('CID : '+string(ADODataSet1.FieldByName('CID').Value) +
'--CNAME :' + string(ADODataSet1.FieldByName('CNAME').Value) +
'--PNUMBER :' + string(ADODataSet1.FieldByName('PNUMBER').Value)
) ;
ADODataSet1.Next ;
end ;
end; 四 利用adoquery調用第三個過程，不返回數據集的procere TForm1.Button3Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQL.Add('{call PKG_JCCTEST1.GetSubAndSum2(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftstring,pdinput, 50,'c11') ;
AdoQuery1.Parameters.CreateParameter('P2',ftstring,pdinput, 50,'cn11') ;
AdoQuery1.Parameters.CreateParameter('P3',ftinteger,pdinput, 50,25) ; AdoQuery1.ExecSQL ;
end;
五 利用adoquery調用第一個過程，返回數據集的.
procere TForm1.Button4Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQL.Add('{call PKG_JCCTEST1.GetSubAndSum2(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftinteger,pdinput, 50,25) ;
AdoQuery1.Parameters.CreateParameter('P2',ftinteger,pdinput, 50,22) ; AdoQuery1.Open ; Showmessage(string( AdoQuery1.FieldByName('sub').Value)+'-'+
string( AdoQuery1.FieldByName('sum').Value));
end;六.關於三層體系的此類問題兩層的解決了，三層類似.
中間層用tadodataset 或tadoquery (+tdatasetprovider),中間層的adoconnection的連接字元串加上plsqlRset=1;
客戶端用clientdataset ,大同小異，舉例如下: begin
//調用相應的過程
ClientDataSet1.Close ;
ClientDataSet1.Params.Clear ; ClientDataSet1.CommandText := '{call PackageName.ProcereName(?,?)}' ;
ClientDataSet1.Params.CreateParam(ftInteger , 'ParamName1', ptInput) ;
ClientDataSet1.Open ;
end ;
本文來自CSDN博客，轉載請標明出處： http://blog.csdn.net/yzsind/archive/2005/01/20/261176.aspx