程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Oracle數據庫 >> Oracle數據庫基礎 >> VFP中調用Oracle的存儲過程

VFP中調用Oracle的存儲過程

編輯:Oracle數據庫基礎

VFP由於其通俗、易用,深受廣大開發人員的歡迎,但其安全性與穩定性卻不十分完善。而Oracle在此方面的優點是有口皆碑的,兩者結合,能開發出高效、安全和穩定的應用系統。有關在VFP中調用Oracle存儲過程方法的資料較少,下面就此舉一簡單例子,希望起到拋磚引玉的作用。 此方法適用於用VFP作前端開發工具、Oracle作後端數據庫的C/S開發方法。

在Oracle端,建有如下表和存儲過程:

表gzb如下:

   SQL〉select * from gzb; ID
   GZ
   1
   3050
   3
   2500
   2
   4000.8

存儲過程如下:

     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為2的員工的gz為5000,則可以執行:

sqlexec(nhand , ″{call p—update—gzb(2,5000)}″)

如果執行成功,則返回1,失敗則返回-1。我們可以執行以下命令驗證存儲過程是否成功執行了:

sqlexec(nhand,′select * from gzb′)

brow

結果是:

ID GZ 1 3050 3 2500 2 5000

可見,Oracle的存儲過程p—update—gzb已經成功執行了,最後,別忘了斷開連接:

disconnect(nhand)

以上例子在VFP6.0、Oracle 7.3.3 環境下運行通過。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved