很简单的问一下，100分，就是关于打开CURSOR后，如何在循环，可以处理每一条纪录？

Auto_And_Elec 2003-01-20 03:45:34

DB2 UDB 7.2 , Win2K

我在存储过程中用了Cursor, 当打开Cursor之后，不知道怎么循环去处理每一条纪录，参考书上讲的不多，我根据例子，SQLCODE可以作为一个循环的标记，但是如果用到了几个游标，那么又如何控制循环呢？
比如，代码如下

P1: BEGIN

DECLARE TName VARCHAR(50);
DECLARE Csr_Get Cursor For Select TABNAME From syscat.tables where Definer = 'DB2';
Open Csr_Get;
While (SQLCODE = 0) DO
FETCH Csr_Get INTO :TName;

DECLARE Csr_Format Cursor For Select TYPENAME INTO TypeName
From syscat.column Where TABNAME = TName;
Open Csr_Get;
--这下面又要循环处理每条纪录，但是不能用SQLCODE了，请问该用什么？

END P1

谢谢

...全文

24 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

Forest_Law 2003-01-23

打赏
举报

你去sqllib\smaple\里面看一下sql写的存储过程，十分详细的！

Auto_And_Elec 2003-01-21

打赏
举报

3000sunqin(3000suqnin)大侠

为何我得SQLCODE还需要声明呢？如果没有声明，则不能通过编译。

我如此声明：
Declare SQLCODE INT Default 0;

结构Open Cursor之后， SQLCODE的值也不变了，为何？

3000sunqin 2003-01-21

打赏
举报

在SQL语句执行之后，尽快的检查SQLCODE就可以保证检查到该语句的SQLCode

3000sunqin 2003-01-21

打赏
举报

对不起，看了你的程序觉得是不是抄错了？
While (SQLCODE = 0) DO
FETCH Csr_Get INTO :TName;

DECLARE Csr_Format Cursor For Select TYPENAME INTO TypeName
From syscat.column Where TABNAME = TName;
Open Csr_Get;//?
循环里面再去打开 Csr_Get，是不是错了，应该是Open Csr_Format吧？
程序语句的顺序是不是应该调整一下呢？
P1: BEGIN

DECLARE TName VARCHAR(50);
DECLARE Csr_Get Cursor For Select TABNAME From syscat.tables where Definer = 'DB2';
Open Csr_Get;
IF (SQLCODE<>0) GOTO ERROR1;
FETCH Csr_Get INTO :TName;
While (SQLCODE = 0) DO
DECLARE Csr_Format Cursor For Select TYPENAME
From syscat.column Where TABNAME = TName;
Open Csr_Format;
IF (SQLCODE<>0) GOTO ERROR2;
FETCH Csr_Format INTO :TypeName;
WHILE (SQLCODE=0) DO
......
FETCH Csr_Format INTO :TypeName;
......

FETCH Csr_Get INTO :TName;
......
END P1

3000sunqin 2003-01-21