create or replace function FN1(
ASTART_CODE VARCHAR2,
AENDCODE VARCHAR2
)
return PUR0001PACKAGE.T_CURSOR is
Result PUR0001PACKAGE.T_CURSOR;
begin
Open Result For
Select CODE,SUPPLIER_NAME,FAX,STATE,PHONE,
BILLING_ADDRESS_1,BILLING_ADDRESS_2,BILLING_ADDRESS_3
From DATA0023
Where CODE>=ASTART_CODE
And CODE<=AENDCODE;
return(Result);
end FN1;如行,请问在TQuery的SQL语句如何写?
ASTART_CODE VARCHAR2,
AENDCODE VARCHAR2
)
return PUR0001PACKAGE.T_CURSOR is
Result PUR0001PACKAGE.T_CURSOR;
begin
Open Result For
Select CODE,SUPPLIER_NAME,FAX,STATE,PHONE,
BILLING_ADDRESS_1,BILLING_ADDRESS_2,BILLING_ADDRESS_3
From DATA0023
Where CODE>=ASTART_CODE
And CODE<=AENDCODE;
return(Result);
end FN1;如行,请问在TQuery的SQL语句如何写?
解决方案 »
- 为什么要让程序暂停下才可以正常接收?
- 关于Tlistview控件编辑感知的问题,高手进,低手也进来学习!这有可能是一个旷世难题!
- 窗体如何设计
- 【Delphi版版服T恤方案征集】【正式开始!】
- 如何利用excel的range属性读取数据赋值给一数组?
- 怎么样才能让我的DBGRID触发DrawDataCell事件
- 疑惑: 为何可以直接调用类中的virtual abstract(纯虚函数)方法?
- 欧洲杯 决赛 葡萄牙VS希腊!? 200分!!!
- 老婆明天生小BABY了,希望大人小孩都平安!
- 怎样对Dbgrid组件中字段按条件进行排序!
- 如何求得一个汉字的ASCII码?有没有地方可以查到
- 可以用delphi写个小程序删除windows下的文件吗?谢谢!
你的意思是用TQuery来做不行?
select N1(...) As 'Result' From Dual
但如果返回的是一个结果集呢,怎么办?
你用到了返回结果集的游标,所以你需要把你的Function放到包里面。
SQL:='{call PKG_JCCTEST1.FN1(?,?)}'
更多详细做法参考
http://dev.csdn.net/article/60/60789.shtm