VC知识库文章 - 将Sybase C程序快速移植到Oracle Pro*C程序

将Sybase C程序快速移植到Oracle Pro*C程序

作者：

一、前言

　　当前不少单位在进行系统改造升级时，面临着如何将各个独立部门开发的应用所采用的数据库统一，以便适应数据大集中的需求，方便将来进行数据挖掘等更高层次的应用。在数据库统一的过程中，如何快速、高效的将已有的基于异种数据库的程序，特别是采用C/C++开发的运行于linux/unix下的程序转换到现有数据库下，成为不少单位面临的问题。当然了，基于RAD开发的程序，基本上不需要进行修改，就能达到目的。
　　针对如何快速地将Sybase C程序移植为Oracle Pro*C程序，本文将指出一个方向，并给出一个粗糙的框架。仅以此文抛砖引玉，希望各位指导。（计划编写一个转换系列，看看各位反应如何吧）

二、原理

　　Sybase的C程序转换到Oracle的Pro*C程序，相对于其他类型的转换有很多优势（原谅我挑了可能是最简单的一种转换）：

1. Sybase程序采用的是C函数调用的方式，这给将Sybase程序转换到其他任意一种数据库程序带来了很大的方便！仅仅需要使用目的数据库的语法，实现老程序使用到的Sybase函数就可以了！并且不需要对原来的C程序进行任何逻辑方面的修改！
2. Oracle的Pro*C提供了动态sql的开发方式，这给移植带来了极大的方便。
3. Oracle Pro*C与Sybase同样提供进程多连接方式。
4. Oracle 9采用parse=full的编译选项时，C的定义变量可以直接在EXEC SQL中使用，这给程序的编写方便了不少。

还有其他优势，不再一一列举。

三、实现

废话少说，下面转入正题：
针对Sybase的几个主要函数，下面概述处理办法，具体的实现参照源代码：

1. dbinit()：该函数仅仅将针对数据库操作的一些变量进行初始化。
2. 一些用户名、密码的设置，没有太多可说的。比较简单。
3. dbopen()：该函数实际进行数据库的连接，在连接过程中，我设置了全局变量AllOpenProcess用于保存所有的连接指针，并产生了一个连接串用于标识该连接。保存于全局变量中是因为Sybase函数dbexit没有输入参数。
4. dbcmd()：该函数进行sql语句的分析，以便进一步进行判断。
5. dbexec()：该函数进行命令的执行（不太清楚为什么Sybase将该函数与dbcmd分开）。对无返回结果集的命令（insert、update、delete）直接通过EXEC SQL AT EXECUTE IMMEDIATE的语法执行。对与存在返回结果集的select，采用oracle动态sql4的方法进行处理。因为时间以及老的程序的关系，本函数的实现仅仅针对了传入完整sql语句的字符串。
6. dbresults()：判断返回结果。
7. dbbind()：绑定存储值的地址，并判断传入的类型是否正确。因为老程序仅仅使用了NTBSTRINGBIND类型，所以示例中也仅仅处理了此种类型。
8. dbnumcols()：返回数据列数目，在语句类型为select时有效。
9. dbnextrow()：取得下一条数据值，并填写到dbbind所绑定的地址空间内。此处需要根据源类型select_dp->T[]以及目标类型进行相关的数据转换。
10. dbdead()：判断数据库连接是否正常。采用从DUAL表中取值的方式来测试。
11. dbexit()：退出数据库连接。

还有其他很多函数，但是因为我没有使用到，嘿嘿，就不作实现了。

四．移植

　　移植的方法很简单，将原来c/c++文件中#include "Sybfront.h" #include "sybdb.h"等引用Sybase头文件的地方去掉，更换为附件中的#include "database_op.h"，同时将附件中database_op.cxx加入到工程中，加上适当的编译语句（PROC），然后去除原来连接sybase的lib，加入oracle的lib：orasql9.lib。就可以在基本不修改源程序的情况下完成程序的移植！当然，如果你的sybase程序采用了非NTBSTRINGBIND类型的话，自己在cxx文件中加入相关的处理方式吧！祝好运！欢迎探讨。

