一个简单的存储过程报错，原因未知！

Question

这个存储过程编译通过了，但是执行时出错：create or replace procedure add_id2(var0 in varchar) as
  var_id varchar2(100);
  var2   number(10);
  pvar2 varchar2(100);
  
  type cursor_t is ref cursor;
  c_emp cursor_t ;
begin
var2:=1;OPEN c_emp FOR 'SELECT rowid FROM '||var0;
  LOOP
    FETCH c_emp
      INTO var_id;
      pvar2:='update '||var0||' set id = lpad(to_char('||var2||'),10,'||'0'||') where rowid= '||var_id;
   execute immediate pvar2;
    var2 := var2 +1;
    EXIT WHEN c_emp%NOTFOUND;
  END loop;
  CLOSE c_emp;commit;
end add_id2;
 
SQL> exec add_id2('test2');
 
begin add_id2('test2'); end;
 
ORA-00904: "AAAMS1AAEAAAAIUAAA": 标识符无效
ORA-06512: 在 "NM_NXT1.ADD_ID2", line 22
ORA-06512: 在 line 2
其实我的第一行rowid是这样的：AAAMs1AAEAAAAIUAAA但是不知道为什么都变成了大写，我的过程里没转换啊！这个问题怎么解决啊，谢谢各位了先！

Answer 1

rowid= '||'''' || var_id || '''

Answer 2

create or replace procedure add_id2(var0 in varchar) as 
  var_id rowid; --类型定义错了
  var2  number(10); 
  pvar2 varchar2(100); 
  
  type cursor_t is ref cursor; 
  c_emp cursor_t ; 
begin 
var2:=1; OPEN c_emp FOR 'SELECT rowid FROM '||var0; 
  LOOP 
    FETCH c_emp 
      INTO var_id; 
      pvar2:='update '||var0||' set id = lpad(to_char('||var2||'),10,'||'0'||') where rowid= '||var_id; 
  execute immediate pvar2; 
    var2 := var2 +1; 
    EXIT WHEN c_emp%NOTFOUND; 
  END loop; 
  CLOSE c_emp; commit; 
end add_id2; 

Answer 3

还是不行啊，仍然报那个错：
SQL> exec add_id2('test2');
 
begin add_id4('test2'); end;
 
ORA-00904: "AAAMS1AAEAAAAIUAAA": 标识符无效
ORA-06512: 在 "NM_NXT1.ADD_ID2", line 20
ORA-06512: 在 line 2
 

Answer 4

照这个朋友改后：
create or replace procedure add_id4(var0 in varchar) as 
  var_id rowid; --类型定义错了
  var2  number(10); 
  pvar2 varchar2(100); 
  
  type cursor_t is ref cursor; 
  c_emp cursor_t ; 
begin 
var2:=1; OPEN c_emp FOR 'SELECT rowid FROM '||var0; 
  LOOP 
    FETCH c_emp 
      INTO var_id; 
      pvar2:='update '||var0||' set id = lpad(to_char('||var2||'),10,'||'0'||') where rowid='||'''' || var_id || ''' ; 
  execute immediate pvar2; 
    var2 := var2 +1; 
    EXIT WHEN c_emp%NOTFOUND; 
  END loop; 
  CLOSE c_emp; commit; 
end add_id4;
报这个错： 
SQL> exec add_id4('test2');
 
begin add_id4('test2'); end;
 
ORA-06550: 第 2 行, 第 7 列: 
PLS-00905: 对象 NM_NXT1.ADD_ID4 无效
ORA-06550: 第 2 行, 第 7 列: 
PL/SQL: Statement ignored

Answer 5

奇怪了我这里就可以
SQL> ed
已写入文件 afiedt.buf  1  declare
  2  aa rowid;
  3  i number;
  4  begin
  5   select rowid into aa from a where rownum=1;
  6   select count(1) into i from a where rowid=aa;
  7* end;
SQL> /PL/SQL 过程已成功完成。SQL> 

Answer 6

  1  declare
  2  aa rowid;
  3  i number;
  4  begin
  5   select rowid into aa from a where rownum=1;
  6   select count(1) into i from a where rowid=aa;
  7   dbms_output.put_line(i);
  8* end;
SQL> /PL/SQL 过程已成功完成。SQL> set serveroutput on
SQL> /
1PL/SQL 过程已成功完成。SQL> 

Answer 7

又试了试，变成动态sql的时候确实又报错了。
好像又给转成char了

Answer 8

这个过程还是 编译成功，执行错误！
create or replace procedure add_id4(var0 in varchar) as
  var_id rowid; --类型定义错了
  var2  number(10);
  pvar2 varchar2(100);  type cursor_t is ref cursor;
  c_emp cursor_t ;
begin
var2:=1;OPEN c_emp FOR 'SELECT rowid FROM '||var0;
  LOOP
    FETCH c_emp
      INTO var_id;
      pvar2:='update '||var0||' set id = lpad('||var2||',10,'||'0'||') where rowid='|| var_id ;
  execute immediate pvar2;
    var2 := var2 +1;
    EXIT WHEN c_emp%NOTFOUND;
  END loop;
  CLOSE c_emp;commit;
end add_id4;报错！
SQL> exec add_id4('test2')
 
begin add_id4('test2'); end;
 
ORA-00904: "AAAMS1AAEAAAAIUAAA": 标识符无效
ORA-06512: 在 "NM_NXT1.ADD_ID4", line 20
ORA-06512: 在 line 2
谁知到这是为什么？

Answer 9

create or replace procedure add_id2(var0 in varchar) as 
  var_id rowid; --类型定义错了
  var2  number(10); 
  pvar2 varchar2(100); 
  
  type cursor_t is ref cursor; 
  c_emp cursor_t ; 
begin 
var2:=1; OPEN c_emp FOR 'SELECT rowid FROM '||var0; 
  LOOP 
    FETCH c_emp 
      INTO var_id; 
      pvar2:='update '||var0||' set id = lpad(to_char('||var2||'),10,'||'0'||') where rowid= '||var_id; 
  execute immediate pvar2; 
    var2 := var2 +1; 
    EXIT WHEN c_emp%NOTFOUND; 
  END loop; 
  CLOSE c_emp; commit; 
end add_id2; 

Answer 10

一开始就给你答案了.CREATE TABLE t2 (ID NUMBER, qty NUMBER);INSERT INTO t2 VALUES (1,1);DECLARE
row_id VARCHAR2(100);
l_sql  VARCHAR2(200);
BEGIN
SELECT ROWIDTOCHAR(ROWID)
INTO row_id
FROM t2
WHERE ROWNUM=1;
l_sql := 'update t2 set qty=2 where rowid=chartorowid('''||row_id||''')';
EXECUTE IMMEDIATE(l_sql);
END;

Answer 11

谢谢14楼的朋友，jojoandy ，你的写法解决了我的问题，关键是chartorowid('''||row_id||''')';
 
谢谢！