存储过程中 动态sql的 问题

Rawu

PREPARE <CURSORNAME>; FOR <CURSORSQLSTATMENT>; ;
OPEN <CURSORNAME>;;
....
FETCH ....
ls_stmt = 'DELETE FROM ' || ls_TABLENAME || ' WHERE CURRENT OF <CURSORNAME>;' ;
EXECUTE IMMEDIATE ls_stmt; -- 此处运行时报错

建立时没有报错。但在运行时说 <CURSORNAME>; 未定义。。之前已经定义并成功FETCH了。！
难道DELTE FROM ...WHERE CURRENT OF ... 的语法不能用于动态SQL ？
请赐教 THX

faceDragon

我这里测试了一下没有问题的，应该是你游标定义有不对吧。

Rawu

声明应该没有 问题啊 。 能正常 FETCH  和 用静态的 WHERE CURRENT OF 删除。但一用到 动态sql 就 出现 ‘游标未定义的错误’ 了

Rawu

你能说说你的coding吗? 我的大概 是这个样子 的

DECLARE CUR CURCOR FOR CC;
SET ls_CUR = '...'
PREPARE CUR  FOR ls_CUR ;
OPEN CUR
FETCH ...
-- DELETE FROM XXX WHERE CURRENT OF  CUR ; (成功)
ls_stmt = 'DELETE FROM ' || ls_TABLENAME || ' WHERE CURRENT OF <CURSORNAME>;' ;
EXECUTE IMMEDIATE ls_stmt;  (失败)

faceDragon

你定义的游标的表与delete的表不是同一个吧？

Rawu

是同一个  
其实就想实现一个 分段提交的 删除表的 存储过程

。。

Rawu

顶一下

我的代码, 建立成功, 运行时报错EL_CUR 未定义

1. DROP PROCEDURE sp_DelTable@
   
2. CREATE PROCEDURE sp_DelTable(IN as_TableName VARCHAR(128) ,
   
3.                                                          IN as_Condition VARCHAR(1024) ,                                       
   
4.                                                          IN abi_CommitCount BIGINT,
   
5.                                                          OUT SV_RTNTEXT VARCHAR(128))
   
6. LANGUAGE SQL
   
7. BEGIN
   
8.         DECLARE         sm_End                         SMALLINT  DEFAULT 0;       
   
9.         DECLARE         retcode                         INTEGER DEFAULT 0;        
   
10.         DECLARE  SQLCODE                           INTEGER DEFAULT 0;
    
11.         DECLARE         ls_TableName                 VARCHAR(128);          
    
12.         DECLARE         ls_IntactStmt                 VARCHAR(1308);   
    
13.         DECLARE  ls_DelStmt                        VARCHAR(128);          
    
14.         DECLARE  ls_Stmt                        VARCHAR(128);          
    
15.         DECLARE  CC                        VARCHAR(128);
    
16.         DECLARE         lbi_CommitCount        BIGINT;                 
    
17.         DECLARE  li_tmp                                INTEGER;                                
    
18.         DECLARE  DEL_CUR Cursor For CC;
    
19.        
    
20.         DECLARE CONTINUE HANDLER FOR SQLEXCEPTION, SQLWARNING, NOT FOUND
    
21.         BEGIN                                          
    
22.                 SET sm_End = 1;
    
23.                 SET retcode = SQLCODE;       
    
24.                 SET SV_RTNTEXT = 'retcode = '||char(retcode) ;
    
25.                 RESIGNAL;                   --给调用者发出原错误信息       
    
26.         END;
    
27.         --DECLARE  DEL_CUR Cursor For CC;
    
28. 
    
29.         SET ls_IntactStmt = 'SELECT 1 FROM ' || as_TableName || ' WHERE ' || as_Condition ;
    
30.         PREPARE CC FROM ls_IntactStmt;       
    
31.         OPEN DEL_CUR;
    
32.        
    
33.         SET ls_DelStmt = 'DELETE FROM tb_lane WHERE CURRENT OF DEL_CUR';
    
34.         --PREPARE ls_Stmt from ls_DelStmt;
    
35.                
    
36.         -- del all data loop.
    
37.         Del_Loop:                                                                 
    
38.         Loop
    
39.                 -- when reach the commit count then commit/       
    
40.                 SET lbi_CommitCount = 0 ;       
    
41.                
    
42.                 Commit_Loop:
    
43.                 Loop
    
44.                         Fetch DEL_CUR INTO  li_tmp ;       
    
45.                        
    
46.                         If (sm_End = 1) Then                                
    
47.                                 -- has del all data , go to end                                
    
48.                                 SET sm_End = 0 ;
    
49.                                 Leave Del_Loop ;
    
50.                         End If ;                                       
    
51.                         EXECUTE immediate ls_DelStmt ;                        
    
52.                        
    
53.                         Set lbi_CommitCount = lbi_CommitCount + 1 ;                                                                                                                                                       
    
54.                                 If (lbi_CommitCount = abi_CommitCount) Then
    
55.                                 -- has reached the commit count                                                                                                                                        
    
56.                                 Leave Commit_Loop;
    
57.                         End If ;         
    
58.                 End Loop Commit_Loop;       
    
59.                 COMMIT;       
    
60.         End Loop Del_Loop;       
    
61.         COMMIT;                                                  
    
62.        
    
63.         CLOSE DEL_CUR;
    
64.         set SV_RTNTEXT=ls_DelStmt;
    
65. END@
    

复制代码

Rawu

没有人知道吗 ?? 如果动态sql 不支持 current cursor of  也应该有个定论吧.