一个 function 执行到中途突然“停止”了

[fxfeixue]

环境：
有一个function 名为F_A ，参数形式(sStr in varchar2,sTableName in varchar2,sColumnName in varchar2,sContidionColumnName in varchar2)
其功能是在 sTableName 表中查找 sContidionColumnName 字段的值等于 sStr ，返回列 sColumnName 的值。
例如：我要查询表中 UserID 对应的 UserName，select F_A(userid, '用户表','用户表_userName','用户表_userID') as 用户名 from 表1

问题：
表1中有200多条记录，上例中的查询语句执行后，有一半的记录没有被转换，比较能正常转换和不能正常转换的记录，没发现什么区别，请高人指点

[hebo2005]

function贴出来看看有什么错误

[fxfeixue]

CREATE OR REPLACE FUNCTION "NAMESLISTSTR" (
sStr in varchar2,--需要转换的字符串，用逗号隔开
sTableName in varchar2,--转换查询的表名称
sColumnName in varchar2,--转换列名
sContidionColumnName in varchar2--需要转换的列名
)
return varchar2
as
aIndex int := 0 ; --逗号索引
sNameStr varchar2(500);--条件值
sParamValues varchar2(500);--剩余的参数字符串
aa varchar2(1000); -- 临时变量
iIsWhile int := 1;--标注是否循环
sSql varchar2(1000);--动态sql语句
tempvalue varchar2(100);--查询到的临时值
sColValue varchar2(1000);--返回值
begin
--if(sStr is null) then
-- return '';
--end if;

aIndex := instr(sStr,',',1,1);

if(aIndex = 0) then
begin
BEGIN
sSql := 'SELECT ' || sColumnName || ' FROM ' || sTableName || ' where ' || sContidionColumnName || ' = ''' || sStr || '''';
execute immediate sSql into sColValue;
--SELECT USERCNAME into sColValue FROM ASREG005 where USERID = sStr;
-- SELECT sColumnName into sColValue FROM sTableName where sColumnName = sStr;
EXCEPTION
WHEN NO_DATA_FOUND THEN
sColValue := sStr;
END;
end;
else

begin
--获取第一个名字
sNameStr := substr(sStr,1,aIndex-1);
begin
sSql := 'SELECT ' || sColumnName || ' FROM ' || sTableName || ' where ' || sContidionColumnName || ' = ''' || sNameStr || '''';

execute immediate sSql into tempvalue;
-- SELECT sColumnName into sValue FROM sTableName where sColumnName = sNameStr;
EXCEPTION
WHEN NO_DATA_FOUND THEN
tempvalue := sNameStr;
END;
sColValue := tempvalue ;--保存值

sParamValues := substr(sStr,aIndex +1,length(sStr) - aIndex); --:1:2:3:4:5:6:7:8

if length(trim(sParamValues)) > 1 then
begin
sColValue := sColValue || ',' ;
iIsWhile := 1;
end;
else
begin
iIsWhile := 0;
end;
end if;

WHILE iIsWhile = 1 LOOP --执行循环
begin
aIndex := instr(sParamValues,',',1,1);
if aIndex = 0 then
begin
sNameStr := sParamValues;
end;
else
begin
sNameStr := substr(sParamValues,1,aIndex-1);
end;
end if;

sSql := 'SELECT ' || sColumnName || ' FROM ' || sTableName || ' where ' || sContidionColumnName || ' = ''' || sNameStr || '''';
execute immediate sSql into tempvalue;
-- SELECT sColumnName into sValue FROM sTableName where sColumnName = sNameStr;
EXCEPTION
WHEN NO_DATA_FOUND THEN
tempvalue := sNameStr;
END;

sParamValues := substr(sParamValues,length(sNameStr) + 2,length(sParamValues) - length(sNameStr)- 1);
aa := sColValue || tempvalue ;
-- sColValue :=
--添加逗号
if length(trim(sParamValues)) > 0 then
begin
sColValue := aa || ',' ;
end;
else
begin
sColValue := aa;
iIsWhile := 0;
end;
end if;

END LOOP;
end;
end if;
return(sColValue);
end;

[ahalf]

加上Exception部分俘获一下错误

[ahalf]

说明一下
是全局的

[fxfeixue]

我在最后一个end 的上面加了
Exception
when others then
Dbms_Output.put_line('exception');

在SQL plus 中执行
select namesliststr(A.DROWER,'AS005','USERID','USERCNAME') AS AUTHOR from AS02 A
没有报异常
这是以前的一个同事写的，我不懂oracle，还请各位多费心了 :(

[新鲜鱼排]

是不是由于字符长度的限制。

[yegoo]

(苦练Java和Oracle中……）

[ahalf]

Exception
when others then
insert into table value (....err_code....)

试试