同义词创建函数

在处理某项目现场问题时,由于服务器迁移需要.同义词需要重建,原同义词创建工具已经不可用所以本人写了一个function 来实现同库用户间批量创建同义词.

内容如下:

create or replace function CreateSynonymForUser
(SourceUser in varchar2,TarUser in varchar2) return integer is
  Result integer;
  iCount integer(8);
  sTableName varchar2(100);
  sSql varchar2(300);
  cursor c1(p1 varchar2)
   is select TABLE_NAME from dba_tables where OWNER=p1 and TABLESPACE_NAME='USERS';
begin
  open c1(SourceUser);
  loop
      sSql:= 'create or replace synonym ';
      fetch c1 into sTableName;
      exit when c1%notfound;
      sSql:= sSql || TarUser || '.' || sTableName || ' for ' || SourceUser || '.' || sTableName;
      EXECUTE IMMEDIATE sSql;
      iCount:=iCount + 1;
      Result:=iCount;
  end loop;
  return(Result);
end CreateSynonymForUser;

其间碰到如下两个问题:

1.在function中使用系统视图时,一编译总报找不到表,后得知,在function ,procedure中使用系统视图时必须以dba登陆才可以.

2.创建好同义词后,在创建到的目标用户的方案下可以看到同义词了,执行SQL语句也可查询,但是当在视图中进行查询时,视图无法编译,报"ORA-01031: 权限不足",后查明,需要单独给用户表的查询权限.所以在同义词映射的用户下执行:grant select any table to [目标用户] 提示授权成功后再试,问题解决.