五、技巧

　　下面我总结一些开发过程中使用到的一些小的技巧，各位见笑。如何充分利用 Visual C++ 的开发环境进行 Pro*C 程序开发：

　　相信各位对 Visual C++ 的集成开发环境使用比较熟吧，别告诉我你开发 Unix 下的 C/C++ 程序还在使用 vi、UltraEdit、EditPlus 吧！当然了，如果你坚持我也不反对，不过您老此时就不用浪费时间向下翻页了。
　　oracle 的 Pro*C 程序一般以 PC 结尾。而以 PC 结尾的程序，没法按照 C/C++ 的语法在 Visual C++ 的集成开发环境下显示！只是白纸黑字一片。不像 UltraEdit，可以定制使得 PC 文件按照 C/C++ 的语法显示（在 UltraEdit 安装目录下的 WORDFILE.TXT 文件中包含 "C CPP CC CXX H HPP AWK" 内容的后面加上 "PC" 就可以了）（也许VC有这个功能，不过我没找到）。怎么办呢？简单，修改PC文件后缀为CXX，此时，文件就按照C/C++语法进行显示了！此时，设置该文件属性页（在VC开发环境的WORKSPACE中选中该文件，按 ALT+F7 ）中 General 下的 Always use custom build step 为选中状态，Curstom Build 页下的 Commands/Outputs 下参考 oracle 的 example 输入相应的编译选项。记得将对应的PC后缀修改为 cxx 后缀。

database_op.cxx

/*
database_op.cxx  
负责兼容 sybase 和 oracle对数据库的操作
*/
#include "stdio.h"
#include "stdlib.h"
#include "string.h"
#include "database_op.h"
#ifdef SYBASE_PLATFORM
/*
*	不需要任何动作
*/
#endif
#ifdef MSSQL_PLATFORM
#endif
#ifdef ORACLE_PLATFORM
EXEC SQL INCLUDE sqlca;
EXEC SQL INCLUDE sqlda;
EXEC SQL WHENEVER NOT FOUND CONTINUE ;
EXEC SQL WHENEVER SQLWARNING CONTINUE ;
EXEC SQL WHENEVER SQLERROR CONTINUE ;
char    dyn_statement[1024];
SQLDA *select_dp = NULL;
#define  MAXCOLNUM 126
#define  MAXCOLVALUE 1024
char chValueBuff[MAXCOLNUM][MAXCOLVALUE]={0};
/* Maximum lengths of the _names_ of the
select-list items or indicator variables. */
#define MAX_VNAME_LEN     80
#define MAX_INAME_LEN     80
typedef struct Securepair
{
	struct Securepair	*next;
	char		*labelname;
	char		*labelvalue;
} SECLABELS;
typedef struct loginrec
{
	char	chLogName[256];
	char	chLogPass[256];
} LOGINREC_STR;
enum SQLTYPE_ENUM{SQL_NULL=0,SQL_SELECT,SQL_INSERT,SQL_UPDATE,SQL_DELETE};
struct dbprocess {
	sql_context ctx;
	char connName[20];
	
