提供授权的过程，无效的表名错误

Question

我正在尝试创建一个向特定架构对象授予权限的过程。过程似乎编译正常，但在执行时出错。

这个简单的程序出了点问题，但我找不到原因。

程序：

create or replace procedure ch.grants_to_schema_objects(
          i_target_schema varchar2, 
          i_target_user varchar2) as
begin
 for mt in (SELECT 'GRANT SELECT ON ' || chr(39) 
              || i_target_schema || chr(39) 
              || '.' || TABLE_NAME || ' TO ' || chr(39) 
              || i_target_user || chr(39)
              || ' WITH GRANT OPTION' as grnt 
          FROM ALL_TABLES 
          WHERE OWNER = i_target_schema) loop
  dbms_output.put_line(mt.grnt);
  execute immediate mt.grnt;
end loop;
end;

叫：

 execute ch.grants_to_schema_objects('SR', 'CH');

错误：

ORA-06512: "CH.GRANTS_TO_SCHEMA_OBJECTS", line 5
ORA-06512: line 1
00903. 00000 -  "invalid table name"
*Cause:    
*Action:

Answer 1

CHR(39)正在打破它。将其替换为CHR(34)："您需要分隔用户名，而不是'。