|
动态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\0", "%",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
[办公软件]在sybase中插入图片、PDF、文本文件 [办公软件]安装Sybase ASE
[办公软件]linux指令大全(完整篇) [办公软件]Linux新手入门常用命令大全
[办公软件]在RedHat Linux 9里安装gaim0.80 [办公软件]浅谈Linux 下Java 1.5 汉字方块问题解决方法
[办公软件]Linux程序员必读：中文化与GB18030标准 [办公软件]linux指令大全
[办公软件]制作Linux启动盘的四种方法 [办公软件]Linux文件系统的反删除方法
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
