青岛巴伦特工贸有限公司—SAP SYBASE(PB)论坛中文社区技术服务

 找回密码
 站点注册

QQ鐧诲綍

鍙渶涓姝ワ紝蹇熷紑濮

查看: 314|回复: 0
收起左侧

[学习笔记] PowerBuilder(PB) 游标的两种使用方法

[复制链接]
发表于 2022-11-7 20:37:21 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?站点注册

x
示例一

  1. string ls_sub_storage

  2. declare cur_sub_storage cursor for
  3. select sub_storage from drug_sub_storage_dict WHERE sub_storage like '%药房%';
  4. open cur_sub_storage;
  5. fetch cur_sub_storage into :ls_sub_storage;
  6. do while sqlca.sqlcode=0
  7. ddlb_1.AddItem (ls_sub_storage)
  8. fetch cur_sub_storage into :ls_sub_storage;
  9. loop
  10. 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. string test

  4. //声明游标
  5. declare test cursor for

  6. // SQL 语句
  7. select 字段名 from  表名 where 表达式 using sqlca;

  8. //打开游标
  9. open test;

  10. for i=1 to ll_count
  11. //获取数据
  12. fetch test into :变量名;

  13. //在这里写你的业务

  14. next

  15. //关闭游标
  16. close test;
复制代码

(2)、用 do while 循环实现游标

  1. //定义游标
  2. string test

  3. //声明游标
  4. declare test cursor for
  5.    
  6. // SQL语句
  7. select 字段名 from 表名 where 条件 using sqlca;

  8. //打开游标
  9. open test;

  10. //获取数据
  11. fetch test into:字段名变量;

  12. do while sqlca.sqlcode = 0

  13. //在这里写你的业务

  14. //再次获取数据
  15. fetch test into:字段名变量;

  16. loop

  17. //关闭游标
  18. close test;
复制代码


FROM:https://www.yuque.com/zisay/powerbuilder/window#4f584ed2
你不共享给别人,谁会共享给你?
SYBASE论坛欢迎您能交换更多好的信息,资料,代码……
富强,民主,文明,和谐;自由,平等,公正,法治;爱国,敬业,诚信,友善!
SYBASEBBS - 免责申明1、欢迎访问“SYBASEBBS.COM”,本文内容及相关资源来源于网络,版权归版权方所有!本站原创内容版权归本站所有,请勿转载!
2、本文内容仅代表作者观点,不代表本站立场,作者自负,本站资源仅供学习研究,请勿非法使用,否则后果自负!请下载后24小时内删除!
3、本文内容,包括但不限于源码、文字、图片等,仅供参考。本站不对其安全性,正确性等作出保证。但本站会尽量审核会员发表的内容。
4、如本帖侵犯到任何版权问题,请立即告知本站 ,本站将及时删除并致以最深的歉意!客服邮箱:admin@sybasebbs.com
您需要登录后才可以回帖 登录 | 站点注册

本版积分规则

QQ|Archiver|青岛巴伦特工贸有限公司—SYBASE(PB)论坛中文社区 ( 鲁ICP备2021027222号-1 )

GMT+8, 2022-12-5 01:38 , Processed in 0.037413 second(s), 8 queries , MemCached On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表