存储过程中执行存储过程

〇〇

把owner修改了，重现了lz的问题
SQL> 11
11*        and owner in ('TEST');
SQL> c/TEST/HR
11*        and owner in ('HR');
SQL> /

过程已创建。

已用时间:  00: 00: 00.04
SQL> exec benben
BEGIN benben; END;

*
第 1 行出现错误:
ORA-00900: 无效 SQL 语句
ORA-06512: 在 "HR.BENBEN", line 18
ORA-06512: 在 line 1


已用时间:  00: 00: 00.12

〇〇

在dbms_stat语句前加begin 后加end;
SQL> dbms_stats.gather_table_stats(ownname => 'HR',tabname => 'REGIONS',estimate_percent => 20,cascade => TRUE,force =>TRUE);
SP2-0734: 未知的命令开头 "dbms_stats..." - 忽略了剩余的行。
SQL> begin dbms_stats.gather_table_stats(ownname => 'HR',tabname => 'REGIONS',estimate_percent => 20,cascade => TRUE,force =>TRUE) e
nd;
  2  /
begin dbms_stats.gather_table_stats(ownname => 'HR',tabname => 'REGIONS',estimate_percent => 20,cascade => TRUE,force =>TRUE) end;
                                                                                                                              *
第 1 行出现错误:
ORA-06550: 第 1 行, 第 127 列:
PLS-00103: 出现符号 "END"在需要下列之一时：
:= . ( % ;
符号 ";" 被替换为 "END" 后继续。


已用时间:  00: 00: 00.07
SQL> begin dbms_stats.gather_table_stats(ownname => 'HR',tabname => 'REGIONS',estimate_percent => 20,cascade => TRUE,force =>TRUE);
end;
  2  /

PL/SQL 过程已成功完成。

已用时间:  00: 00: 00.62
SQL> create or replace procedure benben
  2  as
  3     vSqlStatement varchar2(10000);
  4
  5     cursor cur_gather_tab_statistics is
  6       select 'begin dbms_stats.gather_table_stats(ownname => ''' || owner ||
  7              ''',tabname => ''' || segment_name ||
  8              ''',estimate_percent => 20,cascade => TRUE,force => TRUE); end;'
  9         from dba_segments
10       where segment_type = 'TABLE'
11         and owner in ('HR');
12
13  begin
14
15    open cur_gather_tab_statistics;
16    fetch cur_gather_tab_statistics into vSqlStatement;
17    while cur_gather_tab_statistics%found loop
18    dbms_output.put_line(vSqlStatement);
19      execute immediate vSqlStatement;
20      fetch cur_gather_tab_statistics into vSqlStatement;
21    end loop;
22    close cur_gather_tab_statistics;
23
24  end;
25  /

过程已创建。

已用时间:  00: 00: 00.03
SQL> exec benben

newkid

这是动态PLSQL不是动态SQL, 所以要构造匿名块，即放在BEGIN END; 之间。

lastwinner

〇〇 发表于 2017-1-11 21:27
在dbms_stat语句前加begin 后加end;
SQL> dbms_stats.gather_table_stats(ownname => 'HR',tabname => 'RE ...

你前面一段漏掉分号的代码没必要贴出来啊

aniven

1. SQL> declare
   
2.   2    vsqlstatement varchar2(10000);
   
3.   3    cursor cur_gather_tab_statistics is
   
4.   4      select 'dbms_stats.gather_table_stats(ownname => ''' || owner ||
   
5.   5             ''',tabname => ''' || segment_name ||
   
6.   6             ''',estimate_percent => 20,cascade => TRUE,force => TRUE);'
   
7.   7        from dba_segments
   
8.   8       where segment_type = 'TABLE'
   
9.   9         and segment_name = 'ACCES'
   
10. 10         and owner in ('TEST');
    
11. 11  begin
    
12. 12    open cur_gather_tab_statistics;
    
13. 13    fetch cur_gather_tab_statistics
    
14. 14      into vsqlstatement;
    
15. 15    while cur_gather_tab_statistics%found loop
    
16. 16      execute immediate vsqlstatement;
    
17. 17      fetch cur_gather_tab_statistics
    
18. 18        into vsqlstatement;
    
19. 19    end loop;
    
20. 20    close cur_gather_tab_statistics;
    
21. 21  end;
    
22. 22  /
    
23. declare
    
24. *
    
25. 第 1 行出现错误:
    
26. ORA-00900: 无效 SQL 语句
    
27. ORA-06512: 在 line 16
    
28. 
    
29. SQL>

复制代码

没法贴图，这是我的运行结果，从 bell 回复里拷贝的，为了防止表太多就加了个条件取一个表，不管是过程里还是SqlPlus里，都是一样的结果。

首先，肯定不是权限问题，我用的是SYS，而且生成的语句在sqlplus是可以单独运行的:
exec dbms_stats.gather_table_stats(ownname => 'TEST',tabname =>'ACCES',estimate_percent => 20,cascade => TRUE,force => TRUE);
结果是：PL/SQL 过程已成功完成。

还要确保TEST用户中有表，否则过程里执行不到execute immediate这句，就不会报错。

aniven

改成
execute immediate 'begin ' || vsqlstatement || 'end;';
之后成功了。

〇〇

aniven 发表于 2017-1-12 08:46
改成
execute immediate 'begin ' || vsqlstatement || 'end;';
之后成功了。

sqlplus的exec命令就是外面套一个begin end

〇〇

lastwinner 发表于 2017-1-11 14:43
错误是啥？
不过看7楼的吧，我们自己写代码也是7楼那样就行

剑破里就有动态pl/sql例子

〇〇

〇〇 发表于 2017-1-12 10:12
sqlplus的exec命令就是外面套一个begin end

SQL> exec execute immediate 'select * from dual' into a;
BEGIN execute immediate 'select * from dual' into a; END;

                                                  *
第 1 行出现错误:
ORA-06550: 第 1 行, 第 51 列:
PLS-00201: 必须声明标识符 'A'
ORA-06550: 第 1 行, 第 7 列:
PL/SQL: Statement ignored

Naldonado

newkid 发表于 2017-1-11 22:59
这是动态PLSQL不是动态SQL, 所以要构造匿名块，即放在BEGIN END; 之间。

楼主可以结帖了，标准答案在这里。别人再看到就可以不用爬楼了。