VFP中調用Oracle的存儲過程

　　VFP由於其通俗易用深受廣大開發人員的歡迎但其安全性與穩定性卻不十分完善而Oracle在此方面的優點是有口皆碑的兩者結合能開發出高效安全和穩定的應用系統有關在VFP中調用Oracle存儲過程方法的資料較少下面就此舉一簡單例子希望起到拋磚引玉的作用此方法適用於用VFP作前端開發工具Oracle作後端數據庫的C/S開發方法
　　
　　　　在Oracle端建有如下表和存儲過程
　　
　　　　表gzb如下
　　
　　SQL〉select ＊ from gzb; ID
　　GZ
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　　　存儲過程如下
　　
　　　　create or replace procedure p_update—gzb (p—id in number p—gz in number) as
　　
　　　　begin
　　
　　　　update gzb set gz=p—gz where id=p—id;
　　
　　　　commit;
　　
　　　　end;
　　
　　　　在前端(VFP端)假設已建立好與Oracle的鏈接′vfplink′(具體步驟可以參閱VFP的幫助文檔)
　　
　　　　打開鏈接
　　
　　　　nhand=sqlconnect(′vfplink′)
　　
　　　　＆＆nhand為返回的鏈接句柄
　　
　　　　調用Oracle的存儲過程p—update—gzb:
　　
　　　　此存儲過程有兩個參數分別是id與gz 我們設要更新id為的員工的gz為則可以執行
　　
　　　　sqlexec(nhand ″{call p—update—gzb()}″)
　　
　　　　如果執行成功則返回失敗則返回－我們可以執行以下命令驗證存儲過程是否成功執行了
　　
　　　　sqlexec(nhand′select ＊ from gzb′)
　　
　　　　brow
　　
　　　　結果是
　　
　　ID
　　GZ
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　
　　　　可見Oracle的存儲過程p—update—gzb已經成功執行了最後別忘了斷開連接
　　
　　　　disconnect(nhand)
　　
　　　　以上例子在VFPOracle 環境下運行通過

From:http://tw.wingwit.com/Article/program/Oracle/201311/16667.html