怎样返回记录集？
【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);INS...全部
【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。
建包:CREATEORREPLACEPACKAGEPKG_JCCTEST1AStyperc_classisrefcursor;--求p1,p2的和与差，返回的多个值通过游标返回procedureGetSubAndSum2(p1number,p2number,ResultCursoroutrc_class);--查询满足条件的数据集，返回数据集通过游标返回procedureGetClass2(ainnumber,ResultCursoroutrc_class);--往表中插一条记录，不返回结果集时，本人用AdoQuery调用(adodataset好象要求必须返回结果集)procedureInsertClass(p_cidvarchar2,p_cnamevarchar2,p_pnumbernumber);endPKG_JCCTEST1;3。
建包体CREATEORREPLACEPACKAGEBODYPKG_JCCTEST1ASprocedureGetSubAndSum2(p1number,p2number,ResultCursoroutrc_class)ISBEGINopenResultCursorforselectp1-p2as"sum",p1 p2as"sub"fromdual;END;procedureGetClass2(ainnumber,ResultCursoroutrc_class)isbeginopenResultCursorforselectaaclass。
*fromaaclasswherepnumber>a;end;procedureInsertClass(p_cidvarchar2,p_cnamevarchar2,p_pnumbernumber)isbegininsertintoaaclassvalues(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=12。在窗体上加AdoDataSet1指明连接为上述AdoConnection1,下面可以放一个按钮，单击按钮就能调用第一步中创建的包过程，并返回数据集。
代码如下所示：procedureTForm1。Button1Click(Sender:TObject);varAResult,BResult:integer;beginADODataSet1。
Close;ADODataSet1。CommandType:=cmdText;ADODataSet1。Parameters。Clear;//***利用call方法调用oracle过程时，参数必须由?来传，即使你要传的参数为常理//输出游标的参数不需要指定!!!!!!，本来此函数带三个参数，我们这里只需要传两个参数。
ADODataSet1。CommandText:='{callPKG_JCCTEST1。GetSubAndSum2(?,?)}';//***C顺序有关，createparam必须放在commandtext赋值语句之后。
//创建第一个参数，对应call中的第一个?,ftinteger为类型,10为长度，45为传入的实参值ADODataSet1。Parameters。CreateParameter('p1',ftinteger,pdinput,10,45);//创建第二个参数，根据createparameter的顺序自动与call中的第二个参数对应ADODataSet1。
Parameters。CreateParameter('p2',ftinteger,pdinput,10,4);//下面调用ADODataSet1的open方法，返回数据集(对应包过程的游标)ADODataSet1。
Open;//根据存储过程，数据集只有一条记录，所以不需要用whiledo来遍历数据集，直接取数据了//此处的字段名根据包过程中的返回游标对应的字段名来取//定义的存储过程返回游标如：openResultCursorfor//selectp1-p2as"sum",p1 p2as"sub"fromdual;//把对应的字段值取出来即可AResult:=ADODataSet1。
Fields。FieldByName('sub')。Value;BResult:=ADODataSet1。Fields。FieldByName('sum')。Value;//显示结果showmessage(inttostr(AResult));showmessage(inttostr(BResult));end;三。
在delphi中利用AdoDataSet调用上述第二个存储过程还是利用上述的AdoDataSet1来调用第二个存储过程，无需任何改动,加第二个按钮，单击时代码如下：procedureTForm1。
Button2Click(Sender:TObject);beginADODataSet1。Close;ADODataSet1。CommandType:=cmdText;ADODataSet1。
Parameters。Clear;//***利用call方法调用oracle过程时，参数必须由?来传，即使你要传的参数为常理//输出游标的参数不需要指定!!!!!!，本来此函数带两个参数，我们这里只需要传一个参数。
ADODataSet1。CommandText:='{callPKG_JCCTEST1。GetClass2(?)}';//***C顺序有关，createparam必须放在commandtext赋值语句之后。
//创建第一个参数，对应call中的第一个?,ftinteger为类型,10为长度，20为传入的实参值ADODataSet1。Parameters。CreateParameter('p1',ftinteger,pdinput,10,20);//下面调用ADODataSet1的open方法，返回数据集(对应包过程的游标)ADODataSet1。
Open;whilenotADODataSet1。Eofdobeginshowmessage('CID:' string(ADODataSet1。FieldByName('CID')。Value) '--CNAME:' string(ADODataSet1。
FieldByName('CNAME')。Value) '--PNUMBER:' string(ADODataSet1。FieldByName('PNUMBER')。Value));ADODataSet1。
Next;end;end;四利用adoquery调用第三个过程，不返回数据集的procedureTForm1。Button3Click(Sender:TObject);beginAdoQuery1。
Close;AdoQuery1。Parameters。Clear;AdoQuery1。SQL。Clear;AdoQuery1。SQL。Add('{callPKG_JCCTEST1。GetSubAndSum2(?,?)}');AdoQuery1。
Parameters。CreateParameter('P1',ftstring,pdinput,50,'c11');AdoQuery1。Parameters。CreateParameter('P2',ftstring,pdinput,50,'cn11');AdoQuery1。
Parameters。CreateParameter('P3',ftinteger,pdinput,50,25);AdoQuery1。ExecSQL;end;五利用adoquery调用第一个过程，返回数据集的。
procedureTForm1。Button4Click(Sender:TObject);beginAdoQuery1。Close;AdoQuery1。Parameters。Clear;AdoQuery1。
SQL。Clear;AdoQuery1。SQL。Add('{callPKG_JCCTEST1。GetSubAndSum2(?,?)}');AdoQuery1。Parameters。CreateParameter('P1',ftinteger,pdinput,50,25);AdoQuery1。
Parameters。CreateParameter('P2',ftinteger,pdinput,50,22);AdoQuery1。Open;Showmessage(string(AdoQuery1。
FieldByName('sub')。Value) '-' string(AdoQuery1。FieldByName('sum')。Value));end;六。关于三层体系的此类问题两层的解决了，三层类似。
中间层用tadodataset或tadoquery( tdatasetprovider),中间层的adoconnection的连接字符串加上plsqlRset=1;客户端用clientdataset,大同小异，举例如下:begin//调用相应的过程ClientDataSet1。
Close;ClientDataSet1。Params。Clear;ClientDataSet1。CommandText:='{callPackageName。ProcedureName(?,?)}';ClientDataSet1。
Params。CreateParam(ftInteger,'ParamName1',ptInput);ClientDataSet1。Open;end;本人水平有限，如有不当与错误之处请指正!--------------------------------------------------问：你好：看到你的关于DELPHI调用ORACLE存储过程返回结果集的文章，很受触发。
我已经实现了在DELPHI里调用ORACLE存储过程，通过一个游标参数，返回一个结果集的情况。现在有个问题：在存储过程里，可以实现多个弱游标参数输出多个结果集，但是，在DELPHI里，我不知道，怎么取得这第二个或其后的通过游标返回的结果集。
通过ADO只能取得第一个结果集。如果你知道解决方案，请EMAIL联系我。不胜感激。答：用nextrecordset方法就可以了，代码如下：varvTemp1:integer;begin。。。。
ADODataSet1。Open;ADODataSet2。Recordset:=ADODataSet1。NextRecordset(vTemp1);showmessage(ADODataSet2。
FieldValues['CID']);end;问：怎么连接局域网内的oracle的数据呢？连接字符串应该怎么写呢？Provider=OraOLEDB。Oracle。1;Password=KXD;PersistSecurityInfo=True;UserID=KXD;DataSource=TEST3;PLSQLRSet=1我用的adoquery控件。
答：以下三个参数根据你的情况修改就可以了DataSource=TNS名称UserID=用户名Password=密码本文来自CSDN博客。收起
