存儲過程openfor

1. 啥叫「存儲過程」啊

存儲過程
存儲過程是保存在資料庫中的專門進行數據操作的代碼過程。存儲過程通常與觸發器結合使用，來控制數據的完整性。在打開資料庫時，存儲過程被自動載入到內存中，可以象其他過程文件一樣進行調用。

1．建立存儲過程
可以在項目管理器中選擇建立或修改存儲過程。在項目管理器的Data選項卡中選定Stored Proceres節點，然後單擊New、Add或Modify按鈕都將打開存儲過程文本編輯器，如圖7-12所示。

也可以在首先打開資料庫的情況下，執行MODIFY STRUCTURE命令打開存儲過程文本編輯器。如：

OPEN DATABASE dbMyData
MODIFY STRUCTURE

一個資料庫的所有存儲過程包含在一個文件中，過程使用PROCEDURE語句聲明，這與一般的過程文件是完全一樣的。

例如，下面為資料庫建立了一個名為NewStuId的存儲過程，該過程為學生檔案表的StuId欄位根據當前StuId中的最大值自動生成一個編號，並保存到StuId欄位中中，如圖7-13所示。

圖7-12 可以在項目管理器選擇建立或修改存儲過程

圖7-13 NewStuId存儲過程

執行下面的代碼，將在學生檔案表中添加一條新記錄，並為StuId欄位賦值。

APPEND BLANK

NewStuId() &&執行存儲過程

需要注意的是，如果准備存儲過程用於表的觸發器，則不能包含如圖7-13中所示的CALCULATE、GO和REPLACE這些引起記錄移動的命令。

2．從文本文件中導入存儲過程
可以使用APPEND PROCEDURES命令將文本文件中的存儲過程以編程的方式添加到當前資料庫中，其語法格式如下：

APPEND PROCEDURES FROM FileName [AS nCodePage] [OVERWRITE]

其中，FileName指定保存存儲過程的文本文件名稱；AS nCodePage指定要追加其存儲過程的文本文件要轉換的代碼頁；OVERWRITE指定用文本文件中的過程改寫資料庫中的當前存儲過程，如果不包含此參數，文本文件中的存儲過程將追加到當前存儲過程中。

需要注意的是，在使用該命令前，資料庫必須以獨占方式打開並設置為當前資料庫。

3．將存儲過程導出到文本文件中
可以使用COPY PROCEDURES命令將當前資料庫中的存儲過程導出到文本文件，其語法格式如下：

COPY PROCEDURES TO FileName [AS nCodePage] [ADDITIVE]

其中，FileName指定文本文件名，存儲過程將被復制到此文本文件中；AS nCodePage指定文本文件的代碼頁；ADDITIVE指定將存儲過程追加到指定文本文件尾，如果若省略該參數，則覆蓋文本文件的內容。

4．查看資料庫中的存儲過程
可以使用DISPLAY PROCEDURES或LIST PROCEDURES命令顯示當前資料庫中的存儲過程名稱，二者的功能基本相同。其中，DISPLAY PROCEDURES命令的語法格式如下：

DISPLAY PROCEDURES [TO PRINTER [PROMPT] | TO FILE FileName] [NOCONSOLE]

其中，TO PRINTER [PROMPT]指定將顯示結果輸出到列印機中，包含PROMPT子句可以在列印開始前顯示一個列印對話框；TO FILE FileName指定將顯示結果輸出到FileName指定的文件中；NOCONSOLE指定不向Visual FoxPro主窗口或活動的用戶自定義窗口輸出。

例如，下面的代碼將顯示dbMyData資料庫中的存儲過程名稱。

OPEN DATABASE dbMyData

DISPLAY PROCEDURES

7.3.6 設置觸發器
觸發器是綁定在表上的表達式，當表中的任何記錄被指定的操作命令修改時，觸發器被激發。當數據修改時，觸發器可執行資料庫應用程序要求的任何其他操作。

觸發器作為特定表的屬性來創建和存儲。如果從資料庫中移去一個表，則同時刪除和該表相關聯的觸發器。從前面的表7-7可以看出，觸發器是在進行了其他所有檢查之後（如有效性規則、主關鍵字的實施，以及NULL值的實施）被激活，位於所有約束的最後面。並且與欄位級規則和記錄級規則不同，觸發器不對緩沖數據起作用。

1．建立觸發器
可以使用表設計器或CREATE TRIGGER命令來創建觸發器。對於每個表，可為插入、更新及刪除3個事件各創建一個觸發器。在任何情況下，一個表最多隻能有3個觸發器。觸發器必須返回「真」（.T.）或「假」（.F.），只有返回「真」時操作才能繼續進行。能夠激發觸發器的命令如表7-9所示。

表7-9 能夠激發觸發器的命令

觸發器
命令

刪除觸發器
DELETE命令

插入觸發器
APPEND FROM、APPEND FROM ARRAY、APPEND BLANK、IMPORT、INSERT-sql和RECALL命令

序表

觸發器
命令

更新觸發器
GATHER、REPLACE、REPLACE FROM ARRAY和UPDATE SQL命令

需要注意的是，不能對有觸發器的表使用INSERT命令，但是可以使用INSERT-SQL命令；發出PACK或ZAP不會激發任何觸發器；如果更新具有刪除標記的記錄，不會激發觸發器；如果表使用了緩沖模式，只有當使用TABLEUPDATE( )函數進行發送更新時，才激發更新觸發器。

下面是在dbMyData資料庫中建立的4個存儲過程。其中，InsertData用於在添加記錄時顯示一個「新增記錄…」提示；UpdateData用於在記錄更新時自動將更新記錄寫入到一個日誌表tblStudent2中，來記錄用戶對學生檔案表所做的修改；DeleteData用於在刪除記錄時顯示一個信息框，詢問用戶是否確認刪除記錄；WriteLog用於寫入日誌，該過程可以接收來自UpdateData過程的參數傳入值。

PROCEDURE WriteLog

PARAMETERS lcStuId,lcStuName,lcClassName,ldEnterDate,lnChinese,lnMaths,lnTotal

*!* 將變動寫入到日誌表tblStuden2中

INSERT INTO tblStudent2 (StuId,StuName,ClassName,EnterDate,Chinese,Maths,Total) ;

VALUES (lcStuId,lcStuName,lcClassName,ldEnterDate,lnChinese,lnMaths,lnTotal)

PROCEDURE InsertData

WAIT WINDOW "新增記錄..." NOWAIT TIMEOUT 2

RETURN .T.

PROCEDURE UpdateData

WAIT WINDOW "正在將變動寫入日誌表..." NOWAIT TIMEOUT 2

WriteLog(StuId,StuName,ClassName,EnterDate,Chinese,Maths,Total)

RETURN .T.

PROCEDURE DeleteData

IF MESSAGEBOX("確認刪除該記錄嗎？",4+32," 提示")=6

RETURN .T.

ELSE

RETURN .F.

ENDIF

打開表設計器，在Table選項卡的Insert trigger、Update trigger和Delete trigger文本框中分別輸入InsertData()、UpdateData()和DeleteData()，如圖7-14所示。

圖7-14 為表建立觸發器

也可以使用CREATE TRIGGER命令為表建立觸發器表達式，該命令的語法格式如下：

CREATE TRIGGER ON TableName FOR DELETE | INSERT | UPDATE AS lExpression

其中，TableName是要建立觸發器的表名稱，lExpression是觸發器表達式。例如，下面使用該命令為學生檔案表建立了與圖7-14同樣的觸發器表達式。

OPEN DATABASE dbMyData

CREATE TRIGGER ON 學生檔案表 FOR INSERT AS InsertData() &&建立插入觸發器

CREATE TRIGGER ON 學生檔案表 FOR UPDATE AS UpdateData() &&建立更新觸發器

CREATE TRIGGER ON 學生檔案表 FOR DELETE AS DeleteData() &&建立刪除觸發器

2．刪除觸發器
可以在表設計器的Table選項卡中刪除觸發器或使用DELETE TRIGGER命令從資料庫表中刪除觸發器。其中，DELETE TRIGGER命令的語法格式如下：

DELETE TRIGGER ON TableName FOR DELETE | INSERT | UPDATE

其中，TableName是要刪除觸發器的表名稱。

例如，下面的代碼將刪除學生檔案表中的插入觸發器。

DELETE TRIGGER ON 學生檔案表 FOR INSERT

3．修改觸發器
可以在表設計器的Table選項卡中或者使用CREATE TRIGGER命令來修改觸發器。使用命令修改觸發器與建立觸發器時相同。

