delphi中调用oracle的存储过程.docVIP

【delphi+oracle报表解决方案(一)】delphi中调用oracle的存储过程(分带返回游标，不返回值两种)?

关键字:delphi,oracle存储过程，游标,返回数据集,报表

注：delphi6+oracle8.1.6

一.创建包与包体

1.附：建表aaclass为下面作测试用

createtableaaclass(CIDVARCHAR2(50),CNAMEVARCHAR2(50),pnumberNUMBER(10,0));

INSERTINTOaaclassvalues(c1,cn1,10);

INSERTINTOaaclassvalues(c2,cn2,40);

INSERTINTOaaclassvalues(c1,cn3,30);

commit;

2.建包:

CREATEORREPLACE?PACKAGEPKG_JCCTEST1??????????????????????????

AS

?typerc_classisrefcursor;

???????????????????

?--求p1,p2的和与差，返回的多个值通过游标返回

?procedureGetSubAndSum2(p1number,p2?number,

?????????????ResultCursoroutrc_class);

?

?--查询满足条件的数据集，返回数据集通过游标返回

?procedureGetClass2(ainnumber,ResultCursoroutrc_class);

?--往表中插一条记录，不返回结果集时，本人用AdoQuery调用(adodataset好象要求必须返回结果集)

?procedureInsertClass(p_cidvarchar2,p_cnamevarchar2,

?????????????????????????p_pnumbernumber);

endPKG_JCCTEST1;

?

3.建包体

CREATEORREPLACE?PACKAGEBODYPKG_JCCTEST1

AS

procedureGetSubAndSum2(p1number,p2?number,

?????????????ResultCursoroutrc_class)

IS

BEGIN

?openResultCursorfor

???selectp1-p2assum,p1+p2assubfromdual;

END;

procedureGetClass2(ainnumber,ResultCursoroutrc_class)

is

begin

?openResultCursorfor

??selectaaclass.*fromaaclasswherepnumbera;

end;

procedureInsertClass(p_cidvarchar2,p_cnamevarchar2,

?????????????????????????p_pnumbernumber)

is

begin

?insertintoaaclassvalues(p_cid,p_cname,p_pnumber);

--?commit;

end;

?

?

二.在delphi中利用AdoDataSet调用上述第一个存储过程

1.利用AdoConnection1连接数据库(驱动为oracleProviderforOLEDB)，

?**并在连接字符串中加入这一节:?PLSQLRSet=1;如下所示：

Provider=OraOLEDB.Oracle.1;Password=KXD;PersistSecurityInfo=True;UserID=KXD;DataSource=TEST3;PLSQLRSet=1

2.在窗体上加AdoDataSet1指明连接为上述AdoConnection1,下面可以放一个按钮，单击按钮就能调用第一步中创建的包过程，并返回数据集。代码如下所示：

procedureTForm1.Button1Click(Sender:TObject);

var

?AResult,BResult:integer;

begin

?ADODataSet1.Close;

?ADODataSet1.CommandType:=?cmdText;

?ADODataSet1.Parameters.Clea