ITPub博客

首页 > Linux操作系统 > Linux操作系统 > pppp

pppp

原创 Linux操作系统 作者:huangjt007 时间:2012-04-25 18:24:06 0 删除 编辑

long li_orno,li_sum,ll_flag,li_priz
string ls_info
string ls_return
string ls_ym
double ldb_priz
li_orno=8888
ls_ym='2012-01'
ll_flag=long(trim(sle_6.text))
 DECLARE ProceYT PROCEDURE FOR 'ProceYT'
  @al_orno=:li_orno,
  @as_ym=:ls_ym,
  @as_ctym=:ls_ym,
  @as_user='hhh',
  @ai_cttimes=0;
// messagebox("info",ls_info)

   
//此处开始执行存储过程
  execute  ProceYT;
//  messagebox("SQLCA.sqlcode",SQLCA.sqlcode)
//    messagebox("ls_return",ls_return)
// //判断执行结果
CHOOSE CASE SQLCA.sqlcode
CASE 0
       //如果返回0则表示执行成功,至少存在一个SELECT结果集
       //借助LOOP循环开始捕获这个SELECT结果集

       DO
            FETCH ProceYT INTO :ls_info,:ldb_priz,:li_priz ;
            CHOOSE CASE SQLCA.sqlcode
            CASE 0
     messagebox("info",trim(ls_info))
     messagebox("return",ldb_priz)
              CASE 100
//                 MessageBox ("End of Result Set",  " rows fetched")
              CASE -1
                 MessageBox ("Fetch Failed",string (SQLCA.sqldbcode)+ " = " +SQLCA.sqlerrtext)
               END CHOOSE
       LOOP WHILE SQLCA.sqlcode = 0
end choose
close ProceYT;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/75527/viewspace-722233/,如需转载,请注明出处,否则将追究法律责任。

上一篇: ProceYT
下一篇: TJ_SellPrize_20120101
请登录后发表评论 登录
全部评论

注册时间:2012-01-31

  • 博文量
    39
  • 访问量
    18597