資源描述：
《delphi中調(diào)用oracle的存儲過程》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、-【delphi+oracle報表解決方案(一)】delphi中調(diào)用oracle的存儲過程(分帶返回游標(biāo)，不返回值兩種)?關(guān)鍵字:delphi,oracle存儲過程，游標(biāo),返回數(shù)據(jù)集,報表注：delphi6+oracle8.1.6一.創(chuàng)建包與包體1.附：建表aaclass為下面作測試用createtableaaclass(CIDVARCHAR2(50),CNAMEVARCHAR2(50),pnumberNUMBER(10,0));INSERTINTOaaclassvalues('c1','cn1'
2、,10);INSERTINTOaaclassvalues('c2','cn2',40);INSERTINTOaaclassvalues('c1','cn3',30);commit;2.建包:CREATEORREPLACE?PACKAGEPKG_JCCTEST1??????????????????????????AS.---?typerc_classisrefcursor;????????????????????--求p1,p2的和與差，返回的多個值通過游標(biāo)返回?procedureGetSubAnd
3、Sum2(p1number,p2?number,?????????????ResultCursoroutrc_class);??--查詢滿足條件的數(shù)據(jù)集，返回數(shù)據(jù)集通過游標(biāo)返回?procedureGetClass2(ainnumber,ResultCursoroutrc_class);?--往表中插一條記錄，不返回結(jié)果集時，本人用AdoQuery調(diào)用(adodataset好象要求必須返回結(jié)果集)?procedureInsertClass(p_cidvarchar2,p_cnamevarchar2,
4、?????????????????????????p_pnumbernumber);endPKG_JCCTEST1;?3.建包體CREATEORREPLACE?PACKAGEBODYPKG_JCCTEST1.---ASprocedureGetSubAndSum2(p1number,p2?number,?????????????ResultCursoroutrc_class)ISBEGIN?openResultCursorfor???selectp1-p2as"sum",p1+p2as"sub"fr
5、omdual;END;procedureGetClass2(ainnumber,ResultCursoroutrc_class)isbegin?openResultCursorfor??selectaaclass.*fromaaclasswherepnumber>a;end;procedureInsertClass(p_cidvarchar2,p_cnamevarchar2,?????????????????????????p_pnumbernumber).---isbegin?insertint
6、oaaclassvalues(p_cid,p_cname,p_pnumber);--?commit;end;??二.在delphi中利用AdoDataSet調(diào)用上述第一個存儲過程1.利用AdoConnection1連接數(shù)據(jù)庫(驅(qū)動為oracleProviderforOLEDB)，?**并在連接字符串中加入這一節(jié):?PLSQLRSet=1;如下所示：Provider=OraOLEDB.Oracle.1;Password=KXD;PersistSecurityInfo=True;UserID=KXD;
7、DataSource=TEST3;PLSQLRSet=12.在窗體上加AdoDataSet1.---指明連接為上述AdoConnection1,下面可以放一個按鈕，單擊按鈕就能調(diào)用第一步中創(chuàng)建的包過程，并返回數(shù)據(jù)集。代碼如下所示：procedureTForm1.Button1Click(Sender:TObject);var?AResult,BResult:integer;begin?ADODataSet1.Close;?ADODataSet1.CommandType:=?cmdText;?ADO
8、DataSet1.Parameters.Clear;?//***利用call方法調(diào)用oracle過程時，參數(shù)必須由?來傳，即使你要傳的參數(shù)為常理?//輸出游標(biāo)的參數(shù)不需要指定!!!!!!，本來此函數(shù)帶三個參數(shù)，我們這里只需要傳兩個參數(shù).?ADODataSet1.CommandText:='{callPKG_JCCTEST1.GetSubAndSum2(?,?)}';?//***C順序有關(guān)，createparam必須放在commandtext賦值語句之后.?//創(chuàng)建第一個參數(shù)，對應(yīng)c
