请高手帮我看一下我的存储过程错在那里。在线等

[qiangorqiang]

CREATE OR REPLACE FUNCTION Add_Picture
(
nInfoID IN PICTURE.INFOID%TYPE,
sTableName IN PICTURE.TABLENAME%TYPE,
sType IN PICTURE.TYPE%TYPE,
bBody IN PICTURE.BODY%TYPE,
sError OUT VARCHAR2
) RETURN NUMBER
AS
nCount NUMBER(1);
sSql VARCHAR2(255);
nNewID PICTURE.ID%TYPE;
BEGIN
select count(*) into nCount from tab where TNAME = sTableName;
if nCount != 1 then
sError := '表名不正确。';
return -1;
end if;
sSql := 'select count(*) into nCount from ' || sTableName || ' where ID = ' || to_char(nInfoID);
execute immediate sSql;
if nCount != 1 then
sError := '不存在的信息不能增加图片。';
return -1;
end if;
insert into PICTURE (ID ,INFOID ,TABLENAME ,TYPE ,BODY) values(SEQ_PICTURE_ID.NEXTVAL , nInfoID , sTableName , sType , bBody);
if sql%rowcount != 1 then
sError := '数据保存过程中出现错误，请检查输入的数据并通知管理员。';
return (-1);
end if;
select SEQ_PICTURE_ID.CURRVAL into nNewID from DUAL;
return nNewID;
END;

[bzszp]

sSql := 'select count(*) from ' ||sTableName || ' where ID = ' || to_char(nInfoID);
execute immediate sSql into nCount;