Lotus Notes調用DB2存儲過程
下面為您介紹的調用DB2存儲過程方法實現(xiàn)的是Lotus Notes調用DB2存儲過程，如果您對DB2存儲過程方面感興趣的話，不妨一看。
編寫DB2存儲過程和Lotus Notes調用DB2存儲過程篇
使用DB2存儲過程的應用程序必須寫成兩個獨立的過程。主程序包含在客戶應用程序中，在客戶機上執(zhí)行。主調程序可以用任何被支持的宿主語言編寫。存儲過程在數(shù)據(jù)庫服務器上執(zhí)行，必須用一種支持數(shù)據(jù)庫服務器的編程語言編寫。
我們可以用Java編寫代理或用DECS、NotesPump實時Notes作業(yè)去調用存儲過程，如COBOL、REXX或Java。
Lotus Notes調用DB2存儲過程
我們用ExecProcedure方法去調用命名為testProce存儲過程。首先要在運行存儲過程的數(shù)據(jù)庫中為存儲過程編目，這使用CREATE PROCEDURE SQL語句。可以給存儲過程傳送多達30個參數(shù)（這是LotusScript的限制）。這些參數(shù)用于輸入還是輸出，或者是既用于輸入、又用于輸出，取決于為存儲過程編目時對參數(shù)的定義。
客戶程序例如LoadEmployee代理在客戶機上運行，執(zhí)行以下動作：
1.為可選數(shù)據(jù)結構和主機變量聲明、分配和初始化存儲空間：
[code:1:3f6f8a2cde]Dim SalaryMedian As Long
Dim WorkDept As String
其中：
SalaryMedian 主機變量
WorkDept 主機變量 [/code:1:3f6f8a2cde]
2.連接到數(shù)據(jù)庫：
[code:1:3f6f8a2cde]retcode%=Con.ConnectTo("DEMO","db2admin","db2admin")
其中：
DEMO 創(chuàng)建的訪問DB2的ODBC名稱
db2admin OS/400 user profile
db2admin Login password[/code:1:3f6f8a2cde]
3.通過ExecProcedure調用存儲過程：
[code:1:3f6f8a2cde]rc=res.ExecProcedure("testProce",SalaryMedian,workdept)
其中：
testProcedure 存儲過程的注冊名
SalaryMedian一個輸出變量，接收存儲過程傳遞的值
WorkDept存儲過程的一個輸出參數(shù)[/code:1:3f6f8a2cde]
4.從存儲過程接收數(shù)據(jù)：
[code:1:3f6f8a2cde]doc.SalaryMedian = SalaryMedian[/code:1:3f6f8a2cde]
5.斷開同數(shù)據(jù)庫的連接，隱式執(zhí)行提交：
[code:1:3f6f8a2cde]If Not Res Is Nothing Then Res.Close(DB_CLOSE)
If Not Con Is Nothing Then Con.Disconnect[/code:1:3f6f8a2cde]
【編輯推薦】
