动态SQL中DESCRIPTOR的应用 (转)

动态SQL中DESCRIPTOR的应用 (转)[@more@]

动态sql中DESCRIPTOR的应用

王光红

动态SQL具有的灵活性是众所周知的,本人在此介绍一种应用DESCRIPTOR的动态SQL:

$short b_num;
$char *command;

$char Sql[1024];
$short flag;
$date Date;
$long Number, b_count, j;
$long prec;
$long type;
$long scale;
$double money;

sprintf(Sql, "select * from table");

$prepare qid from $Sql;
if(SQLCODE) return -1;
$declare BROWSE scroll cursor for qid;
if(SQLCODE) return -2;
$allocate descriptor 'browsdesc' with max :b_num; //在描述区分配空间,并设置最大的项目数

 $get descriptor 'browsdesc' :b_count=count;//得到查询的字段个数
 if(SQLCODE){
 SqlErrHandle(SQLCODE, SELECT);
 goto EXIT0;
 }

 $fetch BROWSE using sql descriptor 'browsdesc';
 if(SQLCODE){
 strcpy(RetPacket.data, "SELECT ERROR|");
 SqlErrHandle(SQLCODE, SELECT);
 goto EXIT0;
 }

 for(j=1;j<=b_count;j++){
 $get descriptor 'browsdesc' value $j  //当前字段序号
 $prec=precision, /*money、decimal*/
 $scale=scale, /*money、decimal*/
 $type=type;

 if(SQLCODE){
 SqlErrHandle(SQLCODE, SELECT);
 goto EXIT0;
 }
 switch(type){
 case SQLFLOAT:
 case SQLSMFLOAT:
 case SQLDECIMAL:
 case SQLMONEY:
 if(prec)
 sprintf(fmt, "%s%d.%df", "%",prec+1, scale);
 else
 strcpy(fmt, "%f");
 $get descriptor 'browsdesc' value $j
 $money=data;
 sprintf(result, fmt, money);

 if(SQLCODE==DATAISNULL) result[0]=0;
 break;
 default:
 $get descriptor 'browsdesc' value $j
 $result=data;
 }//switch

 if(SQLCODE==DATAISNULL) SQLCODE=0;

 if(SQLCODE){
 SqlErrHandle(SQLCODE, SELECT);
 goto EXIT0;
 }

 OutPut(result);//输出结果

 }//for


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

转载于:http://blog.itpub.net/10748419/viewspace-958672/

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值