错误：PL SQL 包中不存在表或视图

Posted 2023-03-27

【中文标题】错误：PL SQL 包中不存在表或视图

【英文标题】：Error: Table or view does not exist in PL SQL package

【发布时间】：2019-11-11 05:39:30

【问题描述】：

我在模式“A”中有一个名为“S_PKG”的包。我想将它迁移到模式 B。我所做的是复制代码并在 B 模式中执行。然后我想执行以下 pl sql 脚本，其中在模式 B 中使用了“S_PKG”。

select to_char(sysdate,'YYYYMMDD - HH:MI:SS AM') date_time
from dual
/
insert into zzz_ccc
select zzz_ccc_seq.nextval,to_char(sysdate,'YYYYMMDD - HH:MI:SS AM'),
'Start S Load tab',8,user,(select * from global_name)
from dual
/
commit
/
insert into zzz
select zzz_seq.nextval,to_char(sysdate,'YYYYMMDD - HH:MI:SS AM'),
'Start S Load tab',
(select trim(ruser)||' '||trim(rdbase)
from zzz_ccc where ss = 8
and rr = (select max(rr) from zzz_ccc where ss = 8)),
null,null,null,null,null,null,
(select max(rr) from zzz_ccc where ss = 8)
from dual 
/
commit
/
DECLARE
  PV_PRD_ID VARCHAR2(5);
BEGIN
  PV_PRD_ID := '3';
  B.S_PKG.PR_MAIN (PV_PRD_ID);
  COMMIT; 
END; 
/
commit
/
insert into tab_counts(created_dtm,
ora_database,ora_user,ora_table,cc,flg,
subj)
select sysdate,'ccenter','aim10_ccenter','s_package_run - rows',
no_of_rows,1,
'S Load Tab Run'
from s_package_run
where to_char(st_date,'YYYYMM-DD') = to_char(sysdate,'YYYYMM-DD')
and package_name = 'LOAD_TAB'
/
commit
/
insert into tab_counts(created_dtm,
ora_database,ora_user,ora_table,cc,flg,
subj)
select sysdate,'ccenter','aim10_ccenter','s_package_run - dur_min',
dur_min,2,
'S Load Tab Run'
from s_package_run
where to_char(st_date,'YYYYMM-DD') = to_char(sysdate,'YYYYMM-DD')
and package_name = 'LOAD_TAB'
/
insert into hrc_chk_mar14_24_1
select sysdate, 'B', 'COUNT 6   ', 's_load_tab',
null,null,null,null
from dual t1
/
insert into zzz
select zzz_seq.nextval,to_char(sysdate,'YYYYMMDD - HH:MI:SS AM'),
'End S Load tab',
(select trim(ruser)||' '||trim(rdbase)
from zzz_ccc where ss = 8
and rr = (select max(rr) from zzz_ccc where ss = 8)),
null,null,
null,null,null,null,
(select max(rr) from zzz_ccc where ss = 8)
from dual 
/
commit
/

然后我得到以下错误。

ORA-00942：表或视图不存在 ORA-06512：在“B.S_PKG”，第 109 行 ORA-06512：在“B.S_PKG”，第 35 行 ORA-06512: 在第 5 行

然后我搜索了包裹。但我找不到给我错误的确切表格。这是我的包裹。

CREATE OR REPLACE PACKAGE BODY B.S_PKG is


PROCEDURE PR_Main(kseq number) IS
sql_stmnt varchar2(5000);
begin

select s_pkg_seq.nextval into dd from dual;

pkg_st_date := sysdate;

sql_stmnt:='truncate table s_msgs';

execute immediate sql_stmnt;


begin
for c_rec in (select * from s_test_1 where pkg_seq = kseq and
flg = 'as' order by pkg_ord)
loop
   if substr(c_rec.run_sql,1,1) != '-' then
   pkg_name :=  c_rec.run_sql;
   PR_Msgs('*** '||c_rec.run_sql||' Started...', pkg_name||'.'||'pr_main');
   else
   PR_Msgs(c_rec.run_sql, pkg_name||'.'||'pr_main');
   end if;
   insert into s_test_3
   values(sysdate,c_rec.run_sql,c_rec.pkg_seq,c_rec.pkg_ord,c_rec.prc_seq);
end loop;
end;


PR_LOAD_PRODUCT3(1,kseq);

PR_LOAD_PRODUCT3(2,kseq);

PR_LOAD_PRODUCT3(3,kseq);

PR_LOAD_PRODUCT3(4,kseq);

PR_LOAD_PRODUCT3(5,kseq);

PR_LOAD_PRODUCT3(6,kseq);

PR_LOAD_PRODUCT3(7,kseq);

PR_LOAD_PRODUCT3(8,kseq);

PR_LOAD_PRODUCT3(9,kseq);

PR_LOAD_PRODUCT3(10,kseq);

PR_LOAD_PRODUCT3(11,kseq);


begin
for c_rec in (select * from s_test_1 where pkg_seq = kseq and
flg = 'ae' order by pkg_ord)
loop
   if substr(c_rec.run_sql,1,1) != '-' then
   PR_Msgs('*** '||c_rec.run_sql||' End OK...', pkg_name||'.'||'pr_main');
   else
   PR_Msgs(c_rec.run_sql, pkg_name||'.'||'pr_main');
   end if;
   insert into s_test_3
   values(sysdate,c_rec.run_sql,c_rec.pkg_seq,c_rec.pkg_ord,c_rec.prc_seq);
end loop;
end;

sql_stmnt:='insert into s_msgs_his select * from s_msgs where msg_ord > 0';

execute immediate sql_stmnt;

pkg_en_date := sysdate;

insert into s_package_run values (pkg_st_date,pkg_en_date,floor((pkg_en_date-pkg_st_date)*24*60),
(pkg_en_date-pkg_st_date)*24*60*60 - floor((pkg_en_date-pkg_st_date)*24*60)*60,gv_count,
pkg_name,null,dd);


end;

-- ==============================================================================================
-- ==============================================================================================

PROCEDURE PR_LOAD_PRODUCT3(pseq number, tseq number) is
sql_stmnt VARCHAR2(5000);
begin

prc_st_date := sysdate;

begin
for c_rec in (select * from s_test_1 where pkg_seq = tseq and
prc_seq = pseq and flg = 'bs' order by pkg_ord)
loop
   prc_name :=  c_rec.run_sql;
   PR_Msgs(c_rec.run_sql||' Started...', pkg_name||'.'||'pr_main');
   insert into s_test_3
   values(sysdate,c_rec.run_sql,c_rec.pkg_seq,c_rec.pkg_ord,c_rec.prc_seq);
end loop;
end;

begin
for c_rec in (select * from s_test_1 where pkg_seq = tseq and
prc_seq = pseq and flg = 'aa' order by pkg_ord)

loop
     sql_stmnt := c_rec.run_sql;
     execute immediate sql_stmnt;
     insert into s_test_3
     values(sysdate,c_rec.run_sql,c_rec.pkg_seq,c_rec.pkg_ord,c_rec.prc_seq);
end loop;
end;

begin
for c_rec in (select * from s_test_1 where pkg_seq = tseq and
prc_seq = pseq and flg = 'be' order by pkg_ord)
loop
   if substr(c_rec.run_sql,1,1) != '-' then
   PR_Msgs(c_rec.run_sql||' End OK...', pkg_name||'.'||'pr_main');
   else
   PR_Msgs(c_rec.run_sql, pkg_name||'.'||'pr_main');
   end if;
   insert into s_test_3
   values(sysdate,c_rec.run_sql,c_rec.pkg_seq,c_rec.pkg_ord,c_rec.prc_seq);
end loop;
end;


select cc into gv_count
from cr2_test_2;

prc_en_date := sysdate;

insert into s_procedure_run values (prc_st_date,prc_en_date,floor((prc_en_date-prc_st_date)*24*60),
(prc_en_date-prc_st_date)*24*60*60 - floor((prc_en_date-prc_st_date)*24*60)*60,gv_count,
prc_name,pkg_name,dd);

end;

-- ==============================================================================================
-- ==============================================================================================

PROCEDURE PR_Msgs(pv_msg varchar2, pv_point varchar2) as
cc number(5);
Begin


select s_pkg2_seq.nextval into cc from dual;

insert into s_msgs values (sysdate, pv_msg, pv_point, user, '','',cc);
commit;

End;

-- ==============================================================================================
-- ==============================================================================================


END S_PKG;
/

由于我是 PL SQL 包的新手，谁能帮我找出错误？

【问题讨论】：

你不应该在CREATE OR REPLACE PACKAGE BODY A.S_PKG中声明A吗？

然后我得到权限不足的错误。我创建包的方式不对吗？

【参考方案1】：

据我所知，如果你在以用户B连接时编译包并且成功，那么当时唯一的“未知”信息是这样的：

sql_stmnt:='truncate table s_msgs';

即您正在使用动态 SQL 截断的表。 sql_stmnt 的值是一个字符串，编译器不会检查其中的内容。但是，当您真正执行它时，它会发现用户 B 的架构中没有表 s_msgs。

同样的道理

sql_stmnt:='insert into s_msgs_his select * from s_msgs where msg_ord > 0';

还有表s_msgs_his。

当您将所有内容从 A 移动到 B 时，我想您应该对这些表执行相同的操作。这样做，然后尝试再次运行您的代码。

[编辑]

这是第 109 行：

for c_rec in (select * from s_test_1 where pkg_seq = tseq and
prc_seq = pseq and flg = 'aa' order by pkg_ord)

loop
     sql_stmnt := c_rec.run_sql;
     execute immediate sql_stmnt;         --> line 109

检查S_TEST_1 中写的内容。看起来像是一些应该动态执行的语句，但是 - 涉及到它的表在模式 B 中不存在（或者该用户没有使用它的权限）。

【讨论】：

我在 B 模式中创建了相同的 2 个表。但问题依然存在

啊哈。我应该更仔细地阅读这个问题。我编辑了我的答案，请看一下。

感谢您的提示。这段代码不是我写的。据我了解，'c_rec.run_sql' 是一个程序。 's_test_1' 包含 sql 语句，例如 'drop table x' 等。但有些表（例如：x）不在 B 模式中。是问题还是我执行包时应该创建这些表？

c_rec.run_sql 中存储的任何命令都会在运行时导致错误。您需要检查失败的命令是什么。

RMD，你现在离你更近了。 C_REC.RUN_SQL 不是一个过程。 C_REC 是一个游标变量，而 RUN_SQL 是 S_TEST_1 表中的一列，但是是的——我想你明白了。为了找出罪魁祸首，请将其作为循环中的第一条语句：dbms_output.put_line('executing ' || c_rec.run_sql);，因为它将显示该语句。如果它失败了，您将能够看到它，并希望能够修复它。