Oracle PLSQL 无效游标错误我不明白
Posted
技术标签:
【中文标题】Oracle PLSQL 无效游标错误我不明白【英文标题】：Oracle PLSQL invalid cursor error I don't understand 【发布时间】：2018-01-20 23:59:34 【问题描述】：在 PL/SQL 方面我还是个新手。
在 Linux RHEL 6.8 上使用 Oracle 12c，以下 shell 脚本将尝试激活表集合中的所有 RI 约束，如果它们因父键失败而失败，它将转储表的前 100 行（或更少）违规数据。或者至少这是目标。由于该脚本主要处理 12c 上的系统表（只有一个小的用户表列表，这是我的安装所独有的），所以我完全从我的环境中包含了整个内容。
主要工作发生在异常处理中，其中查询系统表的约束，并从这些数据形成用户查询。
作为一个额外的目标，输出相当混乱，我想清理它，但首先它必须工作:)
我的表格的输出/错误如下：
此处对表 NRNG_MTC_VST 约束名称进行错误处理： SYS_C0011790 最终 SQL = SELECT DISTINCT NRNG_MTC_VST.LOG_CRT_DT ， NRNG_MTC_VST.NRRNG_MTC_LG_ID 来自 ODB_PRIMARY.NRNG_MTC_VST 哪里没有 存在（从 ODB_PRIMARY.NRNG_MTC_LOG 中选择 1 NRNG_MTC_VST.LOG_CRT_DT = NRNG_MTC_LOG.LOG_CRT_DT 和 NRNG_MTC_VST.NRRNG_MTC_LG_ID = NRNG_MTC_LOG.NRRNG_MTC_LG_ID) FETCH 仅限前 100 行 ---xxx 结束 SQL DECLARE * 第 1 行出现错误：ORA-01001：无效游标 ORA-06512：第 111 行 ORA-02298：无法验证 (ODB_PRIMARY.SYS_C0011790) - 父键 没找到
我的 print_line 的输出 SQL 是正确的，如果直接粘贴到 SQLDeveloper 会话中就可以工作。我不明白光标的定义方式有点愚蠢。
脚本的全文。 BYW，如果您看到其他与错误无关的愚蠢更改，请也提出建议。
cd $OGGHOME/scripts
export ORACLE_SID=odbod07 $ORACLE_HOME/bin/sqlplus <<-EOF / as sysdba
alter session set container=p01_odbod07;
set echo on set feedback on
set heading off
set serveroutput on size 10000
DECLARE finalsql varchar2(2048);
part1sql varchar2(1024) ;
part2sql varchar2(1024) := ' ';
cownername varchar2(1024);
ctablename varchar2(1024);
pownername varchar2(1024);
ptablename varchar2(1024);
cnt number := 0;
-- Weak cursor defs
my_cursor sys_refcursor;
BEGIN FOR i in (
select owner, table_name, constraint_name
from dba_constraints
where constraint_type = 'R'
and status = 'DISABLED'
and owner = 'ODB_PRIMARY'
and TABLE_NAME in
-- enter user tables with RI constraints here
('RRNG_MTC_STN_CPLY',
'NRNG_MTC_VST_MTRL_USG',
'NRNG_MTC_VST',
'CAR_CORE',
'NRNG_MTC_LOG'))
-- end user table definitions, rest of code should rely only on system tables
LOOP BEGIN
dbms_output.put_line('alter table '||i.owner|| '.' ||
i.table_name || ' enable constraint '||i.constraint_name);
execute immediate 'alter table '||i.owner|| '.' ||
i.table_name || ' enable constraint '||i.constraint_name;
EXCEPTION
-- exception handling - dump offending data
WHEN OTHERS THEN -- take all exceptions for now
dbms_output.put_line ('ERROR Handling here for table ' ||
i.table_name || ' Constraint Name: ' ||i.constraint_name);
finalsql := 'SELECT DISTINCT ';
part1sql := '';
part2sql := ' ';
cnt := 0;
for constraint in (
SELECT ucc1.OWNER as childowner,
ucc1.TABLE_NAME as childtable,
ucc1.column_name as childcolumn,
ucc2.OWNER as parentowner,
ucc2.TABLE_NAME as parenttable,
ucc2.column_name as parentcolumn,
utc1.data_type as childdatatype,
utc1.data_length as childdatalen
FROM all_constraints uc ,
all_cons_columns ucc1 ,
all_cons_columns ucc2,
all_tab_columns utc1
WHERE
uc.constraint_name = ucc1.constraint_name
AND uc.r_constraint_name = ucc2.constraint_name
AND ucc1.POSITION = ucc2.POSITION
AND ucc1.table_name = utc1.table_name
AND ucc1.column_name = utc1.column_name
AND uc.constraint_type = 'R'
AND uc.constraint_name = i.constraint_name
ORDER BY ucc1.TABLE_NAME , uc.constraint_name)
loop
cownername := constraint.childowner;
ctablename := constraint.childtable;
pownername := constraint.parentowner;
ptablename := constraint.parenttable;
if cnt > 0 then
part1sql := part1sql || ' , ';
part2sql := part2sql || ' AND ';
end if;
part1sql := part1sql || constraint.childtable ||
'.'||constraint.childcolumn || ' ';
part2sql := part2sql || constraint.childtable || '.'
|| constraint.childcolumn || ' = '
|| constraint.parenttable || '.' ||
constraint.parentcolumn;
cnt := cnt + 1;
end loop;
finalsql := finalsql || part1sql ||
' FROM ' || ' ' || cownername ||
'.' || ctablename ||
' WHERE NOT EXISTS (SELECT 1 FROM ' ||
pownername || '.' || ptablename ||
' WHERE ' || part2sql || ') FETCH FIRST 100 rows only';
dbms_output.put_line ('Final SQL = ' || finalsql);
dbms_output.put_line ('---xxx End SQL');
open my_cursor for finalsql;
dbms_sql.return_result(my_cursor);
close my_cursor;
-- EXECUTE IMMEDIATE finalsql;
END;
end loop; end;
/
EOF
非常感谢您提供的任何帮助。 布赖恩
【问题讨论】：
【参考方案1】：只是将其缩小到simple test case，我认为这是您看到的错误：
declare
my_cursor sys_refcursor;
begin
open my_cursor for 'select ''Hello, world'' as message from dual';
dbms_sql.return_result(my_cursor);
close my_cursor; -- << Remove this line
end;
/
ERROR at line 1:
ORA-01001: invalid cursor
ORA-06512: at line 6
这是因为当您已经将光标传递给dbms_sql 进行处理时，您试图关闭它。删除带有close my_cursor 的行。
declare
my_cursor sys_refcursor;
begin
open my_cursor for 'select ''Hello, world'' as message from dual';
dbms_sql.return_result(my_cursor);
end;
/
PL/SQL procedure successfully completed.
ResultSet #1
MESSAGE
------------
Hello, world
1 row selected.
【讨论】：
您已经从技术上解决了我遇到的直接问题。然而，我发现这并没有解决我的业务需求。我不得不进一步进入 dbms_sql 领域。请参阅下面我完成的脚本。【参考方案2】：I had same kind of issue when i tried to print Ref_cursor directly. Then i created a Record type variable and then fetched field values in that variable and then i used DBMS_OUTPUT for that record type variable.
Please see if below code and scenario can help you-
set serveroutput on;
declare
v_sql varchar2(1000);
v_cursor sys_refcursor;
type myrec is record(col1 varchar2(100),col2 varchar2(1000));
rec myrec;
begin
v_sql:='select name,status from t_employee where user_id in (''C001117'',''C001122'')';
open v_cursor for v_sql;
loop
fetch v_cursor
into rec;
exit when v_cursor%notfound;
dbms_output.put_line( rec.col1||':status '||rec.col2 );
end loop;
end;
/
【讨论】：
我认为您在正确的轨道上，但缺少一个关键要素。直到运行时我才知道要为多少列定义一条记录。我想我需要关闭这个问题并将其简化为这个问题。【参考方案3】：以下是我的半完整脚本。给定一个表列表，它将尝试激活 RI 约束，如果它们失败，它将打印出子表中阻止应用它的 FK 数据记录。
这个项目最困难的部分是 FK 可以是任意数量的列和任意类型，因此在这种情况下打印选择的结果非常棘手 (IMO)。
感谢人们提供的帮助。
cd $OGGHOME/scripts
. ./functions.sh
$ORACLE_HOME/bin/sqlplus $ORACLE_USERID/$ORACLE_PASSWORD@$ORACLE_SID << EOF
set echo on
set feedback on
set heading off
set serveroutput on size unlimit
DECLARE
finalsql varchar2(2048);
part1sql varchar2(1024) ;
part2sql varchar2(1024) := ' ';
cownername varchar2(1024);
ctablename varchar2(1024);
pownername varchar2(1024);
ptablename varchar2(1024);
cnt number := 0;
desc_tab dbms_sql.desc_tab;
col_count INTEGER;
cursor_name INTEGER;
-- Weak cursor defs
my_cursor sys_refcursor;
col1 varchar2(50);
d number;
j number;
lineout varchar2(2048);
plineout varchar2(2048);
rows number;
eCount number := 0;
BEGIN
FOR i in (
select owner, table_name, constraint_name
from dba_constraints
where constraint_type = 'R'
and status = 'DISABLED'
and owner = '$DBSCHEMA'
and TABLE_NAME in (
'RRNG_MTC_STN_CPLY',
'NRNG_MTC_VST_MTRL_USG',
'NRNG_MTC_VST',
'MTC_TSK_HRHY'))
LOOP
BEGIN
dbms_output.put_line ('.');
dbms_output.put_line ('=====================================');
dbms_output.put('alter table '||i.owner|| '.' || i.table_name || ' enable constraint '||i.constraint_name);
execute immediate 'alter table '||i.owner|| '.' || i.table_name || ' enable constraint '||i.constraint_name;
dbms_output.put_line (' ... SUCCESS');
EXCEPTION -- exception handling - dump offending data
WHEN OTHERS THEN
eCount := eCount + 1;
dbms_output.put_line (' ... FAILED. Constraint Name: ' || i.constraint_name);
finalsql := 'SELECT DISTINCT ';
part1sql := '';
part2sql := ' ';
cnt := 0;
for constraint in (
SELECT ucc1.OWNER as childowner,
ucc1.TABLE_NAME as childtable,
ucc1.column_name as childcolumn,
ucc2.OWNER as parentowner,
ucc2.TABLE_NAME as parenttable,
ucc2.column_name as parentcolumn,
utc1.data_type as childdatatype,
utc1.data_length as childdatalen
FROM all_constraints uc ,
all_cons_columns ucc1 ,
all_cons_columns ucc2,
all_tab_columns utc1
WHERE
uc.constraint_name = ucc1.constraint_name
AND uc.r_constraint_name = ucc2.constraint_name
AND ucc1.POSITION = ucc2.POSITION
AND ucc1.table_name = utc1.table_name
AND ucc1.column_name = utc1.column_name
AND uc.constraint_type = 'R'
AND uc.constraint_name = i.constraint_name
ORDER BY ucc1.TABLE_NAME ,
uc.constraint_name)
loop
cownername := constraint.childowner;
ctablename := constraint.childtable;
pownername := constraint.parentowner;
ptablename := constraint.parenttable;
if cnt > 0 then
part1sql := part1sql || ' , ';
part2sql := part2sql || ' AND ';
end if;
part1sql := part1sql || constraint.childtable || '.' || constraint.childcolumn || ' ';
part2sql := part2sql || constraint.childtable || '.' || constraint.childcolumn || ' = '
|| constraint.parenttable || '.' || constraint.parentcolumn;
cnt := cnt + 1;
end loop;
finalsql := finalsql || part1sql || ' FROM ' || ' ' || cownername || '.' || ctablename || ' WHERE NOT EXISTS (SELECT 1 FROM ' ||
pownername || '.' || ptablename || ' WHERE ' || part2sql || ') FETCH FIRST 100 rows only';
dbms_output.put_line ('Final SQL = (' || finalsql || ')');
-- dbms_output.put_line ('---xxx End SQL');
lineout := 'Child Table: ' || ctablename || '(';
plineout := 'Parent Table: ' || ptablename;
cursor_name := dbms_sql.open_cursor;
dbms_sql.PARSE (cursor_name, finalsql, DBMS_SQL.NATIVE);
d := dbms_sql.execute (cursor_name);
dbms_sql.describe_columns (cursor_name, col_count, desc_tab);
for j in 1..col_count
LOOP
DBMS_SQL.DEFINE_COLUMN (cursor_name, j, col1, 30);
lineout := lineout || desc_tab(j).col_name || ' , ';
-- plineout := plineout || constraint.parentcolumn || ' ';
-- dbms_output.put_line ('Column 1: ' || j || ' is ' || desc_tab(j).col_name || ' type '
-- || desc_tab(j).col_type);
END LOOP j;
lineout := lineout || ')';
-- plineout := plineout || ')';
dbms_output.put_line (lineout);
dbms_output.put_line (plineout);
lineout := NULL;
for j in 1..col_count
LOOP
if j > 1 then
lineout := lineout || ' ';
end if;
lineout := lineout || desc_tab(j).col_name;
END LOOP;
dbms_output.put_line (lineout);
dbms_output.put_line ('----------------------------------------');
LOOP
rows := dbms_sql.fetch_rows (cursor_name);
EXIT WHEN rows = 0;
lineout := NULL;
for j in 1..col_count
LOOP
dbms_sql.column_value (cursor_name, j, col1);
if j > 1 then
lineout := ltrim(lineout || ' ' || col1);
else
lineout := col1;
END IF;
END LOOP;
dbms_output.put_line (lineout);
END LOOP;
dbms_sql.close_cursor (cursor_name);
END;
end loop;
end;
/
EOF
【讨论】：
【参考方案4】：您的FETCH FIRST 100 rows only 似乎不合适。
这是 PL/SQL 中 SELECT 语句中的 BULK COLLECT 子句的一部分；据我所知，它不是 SQL 语句的一部分，您可以像这样传递给游标
这导致游标语句无效
【讨论】：
当我删除 FETCH FIRST 子句时，它仍然出错。当我开始更多地寻找错误时，我确定 CLOSE 语句实际上是错误所在。通过删除关闭电话，它实际上可以工作。但结果是所有诊断信息都打印在结果输出上方，因此很难将表与正在运行的查询的数据行关联起来。为什么close call无效？这是另一个谜。 奇怪，当我测试这个版本时，它在打开游标子句时出错。可能 return_result 正在关闭游标，因此显式关闭游标不再有效。我没有方便的 v12 来检查这个。 我认为我使用 dbms_sql.return_result 行不正确地混合了 PLSQL 游标和 DBMS 游标。当我删除那条线时，关闭线就起作用了。所以我需要弄清楚如何将动态sql的光标结果打印回屏幕。fetch first 100 rows only 是完全有效的 SQL，尽管伴随着 order by 会更有意义。
此外，如果动态 SQL 中存在语法错误，则错误消息将反映这一点，而不是“无效游标”。以上是关于Oracle PLSQL 无效游标错误我不明白的主要内容，如果未能解决你的问题，请参考以下文章
ucanaccess SQL 异常：游标状态无效：已识别游标未打开
Java 技术篇 - 连接oracle数据库执行sql使用close()关闭createStatement()无效无法清除游标缓存问题解决，报“ORA-01000: 超出打开游标的最大数“错误解决方法