2. 怎麼寫存儲過程

一、整體格式。存儲過程的格式如下：
CREATE PROCEDURE [creator.]"proc_name" ( /* parameters,... */ )
/* RESULT ( column-name,... ) */
BEGIN
;
END
其中creator是用戶名，比如dba；proc_name是你自己起的過程名；後面的參數可有可無，視自己情況定，如果有格式如(a integer,b char(50))；再下面的RESULT應該是返回值，這個沒用過不知道怎麼回事！
二、內容。把這些都寫好了可能是這樣：
CREATE PROCEDURE dba.myProcere ( @a integer,@b char(50))
BEGIN
;
END
但是這樣子還是不能編譯的，因為整個過程體是空的，而我學習的結果是過程中至少要有一個SQL語句。所以要這樣寫才不會出錯：
CREATE PROCEDURE dba.myProcere ( a integer,b char(50))
BEGIN
SELECT * FROM MyTable
END
三、語法。
1、分號。在寫的過程中最郁悶的問題是分號！最後發現好像是這樣：
每一句都要加分號，不管是SQl語句還是其它的什麼語句，但是最後保存後最後一句的分號會被自動刪除！（我用的是Sybase的Sybase Central）。
2、定義變數。
格式為Declare @varName integer;(注意有分號！)「@」號好像可有可無！
3、SELECT語句。
格式為：
SELECT Count(*) INTO @varName FROM MyTable WHERE id = @a;
4、if語句。
格式為：
if(varName > 0) then
return
end if;(注意還有分號！)
5、循環語句。
格式為：
loop
……
end loop;(注意分號！)
6、設置變數值。
格式為：
set @varName = 10;
set @varName = @varName2;
7、字元串。
Declare myString char(50);
set @myString = 'Hello!';
要用單引號！
8、定義游標。
格式為：
declare MyCursor dynamic scroll cursor for
select …… from …… where ……;
9、打開、使用和關閉游標。
Open MyCursor;
fetch next MyCursor into ……;
Close MyCursor;
10、調用方法。
string ls_name="test"
DECLARE ProcName1 PROCEDURE FOR ProcName2
@wg_wellid=2,@wg_wgid=1,@wg_stringsid=1,@bha_wellid=2,@bha_name=:ls_name;
execute ProcName1 ;
close ProcName1 ;
其中ProcName1 是調用程序中自定義的過程名，ProcName2是資料庫中存儲過程的名字，下面的傳入的參數。

3. Java資料庫程序中的存儲過程設計

本文闡述了怎麼使用DBMS存儲過程 闡述了使用存儲過程的基本的和高級特性 比如返回ResultSet 本文假設你對DBMS和JDBC已經非常熟悉 也假設你能夠毫無障礙地閱讀其它語言寫成的代碼（即不是Java的語言） 但是 並不要求你有任何存儲過程的編程經歷

存儲過程是指保存在數據豎拿庫並在資料庫端執行的程序 你可以使用特殊的語法在Java類中調用存儲過程 在調用時 存儲過程的名稱及指定的參數通過JDBC連接發送給DBMS 執行存儲過程並通過連接（如果有）返回結果

使用存儲過程擁有和使用基於EJB或CORBA這樣的應用伺服器一樣的好處 區別是存儲過程可以從很多流行的DBMS中免費使用 而應用伺服器大都非常昂貴 這並不只是許可證費用的問題 使用應用伺服器所需要花費的管理 編寫代碼的費用 以及客戶程序所增加的復雜性 都可以通過DBMS中的存儲過程所整個地替代

你可以使用Java Python Perl或C編寫存儲過程 但是通常使用你的DBMS所指定的特定語言 Oracle使用PL/SQL PostgreSQL使用pl/pgsql DB 使用Proceral SQL 這些語言都非常相似 在它們之間移植存儲過程並不比在Sun的EJB規范不同實現版本之間移植Session Bean困難 並且 存儲過程是為嵌入SQL所設計 這使得它們比Java或C等語言更加友好地方式表達資料庫的機制

因為存儲過程運行在DBMS自身 這可以幫助減少應用程序中的等待時間 不是在Java代碼中執行 個或 個SQL語句 而只需要在伺服器端執行 個存儲過程 網路上的數據往返次數的減少可以戲劇性地優化性能

使用存儲過程

