create or replace function check_data_ys(tname varchar2,wherestr varchar2) return number is
  --检查表中是否有条件指定的数据
  --tname是表名,wherestr是条件不包括where
  --数据存在则返回值为1,否则为0
  Result number;
  sqlstr varchar2(500);
  ren number;
begin
  sqlstr:='select count(*) from '||tname||' where '||wherestr||' and rownum<2';
  execute immediate sqlstr into ren;
  if ren=0 then
    Result:=0;
  else
    Result:=1;
  end if;
  return(Result);
end check_data_ys;

相关文章: