完全版 ESQL/C资料二(12) _云知道

printf ("n %d record(s) selectednn", counter);
/* 释放SQLDA申请的空间 */
free_da(sqldaPointer);
} else { /*不是SELECT语句，则执行SQL语句 */
EXEC SQL EXECUTE statement1;
if (CHECKERR ("executing the SQL statement") != 0) return SQLCODE;
} /* end if */
return SQLCODE;
}
/* end of program : ADHOC.SQC */
/**************************************************************************
* PROCEDURE : init_da
*为SQLDA分配空间。其中SQLDASIZE的作用，是计算SQLDA的大小。返回-1，
*表示无法分配空间。
**************************************************************************/
int init_da (struct sqlda **DAPointer, int DAsqln) {
int idx;
*DAPointer = (struct sqlda *) malloc (SQLDASIZE(DAsqln));
if (*DAPointer == NULL)
return (-1);
memset (*DAPointer, "", SQLDASIZE(DAsqln));
strncpy((*DAPointer)->sqldaid, "SQLDA ", sizeof ((*DAPointer)->sqldaid));
(*DAPointer)->sqldabc = (long)SQLDASIZE(DAsqln);
(*DAPointer)->sqln = DAsqln;
(*DAPointer)->sqld = 0;
return 0;
}
/**********************************************************************
* FUNCTION : alloc_host_vars
*为sqlvar结构申请空间。返回-1表示申请失败。
***********************************************************************/
int alloc_host_vars (struct sqlda *sqldaPointer) {
short idx;
unsigned int memsize =0;
long longmemsize =0;
int precision =0;for (idx = 0; idx < sqldaPointer->sqld; idx) {
switch (sqldaPointer->sqlvar[idx].sqltype ) {
case SQL_TYP_VARCHAR:
case SQL_TYP_NVARCHAR:
case SQL_TYP_LONG:
case SQL_TYP_NLONG:
case SQL_TYP_DATE:
case SQL_TYP_NDATE:
case SQL_TYP_TIME:
case SQL_TYP_NTIME:
case SQL_TYP_STAMP:
case SQL_TYP_NSTAMP:
sqldaPointer->sqlvar[idx].sqltype = SQL_TYP_NCSTR;
sqldaPointer->sqlvar[idx].sqldata = https://www.rkxy.com.cn/dnjc/(char *SQL_POINTER)
malloc ((sqldaPointer->sqlvar[idx].sqllen));
memsize = (sqldaPointer->sqlvar[idx].sqllen);
break;
case SQL_TYP_DECIMAL:
case SQL_TYP_NDECIMAL:
precision = ((char *)&(sqldaPointer->sqlvar[idx].sqllen))[0];
sqldaPointer->sqlvar[idx].sqldata = https://www.rkxy.com.cn/dnjc/(char *SQL_POINTER)
malloc ((precision2) /2);
memsize = (precision2) /2;
break;
default:
sqldaPointer->sqlvar[idx].sqldata = https://www.rkxy.com.cn/dnjc/(char *SQL_POINTER)
malloc (sqldaPointer->sqlvar[idx].sqllen);
memsize = sqldaPointer->sqlvar[idx].sqllen;
break;
} /* endswitch */
if (sqldaPointer->sqlvar[idx].sqldata =https://www.rkxy.com.cn/dnjc/= NULL) {
return (-1);
} else {
memset (sqldaPointer->sqlvar[idx].sqldata,"",memsize);
} /* endif */
/*为sqlind申请空间*/
if ( sqldaPointer->sqlvar[idx].sqltype & 1 ) {
/* Allocate storage for short int */
sqldaPointer->sqlvar[idx].sqlind = (short *)malloc(sizeof(short));
/* Detect memory allocation error */
if ( sqldaPointer->sqlvar[idx].sqlind == NULL ) {
return(-1) ;
} else {
/* initialize memory to zero */
memset(sqldaPointer->sqlvar[idx].sqldata,"",sizeof(short));
} /* endif */
} /* endif */
} /* endfor */
return 0;
}
/**************************************************************************
* FUNCTION : free_da
* 释放SQLDA 申请的空间。
**************************************************************************/
void free_da (struct sqlda *sqldaPointer) {
short idx;
for (idx = 0; idx < sqldaPointer->sqld; idx) {
free (sqldaPointer->sqlvar[idx].sqldata);
if (sqldaPointer->sqlvar[idx].sqltype & 1) {
free (sqldaPointer->sqlvar[idx].sqlind);
}
} /* endfor */
free (sqldaPointer);
}
/**************************************************************************
* PROCEDURE : readColName
* 返回列名信息
**************************************************************************/
char * readColName (struct sqlda *sqldaPointer, short sqlvarIndex, char * buffer) {
strncpy(buffer, sqldaPointer->sqlvar[sqlvarIndex].sqlname.data,
sqldaPointer->sqlvar[sqlvarIndex].sqlname.length);

完全版 ESQL/C资料二(12)

推荐阅读

孟子的思想什么是孟子的思想

网布小白鞋怎么洗干净网布小白鞋怎么洗干净呢

元宵节的来历是什么

怎么看自己候补抢票是第几位

玻璃水杯茶垢怎么清理怎样清理玻璃杯茶垢

江源区景点

两台电脑怎样实现远程桌面连接

在京东中怎么查看销量？查看销量的方法说明

十大汉奸哪里人叫什么名字

下无线移动短信息服务平台

女生唇毛怎么去除

ds国产了的车型有什么

老虎包包编织教程老虎斜挎包男士怎么搭配？

塔防神姜维怎么样,关羽姜维关妹蜀骑战法

什么3d游戏人最多,这款3D荒岛生存游戏诚意满满

阴阳师的ssr是什么,SSR式神的面板