簡單的老的JDBC通過CallableStatement類支持存儲過程的調用 該類實際上是PreparedStatement的一個子類 假設我們有一個poets資料庫 資料庫中有一個設置詩人逝世年齡的存儲過程 下面是對老酒鬼Dylan Thomas（old soak Dylan Thomas 不指定是否有關典故跡灶 文化 請批評指正 譯注）進行調用的詳細代碼

try{int age = ;String poetName = dylan thomas ;CallableStatement proc = connection prepareCall( { call set_death_age(? ?) } );proc setString( poetName);proc setInt( age);cs execute();}catch (SQLException e){// }

傳給prepareCall方法的字串是存儲過程調用的書寫規范 它指定了存儲過程的名稱 ？代表了你需要指定的參數

和JDBC集成是存儲過程的一個很大的便利 為了從應用中調用存儲過程 不需要存根（stub）類或者配置文件 除了你的DBMS的JDBC驅動程序外什麼也不需要

當這段代碼執行時 資料庫的存儲過程就被調用 我們沒有去獲取結果 因為該存儲過程並不返回結果 執行成功或失敗將通過例外得知 失敗可能意味著調用存儲姿纖扮過程時的失敗（比如提供的一個參數的類型不正確） 或者一個應用程序的失敗（比如拋出一個例外指示在poets資料庫中並不存在 Dylan Thomas ）

結合SQL操作與存儲過程

映射Java對象到SQL表中的行相當簡單 但是通常需要執行幾個SQL語句 可能是一個SELECT查找ID 然後一個INSERT插入指定ID的數據 在高度規格化（符合更高的範式 譯注）的資料庫模式中 可能需要多個表的更新 因此需要更多的語句 Java代碼會很快地膨脹 每一個語句的網路開銷也迅速增加

將這些SQL語句轉移到一個存儲過程中將大大簡化代碼 僅涉及一次網路調用 所有關聯的SQL操作都可以在資料庫內部發生 並且 存儲過程語言 例如PL/SQL 允許使用SQL語法 這比Java代碼更加自然 下面是我們早期的存儲過程 使用Oracle的PL/SQL語言編寫

create procere set_death_age(poet VARCHAR poet_age NUMBER)poet_id NUMBER;beginSELECT id INTO poet_id FROM poets WHERE name = poet;INSERT INTO deaths (mort_id age) VALUES (poet_id poet_age);end set_death_age;

很獨特？不 我打賭你一定期待看到一個poets表上的UPDATE 這也暗示了使用存儲過程實現是多麼容易的一件事情 set_death_age幾乎可以肯定是一個很爛的實現 我們應該在poets表中添加一列來存儲逝世年齡 Java代碼中並不關心資料庫模式是怎麼實現的 因為它僅調用存儲過程 我們以後可以改變資料庫模式以提高性能 但是我們不必修改我們代碼

下面是調用上面存儲過程的Java代碼

public static void setDeathAge(Poet dyingBard int age)throws SQLException{Connection con = null;CallableStatement proc = null;

try{con = connectionPool getConnection();proc = con prepareCall( { call set_death_age(? ?) } );proc setString( dyingBard getName());proc setInt( age);proc execute();}finally{try{proc close();}catch (SQLException e) {}con close();}}

為了確保可維護性 建議使用像這兒這樣的static方法 這也使得調用存儲過程的代碼集中在一個簡單的模版代碼中 如果你用到許多存儲過程 就會發現僅需要拷貝 粘貼就可以創建新的方法 因為代碼的模版化 甚至也可以通過腳本自動生產調用存儲過程的代碼

Functions

存儲過程可以有返回值 所以CallableStatement類有類似getResultSet這樣的方法來獲取返回值 當存儲過程返回一個值時 你必須使用registerOutParameter方法告訴JDBC驅動器該值的SQL類型是什麼 你也必須調整存儲過程調用來指示該過程返回一個值

下面接著上面的例子 這次我們查詢Dylan Thomas逝世時的年齡 這次的存儲過程使用PostgreSQL的pl/pgsql

create function snuffed_it_when (VARCHAR) returns integer declarepoet_id NUMBER;poet_age NUMBER;begin first get the id associated with the poet SELECT id INTO poet_id FROM poets WHERE name = $ ; get and return the age SELECT age INTO poet_age FROM deaths WHERE mort_id = poet_id;return age;end; language pl/pgsql ;

另外 注意pl/pgsql參數名通過Unix和DOS腳本的$n語法引用 同時 也注意嵌入的注釋 這是和Java代碼相比的另一個優越性 在Java中寫這樣的注釋當然是可以的 但是看起來很凌亂 並且和SQL語句脫節 必須嵌入到Java String中

下面是調用這個存儲過程的Java代碼

connection setAutoCommit(false);CallableStatement proc =connection prepareCall( { ? = call snuffed_it_when(?) } );proc registerOutParameter( Types INTEGER);proc setString( poetName);cs execute();int age = proc getInt( );

如果指定了錯誤的返回值類型會怎樣？那麼 當調用存儲過程時將拋出一個RuntimeException 正如你在ResultSet操作中使用了一個錯誤的類型所碰到的一樣

復雜的返回值

關於存儲過程的知識 很多人好像就熟悉我們所討論的這些 如果這是存儲過程的全部功能 那麼存儲過程就不是其它遠程執行機制的替換方案了 存儲過程的功能比這強大得多

當你執行一個SQL查詢時 DBMS創建一個叫做cursor（游標）的資料庫對象 用於在返回結果中迭代每一行 ResultSet是當前時間點的游標的一個表示 這就是為什麼沒有緩存或者特定資料庫的支持 你只能在ResultSet中向前移動

某些DBMS允許從存儲過程中返回遊標的一個引用 JDBC並不支持這個功能 但是Oracle PostgreSQL和DB 的JDBC驅動器都支持在ResultSet上打開到游標的指針（pointer）

設想列出所有沒有活到退休年齡的詩人 下面是完成這個功能的存儲過程 返回一個打開的游標 同樣也使用PostgreSQL的pl/pgsql語言

create procere list_early_deaths () return refcursor as declaretoesup refcursor;beginopen toesup forSELECT poets name deaths ageFROM poets deaths all entries in deaths are for poets but the table might bee generic WHERE poets id = deaths mort_idAND deaths age < ;return toesup;end; language plpgsql ;

下面是調用該存儲過程的Java方法 將結果輸出到PrintWriter

PrintWriter:

static void sendEarlyDeaths(PrintWriter out){Connection con = null;CallableStatement toesUp = null;try{con = ConnectionPool getConnection();

// PostgreSQL needs a transaction to do this con setAutoCommit(false);

// Setup the call CallableStatement toesUp= connection prepareCall( { ? = call list_early_deaths () } );toesUp registerOutParameter( Types OTHER);getResults execute();

ResultSet rs = (ResultSet) getResults getObject( );while (rs next()){String name = rs getString( );int age = rs getInt( );out println(name + was + age + years old );}rs close();}catch (SQLException e){// We should protect these calls toesUp close();con close();}}

因為JDBC並不直接支持從存儲過程中返回遊標 我們使用Types OTHER來指示存儲過程的返回類型 然後調用getObject（）方法並對返回值進行強制類型轉換

這個調用存儲過程的Java方法是mapping的一個好例子 Mapping是對一個集上的操作進行抽象的方法 不是在這個過程上返回一個集 我們可以把操作傳送進去執行 本例中 操作就是把ResultSet列印到一個輸出流 這是一個值得舉例的很常用的例子 下面是調用同一個存儲過程的另外一個方法實現

public class ProcessPoetDeaths{public abstract void sendDeath(String name int age);}

static void mapEarlyDeaths(ProcessPoetDeaths mapper){Connection con = null;CallableStatement toesUp = null;try{con = ConnectionPool getConnection();con setAutoCommit(false);

CallableStatement toesUp= connection prepareCall( { ? = call list_early_deaths () } );toesUp registerOutParameter( Types OTHER);getResults execute();

ResultSet rs = (ResultSet) getResults getObject( );while (rs next()){String name = rs getString( );int age = rs getInt( );mapper sendDeath(name age);}rs close();}catch (SQLException e){// We should protect these calls toesUp close();con close();}}

這允許在ResultSet數據上執行任意的處理 而不需要改變或者復制獲取ResultSet的方法

static void sendEarlyDeaths(final PrintWriter out){ProcessPoetDeaths myMapper = new ProcessPoetDeaths(){public void sendDeath(String name int age){out println(name + was + age + years old );}};mapEarlyDeaths(myMapper);}

這個方法使用ProcessPoetDeaths的一個匿名實例調用mapEarlyDeaths 該實例擁有sendDeath方法的一個實現 和我們上面的例子一樣的方式把結果寫入到輸出流 當然 這個技巧並不是存儲過程特有的 但是和存儲過程中返回的ResultSet結合使用 是一個非常強大的工具

結論

存儲過程可以幫助你在代碼中分離邏輯 這基本上總是有益的 這個分離的好處有

快速創建應用 使用和應用一起改變和改善的資料庫模式

資料庫模式可以在以後改變而不影響Java對象 當我們完成應用後 可以重新設計更好的模式

存儲過程通過更好的SQL嵌入使得復雜的SQL更容易理解

編寫存儲過程比在Java中編寫嵌入的SQL擁有更好的工具——大部分編輯器都提供語法高亮！

存儲過程可以在任何SQL命令行中測試 這使得調試更加容易

並不是所有的資料庫都支持存儲過程 但是存在許多很棒的實現 包括免費/開源的和非免費的 所以移植並不是一個問題 Oracle PostgreSQL和DB 都有類似的存儲過程語言 並且有在線的社區很好地支持

存儲過程工具很多 有像TOAD或TORA這樣的編輯器 調試器和IDE 提供了編寫 維護PL/SQL或pl/pgsql的強大的環境

lishixin/Article/program/Java/hx/201311/25906

4. oracle存儲過程的參數游標應該怎樣來賦值

oracle存儲過程的參數游標應該怎樣來賦值
可以使用動態游標。
REF CURSOR 存儲過程中使用 open cursor xxx for select xxx ;

5. 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

6. 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。

7. 6、什麼是存儲過程什麼是游標，何時使用、何時不用游標

存儲過程是一組命名了的SQL語句集合，是為了完成特定功能匯集而成的。該集合編譯後存放在資料庫中，可根據實際情況重新編譯，可直接運行，也可遠程運行且存儲過程直接在伺服器端運行。

游標實際上是一種能從包括多條數據記錄的結果集（結果集是select查詢之後返回的所有行數據的集合）中每次提取一條記錄的機制充當指針的作用，遍歷結果中的所有行，但他一次只指向一行。

游標在循環處理欄位的時候使用

建議：盡量避免使用游標，因為游標的效率較差，如果游標操作的數據超過1萬行，那麼就應該考慮改寫；使用基於游標的方法或臨時表方法之前，應先尋找基於集的解決方案來解決問題，基於集的方法通常更有效；與臨時表一樣，游標並不是不可使用。

8. Sqlserver存儲過程如何寫循環

declare @i int

set @i = 0

while @i < 100

begin

print @i

set @i = @i + 1

end

-- 定義循環變數

declare @loopIndex int set @loopIndex = 0

--定義循環次數

declare @count int set @count=1

-- 取得循環次數

select @count=count(1) from sys_user

-- 開始循環

while @loopIndex <= @count

begin

  -- 定義接收參數

  declare @USER_NAME nvarchar(50)

-- 取得循環的數據

SELECT @USER_NAME = hh.USER_NAME

FROM (SELECT ROW_NUMBER() OVER (ORDER BY USER_NAME) 'rowindex',USER_NAME FROM sys_user)hh 

WHERE hh.rowindex = @loopIndex

-- 進行相關業務邏輯 例如輸出結果 

print @USER_NAME

-- 循環自動加一

set @loopIndex = @loopIndex + 1

end

begin

  -- 定義錯誤返回信息

  declare @error int 

-- 定義接收參數

  declare @User_Name varchar(50)

  declare @Address varchar(50)

  set @error=0

  --定義游標

  declare demo_cursor cursor

  for (select User_Name,Address from sys_user)

  --打開游標--

  open demo_cursor

  --開始循環游標變數--

  fetch next from demo_cursor into @User_Name,@Address

  while @@FETCH_STATUS = 0  --返回被 FETCH語句執行的最後游標的狀態--

    begin       

      print @User_Name+'____'+@Address

      set @error= @error + @@ERROR  --記錄每次運行sql後是否正確，0正確

      fetch next from demo_cursor into @User_Name,@Address  --轉到下一個游標，沒有會死循環

    end  

  close demo_cursor --關閉游標

  deallocate demo_cursor  --釋放游標

end

更多內容請訪問： https://mxdqh.top/