PowerBuilder(PB) 游标的两种使用方法

ehxz

免费乐捐，感谢支持

示例一

1. string ls_sub_storage
   
2. 
   
3. declare cur_sub_storage cursor for
   
4. select sub_storage from drug_sub_storage_dict WHERE sub_storage like '%药房%';
   
5. open cur_sub_storage;
   
6. fetch cur_sub_storage into :ls_sub_storage;
   
7. do while sqlca.sqlcode=0
   
8. ddlb_1.AddItem (ls_sub_storage)
   
9. fetch cur_sub_storage into :ls_sub_storage;
   
10. loop
    
11. close cur_sub_storage;

复制代码

//示例二

1. string temp
   
2. declare mycur cursor for//定义游标mycur
   
3. select dept_name
   
4. from dept_dict;
   
5. open mycur;
   
6. do while true
   
7. fetch mycur into :temp;
   
8. if sqlca.sqlcode<>0 then exit
   
9. ddplb_1.additem(temp)
   
10. loop
    
11. close mycur;

复制代码

未测试，来自：https://www.cnblogs.com/yh-xiaoxiami/p/15496058.html
（1）、用 for 循环实现游标

1. long ll_count = 10
   
2. 
   
3. //定义游标
   
4. string test
   
5. 
   
6. //声明游标
   
7. declare test cursor for
   
8. 
   
9. // SQL 语句
   
10. select 字段名 from  表名 where 表达式 using sqlca;
    
11. 
    
12. //打开游标
    
13. open test;
    
14. 
    
15. for i=1 to ll_count
    
16. //获取数据
    
17. fetch test into :变量名;
    
18. 
    
19. //在这里写你的业务
    
20. 
    
21. next
    
22. 
    
23. //关闭游标
    
24. close test;

复制代码

（2）、用 do while 循环实现游标

1. //定义游标
   
2. string test
   
3. 
   
4. //声明游标
   
5. declare test cursor for
   
6.    
   
7. // SQL语句
   
8. select 字段名 from 表名 where 条件 using sqlca;
   
9. 
   
10. //打开游标
    
11. open test;
    
12. 
    
13. //获取数据
    
14. fetch test into:字段名变量;
    
15. 
    
16. do while sqlca.sqlcode = 0
    
17. 
    
18. //在这里写你的业务
    
19. 
    
20. //再次获取数据
    
21. fetch test into:字段名变量;
    
22. 
    
23. loop
    
24. 
    
25. //关闭游标
    
26. close test;

复制代码

FROM：https://www.yuque.com/zisay/powerbuilder/window#4f584ed2

surachai43

Thank you.

swimchen

其实我不建议使用游标，因为游标有个明显问题，就是数据循环读取处理中有客户端代码，不如直接DS得到数据后再写入更快