CREATE OR REPLACE FUNCTION HGS160B (
FromYMD IN VARCHAR,
ToYMD IN VARCHAR,
JishiYear IN VARCHAR,
ShikakuCDList IN VARCHAR,
KoshuCD IN CHAR
) return NUMBER
IS
BEGIN
mFromYMD VARCHAR(8);
mToYMD VARCHAR(8);
mJishiYear VARCHAR(4);
mShikakuCDWhere VARCHAR(1000);
mKoshuCD CHAR(1);
mShikakuCD VARCHAR(10) := 'SHIKAKU_CD';
mShutokuYMD VARCHAR(100);
mShutokuFromYMD VARCHAR(8);
CURSOR Ba_Cur_7 IS
SELECT
T_2.SHUTOKU_YMD F_2_6
FROM
GS_KP_SHIKAKU_TBL T_2
WHERE
mShutokuYMD > FromYMD
BEGIN
mFromYMD := FromYMD;
IF length(mFromYMD) = 8
THEN
--
mShutokuYMD := 'T_2.SHUTOKU_YMD';
mShutokuFromYMD := '20050202';
--mFromYMD;
ELSE
--
mShutokuYMD := '2';
mShutokuFromYMD := '1';
FromYMD IN VARCHAR,
ToYMD IN VARCHAR,
JishiYear IN VARCHAR,
ShikakuCDList IN VARCHAR,
KoshuCD IN CHAR
) return NUMBER
IS
BEGIN
mFromYMD VARCHAR(8);
mToYMD VARCHAR(8);
mJishiYear VARCHAR(4);
mShikakuCDWhere VARCHAR(1000);
mKoshuCD CHAR(1);
mShikakuCD VARCHAR(10) := 'SHIKAKU_CD';
mShutokuYMD VARCHAR(100);
mShutokuFromYMD VARCHAR(8);
CURSOR Ba_Cur_7 IS
SELECT
T_2.SHUTOKU_YMD F_2_6
FROM
GS_KP_SHIKAKU_TBL T_2
WHERE
mShutokuYMD > FromYMD
BEGIN
mFromYMD := FromYMD;
IF length(mFromYMD) = 8
THEN
--
mShutokuYMD := 'T_2.SHUTOKU_YMD';
mShutokuFromYMD := '20050202';
--mFromYMD;
ELSE
--
mShutokuYMD := '2';
mShutokuFromYMD := '1';
解决方案 »
- 查询重复值的存储过程
- 急。。救命呀~OEM登录的时候出现ORA-12154:TNS:无法解析指定的连接标识符,命令行lsnrctl status的时候监听参数文件也不是想要的路径
- 这样的SQL怎么写,请高手帮忙!
- 如何实现oracle9i开机时和定时数据库自动备份???请各位高手帮忙
- 如何用语句修改tablespaces中rbs的属性。
- 这个SQL怎么写啊,我不会,真郁闷..能帮忙吗
- 请教一个SQL语句?
- 2000Professional下不能安装Oracle8.0.6客户端,内存不能写,怎么处理?在线等候
- oracle 多表更新
- 如何查看Oracle中sql语句的执行时间
- 比较sql server ,oracle ,db2
- 怎么在VC做的程序中增加备份ORALCE的功能,就象SQLSERVER中调用DUMP。
你这条件是不是有问题?哪个是字段名?
第二个begin的declare呢?
declare
CURSOR Ba_Cur_7(FromYMD number) IS
SELECT
T_2.SHUTOKU_YMD F_2_6
FROM
GS_KP_SHIKAKU_TBL T_2
WHERE
mShutokuYMD > FromYMD
BEGIN
……
declare
CURSOR Ba_Cur_7(p_FromYMD VARCHAR) IS
SELECT
T_2.SHUTOKU_YMD F_2_6
FROM
GS_KP_SHIKAKU_TBL T_2
WHERE
mShutokuYMD > p_FromYMD
begin
for v_Ba_Cur_7 in Ba_Cur_7(FromYMD) loop
.......
end loop;
....
end;
你要的是否参数游标?