请教，一个关于在Pb中用到游标的死循环问题？

[dingzhanxing]

declare cursor1 cursor for
select course,score from stuinfo
where no=:stuno and term ='第一学期';
messagebox("",stuno)
open cursor1;

do while con
fetch cursor1 into :stucourse,:stuscore;

insert into stuscore8(course,score) values (:stucourse,:stuscore);

if sqlca.sqlcode=100 then **


con=false;

end if
loop
大家帮我看一下，在**语句为何没有执行，sqlca.sqlcode=100用这个 语句来判断游标到表尾（即表中再没有符合条件的纪录了），是否正确？？
谢谢各位大虾！！

[huangxinru]

open cursor1;
fetch cursor1 into :stucourse,:stuscore;
do while sqlca.sqlcode = 0
insert into stuscore8(course,score) values (:stucourse,:stuscore);
fetch cursor1 into :stucourse,:stuscore;
loop

[zvanadium]

当 insert into stuscore8(course,score) values (:stucourse,:stuscore) 的时候
sqlca.sqlcode 就会等于 0（插入成功）或 -1 （失败）
所以就死循环。

[zvanadium]

//还有一种方法是直接使用SQL语句，不需要游标
insert into stuscore8(course,score)
select course,score from stuinfo
where no=:stuno and term ='第一学期';

if sqlca.sqlcode = 0 then
commit;
else
rollback;
end if

[robert126]

支持使用sql语句，虽然麻烦但是很有效

[wscft]

建议照一楼的方法修改,
先 fetch 数据
再看看 sqlcode 的值,
根据其值再做进一部的操作!

[雄关漫道真如铁，]

同意 zvanadium(zhengfan) 的分析.
除了以上方法,你也可以在 fetch cursor1 into :stucourse,:stuscore;
这一句后加上一句: if sqlca.sqlcode<> 0 then exit 就OK了

[thelazyman]

declare cursor1 cursor for
select course,score from stuinfo
where no=:stuno and term ='第一学期';

open cursor1;
fetch cursor1 into :stucourse,:stuscore;
do while con

insert into stuscore8(course,score) values (:stucourse,:stuscore);

if sqlca.sqlcode=100 then **

con=false;
end if
fetch cursor1 into :stucourse,:stuscore;
loop

close cursor1;