   /*当前sql语句类型，包括查询select  insert update delete，*/
   /*通过在sqldata中查找上述字符串获得*/
	enum SQLTYPE_ENUM sqltype ;
	long	rowindex ;	/*执行本次sql后，被取出的行的数目/下次需要取出的索引*/
	long	rownum ;	/*本次sql得到的行数目*/
	long	colnum ;	/*当前列数目*/
	long	sqlerror ;/*SQL语句错误号*/
	void *	ppbuff[MAXPOINTNUM] ;	/*当前绑定了字段的内存地址*/
	long	pbufftype[MAXPOINTNUM] ;
         /*当前sql语句值，在执行后更改上面的rowindex,rownum,colnum*/
	char	sqldata[SQLDATALEN] ; 
};
typedef struct dbprocess    DBPROC_STR;
DBPROC_STR * AllOpenProcess[20]={0};
EHANDLEFUNC ehandfunc = 0 ;
MHANDLEFUNC mhandfunc = 0 ;
RETCODE dbinit		(void)
{
	int i ;
	if( select_dp ) return SUCCEED ;
    if ((select_dp =sqlald (MAXPOINTNUM, MAX_VNAME_LEN, MAX_INAME_LEN)) == (SQLDA *) 0)
    {
        fprintf(stderr,"Cannot allocate memory for select descriptor.");
        return FAIL;
    }
	
    select_dp->N = MAXPOINTNUM;
	
    /* Allocate the pointers to the indicator variables, and the
	actual data. */
    for (i = 0; i < MAXPOINTNUM; i++) {
        select_dp->I[i] = (short *) malloc(sizeof(short));
        select_dp->V[i] = (char *) malloc(1);
    }
	
	return SUCCEED;
}
void errhandlefunc()
{
	if( ehandfunc )
		(*ehandfunc)(0,0,0,0,"","") ;
}
void mhandlefunc()
{
	if( mhandfunc )
		(*mhandfunc)(0,0,0,0,"","","",0) ;
}
EHANDLEFUNC dberrhandle  (EHANDLEFUNC handler)
{
	ehandfunc  =  handler ;
	/*	EXEC SQL WHENEVER SQLERROR DO errhandlefunc() ;*/
	return 0 ;
}
MHANDLEFUNC dbmsghandle  (MHANDLEFUNC handler)
{
	mhandfunc = handler ;
	/*	EXEC SQL WHENEVER SQLWARNING DO mhandlefunc() ;***/
	return 0 ;
}
void *	dblogin (void)
{
	LOGINREC_STR * rec ;
	rec = (LOGINREC_STR*)malloc(sizeof(LOGINREC_STR)) ;
	if( NULL == rec ) return rec ;
	memset(rec,0,sizeof(LOGINREC_STR));
	return rec;
}
RETCODE dbsetlname  (LOGINREC_STR *lptr,char *values,int type)
{
	if( NULL == lptr || NULL == values ) return FAIL ;
	if( (DBSETUSER != type) &&(DBSETPWD != type) ) return FAIL ;
	if( DBSETUSER == type )
	{
		if( strlen(values) >= sizeof(lptr->chLogName) ) return FAIL ;
		strcpy( lptr->chLogName,values) ;
	}
	
	if( DBSETPWD == type )
	{
		if( strlen(values) >= sizeof(lptr->chLogPass) ) return FAIL ;
		strcpy( lptr->chLogPass,values) ;
	}
	return SUCCEED ;
}
/*
该函数内进行数据库连接尝试
*/
DBPROCESS *dbopen	(LOGINREC_STR *logon_ptr,char *servername)
{
	int iLen ,iIndex ;
	DBPROC_STR * dbprocess ;
	EXEC SQL BEGIN DECLARE SECTION;
	VARCHAR  username[256];
	VARCHAR  password[256];
	VARCHAR	 dbstring[256];
    EXEC SQL END DECLARE SECTION;
	
	if( NULL == logon_ptr ) return NULL ;
	dbprocess = (DBPROC_STR*)malloc(sizeof(DBPROC_STR));
	if( NULL == dbprocess ) return NULL ;
	memset(dbprocess,0,sizeof(DBPROC_STR));
	iLen = sizeof(AllOpenProcess)/sizeof(DBPROC_STR * );
	
	for ( iIndex = 0 ; iIndex < iLen ; iIndex ++ )
	{
		if( NULL == AllOpenProcess[iIndex] ) 
		{
			AllOpenProcess[iIndex] = dbprocess ;
			sprintf(dbprocess->connName,"conn%d",iIndex);
			break ;
		}
	}
	
	if( iIndex == iLen ) 
	{
		free(dbprocess) ;
		dbprocess  = NULL ;
	}
	/*
	此处进行连接尝试!!!!!!!!!
	*/
	strncpy((char *) username.arr, logon_ptr->chLogName, sizeof(username.arr));
	username.len = strlen((char *) username.arr);
	strncpy((char *) password.arr, logon_ptr->chLogPass, sizeof(password.arr));
	password.len = strlen((char *) password.arr);
    EXEC SQL CONTEXT ALLOCATE :dbprocess->ctx;
    EXEC SQL CONTEXT USE :dbprocess->ctx;
	if( NULL == servername )
	{
		EXEC SQL CONNECT :username IDENTIFIED BY :password AT:dbprocess->connName ;
	}
	else
	{
		strncpy((char*)dbstring.arr,servername,sizeof(dbstring.arr) ) ;
		dbstring.len = strlen((char*)dbstring.arr);
		EXEC SQL CONNECT :username IDENTIFIED BY 
		                 :password  
		                 AT:dbprocess->connName 
		                 USING :dbstring ;
	}
	
	if (sqlca.sqlcode < 0 ) 
	{
		printf("\n%d %s\n",sqlca.sqlcode,sqlca.sqlerrm.sqlerrmc);
		printf("CONNECT ERROR!");		
		return FAIL ;
	}
	return (DBPROCESS*)dbprocess ;
}
void	dbloginfree (LOGINREC_STR *loginptr)
{
	if( NULL != loginptr ) 
	{
		memset( loginptr,0,sizeof(LOGINREC_STR));
		free(loginptr) ;
	}
}
/*
该函数仅仅拷贝命令，做简单的命令检查
*/
RETCODE dbcmd		(DBPROC_STR *dbproc,const char *cmdstring)
{
	long l_len ;
	char * pSelect , *pInsert , *pUpdate,*pDelete ,*pMin;
	if( NULL == dbproc || NULL == cmdstring ) return FAIL ;
	/*
	仅仅拷贝命令，做简单的命令检查！！！！！！！！！！！！！！！！！！！！！
	*/
	l_len = strlen(cmdstring) ;
	if(	l_len >= sizeof(dbproc->sqldata) )  return FAIL ;
	memcpy( dbproc->sqldata, cmdstring , l_len + 1) ;
	strupr(dbproc->sqldata);
	dbproc->colnum  =0 ;
	dbproc->rowindex = 0 ;
	dbproc->rownum = 0 ;
	memset(dbproc->ppbuff,0,sizeof(dbproc->ppbuff));
	memset(dbproc->pbufftype,0,sizeof(dbproc->pbufftype));
	
	/*分析命令类型*/	
	pSelect = strstr(dbproc->sqldata,"SELECT");
	pInsert = strstr(dbproc->sqldata,"INSERT");
	pUpdate = strstr(dbproc->sqldata,"UPDATE");
	pDelete = strstr(dbproc->sqldata,"DELETE");
	
	pMin = dbproc->sqldata + strlen(dbproc->sqldata) ;
	dbproc->sqltype = SQL_NULL ;
	if( (pSelect) && (pSelect < pMin) ) { pMin = pSelect ;dbproc->sqltype = SQL_SELECT ; }
	if( (pInsert) && (pInsert < pMin) ) { pMin = pInsert ;dbproc->sqltype = SQL_INSERT ; }
	if( (pUpdate) && (pUpdate < pMin) ) { pMin = pUpdate ;dbproc->sqltype = SQL_UPDATE ; }
	if( (pDelete) && (pDelete < pMin) ) { pMin = pDelete ;dbproc->sqltype = SQL_DELETE ; }
	if( SQL_NULL == dbproc->sqltype ) 
	{
		dbproc->sqlerror = -1 ;
		return FAIL ;
	}
	return SUCCEED ;
}
/*
该函数	执行命令
*/
RETCODE dbsqlexec	(DBPROC_STR *dbproc)
{
	int i,null_ok, precision, scale;
	EXEC SQL BEGIN DECLARE SECTION;
	VARCHAR  chSqlStr[SQLDATALEN];
    EXEC SQL END DECLARE SECTION;
	if( NULL == dbproc ) return FAIL ;
	
	if( SQL_NULL == dbproc->sqltype ) return FAIL ;
	
	dbproc->colnum = 0 ;
	dbproc->rowindex = 0 ;
	dbproc->rownum = 0 ;
	dbproc->sqlerror = 0 ;
	memset( dbproc->ppbuff,0,sizeof(dbproc->ppbuff) );
	memset(dbproc->pbufftype,0,sizeof(dbproc->pbufftype));
	strcpy(chSqlStr.arr,dbproc->sqldata);
	chSqlStr.len = strlen(chSqlStr.arr);
	
	if( SQL_INSERT == dbproc->sqltype ||
		SQL_UPDATE == dbproc->sqltype ||
		SQL_DELETE == dbproc->sqltype 
		)
	{
		EXEC SQL CONTEXT USE :dbproc->ctx;
		EXEC SQL AT :dbproc->connName execute immediate :chSqlStr ;
		dbproc->sqlerror = sqlca.sqlcode ;
		if( dbproc->sqlerror < 0 )
		{
			printf("\n%s\n",sqlca.sqlerrm.sqlerrmc);
			EXEC SQL ROLLBACK ;
			return FAIL ;
		}
		dbproc->rownum =  sqlca.sqlerrd[2]  ;
		EXEC SQL CONTEXT USE :dbproc->ctx;
		EXEC SQL AT :dbproc->connName COMMIT ;
		return SUCCEED ;
	}
	
	
	/*采用CURSOR游标方式*/
	/*
	采用动态sql 4 方法
	*/
	if( SQL_SELECT == dbproc->sqltype )
	{
		sqlca.sqlcode = 0 ;
		if (sqlca.sqlcode != 0 ) 
		{
			printf("\nDECLARE  err = %d\n%s\n",
			sqlca.sqlcode , 
			sqlca.sqlerrm.sqlerrmc);
			return FAIL ;
		}
		EXEC SQL CONTEXT USE :dbproc->ctx;
		EXEC SQL AT :dbproc->connName  PREPARE SSS FROM :chSqlStr;
		
		if (sqlca.sqlcode != 0 ) 
		{
			printf("\nPREPARE err = %d\n%s\n",
			sqlca.sqlcode , 
			sqlca.sqlerrm.sqlerrmc);
			return FAIL ;
		}
		EXEC SQL CONTEXT USE :dbproc->ctx;
		EXEC SQL AT :dbproc->connName  DECLARE CCC CURSOR FOR SSS;
		if (sqlca.sqlcode != 0 ) 
		{
			printf("\nDECLARE CCC err = %d\n%s\n",
			sqlca.sqlcode , 
			sqlca.sqlerrm.sqlerrmc);
			return FAIL ;
		}
		EXEC SQL CONTEXT USE :dbproc->ctx;
		EXEC SQL AT :dbproc->connName  OPEN CCC ; 
		if (sqlca.sqlcode != 0 ) 
		{
			printf("\nOPEN CCC err = %d\n%s\n",
			sqlca.sqlcode , 
			sqlca.sqlerrm.sqlerrmc);
			return FAIL ;
		}
		select_dp->N = MAXPOINTNUM;
		EXEC SQL CONTEXT USE :dbproc->ctx;
		EXEC SQL AT :dbproc->connName  DESCRIBE SELECT LIST FOR SSS INTO select_dp;
		
		dbproc->sqlerror = sqlca.sqlcode ;
		
		if( dbproc->sqlerror < 0 )
		{
			printf("\nerr = %d\n%s\n",
			sqlca.sqlcode , 
			sqlca.sqlerrm.sqlerrmc);
			EXEC SQL CONTEXT USE :dbproc->ctx;
			EXEC SQL AT :dbproc->connName  CLOSE CCC ;
			EXEC SQL CONTEXT USE :dbproc->ctx;
			EXEC SQL AT :dbproc->connName  ROLLBACK ;
			return FAIL ;
		}
		if (select_dp->F < 0 )
		{
			printf("\nerr = %d\n%s\n",
			sqlca.sqlcode , 
			sqlca.sqlerrm.sqlerrmc);
			EXEC SQL CONTEXT USE :dbproc->ctx;
			EXEC SQL AT :dbproc->connName  CLOSE CCC ;
			EXEC SQL CONTEXT USE :dbproc->ctx;
			EXEC SQL AT :dbproc->connName  ROLLBACK ;	
			return FAIL ;
		}
		if (select_dp->F > MAXPOINTNUM )
		{
			printf("\nerr = %d\n%s\n",
			sqlca.sqlcode , 
			sqlca.sqlerrm.sqlerrmc);
			EXEC SQL CONTEXT USE :dbproc->ctx;
			EXEC SQL AT :dbproc->connName  CLOSE CCC ;
			EXEC SQL CONTEXT USE :dbproc->ctx;
			EXEC SQL AT :dbproc->connName  ROLLBACK ;	
			return FAIL ;
		}
		
		select_dp->N = select_dp->F;
		
		dbproc->colnum = select_dp->N ;
		/*不能直接取到所有行的数目，所以直接采用当前行加1的方式处理*/
		dbproc->rownum =  dbproc->rowindex + 1 ;
		for (i = 0; i < select_dp->F; i++)
		{
			/*char title[MAX_VNAME_LEN]; */
			/* Turn off high-order bit of datatype (in this example, it does not */
			/* matter if the column is NOT NULL). */
			sqlnul ((unsigned short *)&(select_dp->T[i]), 
			(unsigned short *)&(select_dp->T[i]), 
			&null_ok);
			/*
			VARCHAR2 1 char[n]
			NUMBER 2 char[n] ( n <= 22)
			INTEGER 3 int
			FLOAT 4 float
			STRING 5 char[n+1]
			VARNUM 6 char[n] (n <= 22)
			DECIMAL 7 float
			LONG 8 char[n]
			VARCHAR 9 char[n+2]
			ROWID 11 char[n]
			DATE 12 char[n]
			VARRAW 15 char[n]
			RAW 23 unsigned char[n]
			LONG RAW 24 unsigned char[n]
			UNSIGNED 68 unsigned int
			DISPLAY 91 char[n]
			LONG VARCHAR 94 char[n+4]
			LONG VARRAW 95 unsigned char[n+4]
			CHAR 96 char[n]
			CHARF 96 char[n]
			CHARZ 97 char[n+1]			
			*/
			switch (select_dp->T[i])
			{
			/* CHAR datatype: no change in length needed, except */
			/* possibly for TO_CHAR conversions (not handled here). */
			case  1 : 
				break;
                           /* NUMBER datatype: use sqlprc() to extract precision and scale. */
			case  2 : 
				sqlprc ((unsigned long *)&(select_dp->L[i]), 
                                             &precision, &scale);
				/* Allow for maximum size of NUMBER. */
				if (precision == 0) precision = 40;
				/* Also allow for decimal point and possible sign. */
				/* convert NUMBER datatype to FLOAT if scale > 0,*/
                                    /* INT otherwise. */
				if (scale > 0)	select_dp->L[i] = sizeof(float);
				else	select_dp->L[i] = sizeof(int);
				break;
			case  8 : /* LONG datatype */
				select_dp->L[i] = 240;
				break;
			case 11 : /* ROWID datatype */
			case 104 : /* Universal ROWID datatype */
				select_dp->L[i] = 18;
				break;
			case 12 : /* DATE datatype */
				select_dp->L[i] = 9;
				break;
			case 23 : /* RAW datatype */
				break;
			case 24 : /* LONG RAW datatype */
				select_dp->L[i] = 240;
				break;
			}
			/* Allocate space for the select-list data values.sqlald() */
			/* reserves a pointer location for V[i] but does not allocate */
			/* the full space for the pointer.  */
			if (select_dp->T[i] != 2)
			{
				select_dp->V[i] = (char *) realloc(select_dp->V[i],
					select_dp->L[i] + 1);  
			}
			else
				select_dp->V[i] = (char *) realloc(select_dp->V[i],
				select_dp->L[i]);  
			/* Print column headings, right-justifying number column headings. */
			
			/* Copy to temporary buffer in case name is null-terminated */
			/* strncpy(title, select_dp->S[i], select_dp->C[i]);
			if (select_dp->T[i] == 2)
			if (scale > 0)
			printf ("%.*s ", select_dp->L[i]+3, title);
			else
			printf ("%.*s ", select_dp->L[i], title);
			else
			printf("%-.*s ", select_dp->L[i], title);
			*/
			/* Coerce ALL datatypes except for LONG RAW and NUMBER to character. */
			if (select_dp->T[i] != 24 && select_dp->T[i] != 2)
			     select_dp->T[i] = 1;
			/* Coerce the datatypes of NUMBERs to float or int */
			/* depending on the scale. */
			if (select_dp->T[i] == 2)
			{
				if (scale > 0)
					select_dp->T[i] = 4;  /* float */
				else
					select_dp->T[i] = 3;  /* int */
			}
		}
	}
	
	return SUCCEED ;
}
/*
该函数判断数据库返回结果，操作DBPROC_STR的特定字段
SUCCEED  NO_MORE_RESULTS
*/
RETCODE dbresults	(DBPROC_STR *dbproc)
{
	if( NULL == dbproc ) return NO_MORE_RESULTS;
	
	if( dbproc->sqlerror < 0 ) return NO_MORE_RESULTS ;
	if( dbproc->rowindex != dbproc->rownum ) return SUCCEED ;
	return NO_MORE_RESULTS ;
}
/*
绑定值，绑定存储值的位子
*/
RETCODE dbbind		(DBPROC_STR *dbproc,int colnum,int vartype,DBINT varlen,BYTE *destvar)
{
	if( colnum <= 0 ) return FAIL ;
	if( colnum > dbproc->colnum ) return FAIL ;
	if( colnum >= MAXPOINTNUM ) return FAIL ;
	
	/*
	当前仅支持此类型
	*/
	if( NTBSTRINGBIND != vartype )
	{
		printf("\n!!!!!!!!!!!!!UNKNOWN TYPE  %d  !!!!!!!!\n\n",vartype);
		exit(0);/*!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   */
	}
	dbproc->ppbuff[colnum - 1 ]	= destvar ;
	dbproc->pbufftype[colnum - 1 ] = vartype ;
	
	return FAIL ;
}
/*
获得本次执行返回多少列
*/
int dbnumcols		(DBPROC_STR *dbproc)
{
	return dbproc->colnum ;
}
/*
将下一条值赋值到绑定的变量上
*/
STATUS dbnextrow	(DBPROC_STR *dbprocess)
{
	int i ;
	if( NULL == dbprocess ) return NO_MORE_ROWS ;
	/* FETCH each row selected and print the column values. */
	EXEC SQL CONTEXT USE :dbprocess->ctx;
	EXEC SQL WHENEVER NOT FOUND GOTO end_select_loop;
	
	EXEC SQL CONTEXT USE :dbprocess->ctx;
	EXEC SQL AT :dbprocess->connName  FETCH CCC USING DESCRIPTOR select_dp;
	
	/* Since each variable returned has been coerced to a character string, */
	/* int, or float very little processing is required here.  This routine */
	/* just prints out the values on the terminal. */
	for (i = 0; i < select_dp->F; i++)
	{
		if( NULL == dbprocess->ppbuff[i] ) continue ;
		if (*select_dp->I[i] < 0)
		{
			switch(dbprocess->pbufftype[i]) 
			{
			case NTBSTRINGBIND :
			/*
			if (select_dp->T[i] == 4) 
			sprintf ("%-*c ",(int)select_dp->L[i]+3, '' '');
			else
			printf ("%-*c ",(int)select_dp->L[i], '' '');
				*/
				strcpy(dbprocess->ppbuff[i],"");
				break;
			case CHARBIND:
				*((char*)dbprocess->ppbuff[i]) = 0 ;
				break ;
				
			case INTBIND:
				*((int*)dbprocess->ppbuff[i]) = 0 ;
				break ;
				
			default:
			/*
			*	ERROR ! not support type!
				*/
				dbprocess->sqlerror = -50001;
				return NO_MORE_ROWS ;
			}
		}
		else
		{
			switch(dbprocess->pbufftype[i]) 
			{
			case NTBSTRINGBIND :
				if (select_dp->T[i] == 3)     /* int datatype */
					sprintf (dbprocess->ppbuff[i],
					"%*d", (int)select_dp->L[i],
					*(int *)select_dp->V[i]);
				else if (select_dp->T[i] == 4)     /* float datatype */
					sprintf (dbprocess->ppbuff[i],
					"%*.2f", (int)select_dp->L[i],
					*(float *)select_dp->V[i]);
				else                          /* character string */
					sprintf (dbprocess->ppbuff[i],
					"%-*.*s", 
					(int)select_dp->L[i],
					(int)select_dp->L[i],
					select_dp->V[i]);
				break;
			case CHARBIND:
				*((char*)dbprocess->ppbuff[i]) = *(char*) select_dp->V[i] ;
				break ;
				
			case INTBIND:
				*((int*)dbprocess->ppbuff[i]) = *(int*) select_dp->V[i] ;
				break ;
				
			default:
			/*
			*	ERROR ! not support type!
				*/
				dbprocess->sqlerror = -50001;
				return NO_MORE_ROWS ;
			}
		}
	}
	return SUCCEED ;
	
end_select_loop :
	dbprocess->rownum = dbprocess->rowindex ;
	
	return NO_MORE_ROWS ;
}
/*
判断该连接是否正常
*/
DBBOOL	dbdead		(DBPROC_STR *a)
{
	char chbuff[8];	
	
	chbuff[0]=''\0'';
	EXEC SQL WHENEVER NOT FOUND GOTO end_select_loop;
	EXEC SQL CONTEXT USE :a->ctx;
	EXEC SQL AT :a->connName SELECT ''A'' INTO :chbuff FROM DUAL ;
	
	if (''A'' != chbuff[0]) 
	{
		return FAIL ;
	}
	return SUCCEED ;
end_select_loop:
	return FAIL ;
}
/*
该函数释放dbopen产生的内存，同时断开数据库连接
需要进一步的考虑！
*/
void dbexit			(void)
{
	int i,iLen ,iIndex ;
    EXEC SQL WHENEVER SQLERROR CONTINUE;
	
	iLen = sizeof(AllOpenProcess)/sizeof(DBPROC_STR * );
	
	for ( iIndex = 0 ; iIndex < iLen ; iIndex ++ )
	{
		if( NULL != AllOpenProcess[iIndex] ) 
		{
		/*
		*	此处开始断开数据库连接！！！！！！！！！！！！！！
			*/
			EXEC SQL CONTEXT USE : AllOpenProcess[iIndex]->ctx;
			EXEC SQL WHENEVER NOT FOUND GOTO end_select_loop;
			
			/* Close the cursor. */
			EXEC SQL AT :AllOpenProcess[iIndex]->connName CLOSE CCC;
			
			EXEC SQL AT :AllOpenProcess[iIndex]->connName COMMIT WORK RELEASE;
			
			free(AllOpenProcess[iIndex]);
			AllOpenProcess[iIndex] = NULL ;
		}
	}
	if( select_dp )
	{
		for (i = 0; i < MAXPOINTNUM; i++)
		{    
			if (select_dp->V[i] != (char *) 0)
				free(select_dp->V[i]);
			free(select_dp->I[i]); /* MAXPOINTNUM were allocated. */
		}
		
		/* Free space used by the descriptors themselves. */
		sqlclu(select_dp);
		select_dp = NULL ;
	}
	return;
}
#endif
#ifdef MSSQL_PLATFORM
#endif 

　

--------------------next---------------------