Question

oracle的存储过程和函数能返回一个数据集吗

Answer 1

createorreplacepackageFuxjPackageis
typeFuxjResultSetisrefcursor;
还可以定义其他内容
endFuxjPackage;
再定义Oracle存储过程：
createorreplaceprocedureUpdatefuxjExample
(sDMinchar,sMCinchar,pRecCurinoutFuxjPackage.FuxjResultSet)asbeginupdatefuxjExamplesetmc=sMCwheredm=sDM;ifSQL%ROWCOUNT=0thenrollback;openpRecCurfor
select'0'resfromdual;elsecommit;openpRecCurfor
select'1'resfromdual;endif;end;和createorreplaceprocedureInsertfuxjExample
(sDMinchar,sMCinchar,pRecCurinoutFuxjPackage.FuxjResultSet)asbegininsertintoFuxjExample(dm,mc)values(sDM,sMC);commit;openpRecCurfor
select*fromFuxjExample;end;二、在Delphi中调用返回数据集的Oracle存储过程
可以通过TstoredProc或TQuery控件来调用执行返回数据集的存储，数据集通过TstoredProc或TQuery控件的参数返回源码天空
，注意参数的DataType类型为ftCursor，而参数的ParamType类型为ptInputOutput。
使用TstoredProc执行UpdatefuxjExample的相关设置为：
objectStoredProc1:TStoredProc

Answer 2

createorreplacepackageFuxjPackageis
typeFuxjResultSetisrefcursor;
还可以定义其他内容
endFuxjPackage;
再定义Oracle存储过程：
createorreplaceprocedureUpdatefuxjExample
(sDMinchar,sMCinchar,pRecCurinoutFuxjPackage.FuxjResultSet)asbeginupdatefuxjExamplesetmc=sMCwheredm=sDM;ifSQL%ROWCOUNT=0thenrollback;openpRecCurfor
select'0'resfromdual;elsecommit;openpRecCurfor
select'1'resfromdual;endif;end;和createorreplaceprocedureInsertfuxjExample
(sDMinchar,sMCinchar,pRecCurinoutFuxjPackage.FuxjResultSet)asbegininsertintoFuxjExample(dm,mc)values(sDM,sMC);commit;openpRecCurfor
select*fromFuxjExample;end;二、在Delphi中调用返回数据集的Oracle存储过程
可以通过TstoredProc或TQuery控件来调用执行返回数据集的存储，数据集通过TstoredProc或TQuery控件的参数返回源码天空
，注意参数的DataType类型为ftCursor，而参数的ParamType类型为ptInputOutput。
使用TstoredProc执行UpdatefuxjExample的相关设置为：
objectStoredProc1:TStoredProc