static HB_ERRCODE odbcOpen( SQLBASEAREAP pArea ) { SDDCONN * pSDDConn = ( SDDCONN * ) pArea->pConnection->pSDDConn; SDDDATA * pSDDData; void * hQuery; SQLHSTMT hStmt; SQLSMALLINT iNameLen; PHB_ITEM pItemEof, pItem; HB_BOOL bError; HB_USHORT uiFields, uiIndex; HB_ERRCODE errCode; char * szError; pArea->pSDDData = memset( hb_xgrab( sizeof( SDDDATA ) ), 0, sizeof( SDDDATA ) ); pSDDData = ( SDDDATA * ) pArea->pSDDData; #if ODBCVER >= 0x0300 if( ! SQL_SUCCEEDED( SQLAllocHandle( SQL_HANDLE_STMT, pSDDConn->hConn, &hStmt ) ) ) #else if( ! SQL_SUCCEEDED( SQLAllocStmt( pSDDConn->hConn, &hStmt ) ) ) #endif { szError = odbcGetError( pSDDConn->hEnv, pSDDConn->hConn, SQL_NULL_HSTMT, &errCode ); hb_errRT_ODBCDD( EG_OPEN, ESQLDD_STMTALLOC, szError, pArea->szQuery, errCode ); hb_xfree( szError ); return HB_FAILURE; } pItem = hb_itemPutC( NULL, pArea->szQuery ); if( ! SQL_SUCCEEDED( SQLExecDirect( hStmt, ( SQLTCHAR * ) O_HB_ITEMGETSTR( pItem, &hQuery, NULL ), ( SQLINTEGER ) hb_itemGetCLen( pItem ) ) ) ) { hb_strfree( hQuery ); hb_itemRelease( pItem ); szError = odbcGetError( pSDDConn->hEnv, pSDDConn->hConn, hStmt, &errCode ); #if ODBCVER >= 0x0300 SQLFreeHandle( SQL_HANDLE_STMT, hStmt ); #else SQLFreeStmt( hStmt, SQL_DROP ); #endif hb_errRT_ODBCDD( EG_OPEN, ESQLDD_INVALIDQUERY, szError, pArea->szQuery, errCode ); hb_xfree( szError ); return HB_FAILURE; } else { hb_strfree( hQuery ); hb_itemRelease( pItem ); } if( ! SQL_SUCCEEDED( SQLNumResultCols( hStmt, &iNameLen ) ) ) { szError = odbcGetError( pSDDConn->hEnv, pSDDConn->hConn, hStmt, &errCode ); #if ODBCVER >= 0x0300 SQLFreeHandle( SQL_HANDLE_STMT, hStmt ); #else SQLFreeStmt( hStmt, SQL_DROP ); #endif hb_errRT_ODBCDD( EG_OPEN, ESQLDD_STMTDESCR + 1000, szError, pArea->szQuery, errCode ); hb_xfree( szError ); return HB_FAILURE; } uiFields = ( HB_USHORT ) iNameLen; SELF_SETFIELDEXTENT( ( AREAP ) pArea, uiFields ); pItemEof = hb_itemArrayNew( uiFields ); #if 0 HB_TRACE( HB_TR_ALWAYS, ( "fieldcount=%d", iNameLen ) ); #endif errCode = 0; bError = HB_FALSE; for( uiIndex = 0; uiIndex < uiFields; uiIndex++ ) { DBFIELDINFO pFieldInfo; PHB_ITEM pName; SQLTCHAR cName[ 256 ]; SQLULEN uiSize; SQLSMALLINT iDataType, iDec, iNull; if( ! SQL_SUCCEEDED( SQLDescribeCol( hStmt, ( SQLSMALLINT ) uiIndex + 1, ( SQLTCHAR * ) cName, HB_SIZEOFARRAY( cName ), &iNameLen, &iDataType, &uiSize, &iDec, &iNull ) ) ) { hb_itemRelease( pItemEof ); szError = odbcGetError( pSDDConn->hEnv, pSDDConn->hConn, hStmt, NULL ); #if ODBCVER >= 0x0300 SQLFreeHandle( SQL_HANDLE_STMT, hStmt ); #else SQLFreeStmt( hStmt, SQL_DROP ); #endif hb_errRT_ODBCDD( EG_OPEN, ESQLDD_STMTDESCR + 1001, szError, pArea->szQuery, 0 ); hb_xfree( szError ); return HB_FAILURE; } pName = O_HB_ITEMPUTSTRLEN( NULL, ( O_HB_CHAR * ) cName, iNameLen ); pFieldInfo.atomName = hb_itemGetCPtr( pName ); /* We do mapping of many SQL types to one Harbour field type here, so, we need store real SQL type in uiTypeExtended. SQL types are signed, so, HB_USHORT type casting is a little hacky. We need to remember use this casting also in expressions like this: if( pField->uiTypeExtended == ( HB_USHORT ) SQL_BIGINT ) or introduce our own unsigned SQL types. [Mindaugas] */ pFieldInfo.uiTypeExtended = ( HB_USHORT ) iDataType; pFieldInfo.uiLen = ( HB_USHORT ) uiSize; pFieldInfo.uiDec = iDec; #if 0 HB_TRACE( HB_TR_ALWAYS, ( "field: name=%s type=%d len=%d dec=%d null=%d", pFieldInfo.atomName, iDataType, uiSize, iDec, iNull ) ); #endif switch( iDataType ) { case SQL_CHAR: case SQL_VARCHAR: case SQL_LONGVARCHAR: case SQL_WCHAR: case SQL_WVARCHAR: case SQL_WLONGVARCHAR: pFieldInfo.uiType = HB_FT_STRING; break; case SQL_VARBINARY: case SQL_LONGVARBINARY: pFieldInfo.uiType = HB_FT_STRING; pFieldInfo.uiFlags = HB_FF_BINARY; break; case SQL_TINYINT: case SQL_SMALLINT: case SQL_INTEGER: case SQL_BIGINT: pFieldInfo.uiType = HB_FT_INTEGER; break; case SQL_DECIMAL: case SQL_NUMERIC: pFieldInfo.uiType = HB_FT_LONG; break; case SQL_REAL: case SQL_FLOAT: case SQL_DOUBLE: pFieldInfo.uiType = HB_FT_DOUBLE; break; case SQL_BIT: pFieldInfo.uiType = HB_FT_LOGICAL; break; case SQL_DATE: #if ODBCVER >= 0x0300 case SQL_TYPE_DATE: #endif pFieldInfo.uiType = HB_FT_DATE; break; case SQL_TIME: #if ODBCVER >= 0x0300 case SQL_TYPE_TIME: #endif pFieldInfo.uiType = HB_FT_DATE; break; /* SQL_DATETIME = SQL_DATE = 9 */ case SQL_TIMESTAMP: #if ODBCVER >= 0x0300 case SQL_TYPE_TIMESTAMP: #endif pFieldInfo.uiType = HB_FT_TIMESTAMP; break; default: #if 0 HB_TRACE( HB_TR_ALWAYS, ( "new sql type=%d", iDataType ) ); #endif bError = HB_TRUE; errCode = ( HB_ERRCODE ) iDataType; pFieldInfo.uiType = 0; pFieldInfo.uiType = HB_FT_STRING; break; } if( ! bError ) { switch( pFieldInfo.uiType ) { case HB_FT_STRING: { char * pStr; pStr = ( char * ) hb_xgrab( ( HB_SIZE ) pFieldInfo.uiLen + 1 ); memset( pStr, ' ', pFieldInfo.uiLen ); pStr[ pFieldInfo.uiLen ] = '\0'; pItem = hb_itemPutCL( NULL, pStr, pFieldInfo.uiLen ); hb_xfree( pStr ); break; } case HB_FT_MEMO: pItem = hb_itemPutC( NULL, NULL ); break; case HB_FT_INTEGER: pItem = hb_itemPutNI( NULL, 0 ); break; case HB_FT_LONG: if( pFieldInfo.uiDec == 0 ) pItem = hb_itemPutNLLen( NULL, 0, pFieldInfo.uiLen ); else pItem = hb_itemPutNDLen( NULL, 0.0, pFieldInfo.uiLen, pFieldInfo.uiDec ); break; case HB_FT_DOUBLE: pItem = hb_itemPutNDLen( NULL, 0.0, pFieldInfo.uiLen, pFieldInfo.uiDec ); break; case HB_FT_LOGICAL: pItem = hb_itemPutL( NULL, HB_FALSE ); break; case HB_FT_DATE: pItem = hb_itemPutDL( NULL, 0 ); break; case HB_FT_TIME: pItem = hb_itemPutTDT( NULL, 0, 0 ); break; case HB_FT_TIMESTAMP: pItem = hb_itemPutTDT( NULL, 0, 0 ); break; default: pItem = hb_itemNew( NULL ); bError = HB_TRUE; break; } hb_arraySetForward( pItemEof, uiIndex + 1, pItem ); hb_itemRelease( pItem ); if( ! bError ) bError = ( SELF_ADDFIELD( ( AREAP ) pArea, &pFieldInfo ) == HB_FAILURE ); } hb_itemRelease( pName ); if( bError ) break; } if( bError ) { hb_itemRelease( pItemEof ); #if ODBCVER >= 0x0300 SQLFreeHandle( SQL_HANDLE_STMT, hStmt ); #else SQLFreeStmt( hStmt, SQL_DROP ); #endif hb_errRT_ODBCDD( EG_CORRUPTION, ESQLDD_INVALIDFIELD, "Invalid field type", pArea->szQuery, errCode ); return HB_FAILURE; } pArea->ulRecCount = 0; pArea->ulRecMax = SQLDD_ROWSET_INIT; pArea->pRow = ( void ** ) hb_xgrab( SQLDD_ROWSET_INIT * sizeof( void * ) ); memset( pArea->pRow, 0, SQLDD_ROWSET_INIT * sizeof( void * ) ); pArea->pRowFlags = ( HB_BYTE * ) hb_xgrab( SQLDD_ROWSET_INIT * sizeof( HB_BYTE ) ); memset( pArea->pRowFlags, 0, SQLDD_ROWSET_INIT * sizeof( HB_BYTE ) ); pArea->pRow[ 0 ] = pItemEof; pArea->pRowFlags[ 0 ] = SQLDD_FLAG_CACHED; pSDDData->hStmt = hStmt; return HB_SUCCESS; }
/* --------------------------------------------------------- TestSQLDescribeCol for MP Specific --------------------------------------------------------- */ PassFail TestMXSQLDescribeCol(TestInfo *pTestInfo) { TEST_DECLARE; char Heading[MAX_STRING_SIZE]; RETCODE returncode; SQLHANDLE henv, hdbc, hstmt; UWORD icol; SWORD numcol, st, cs, cnull, cl, colsize = 2; SQLULEN cp; CHAR cn[COLNAME_LEN]; CHAR *colname[21]; CHAR *ExecDirStr[12]; #ifndef _WM SWORD SQLType[] = {SQL_CHAR,SQL_VARCHAR,SQL_DECIMAL,SQL_NUMERIC,SQL_SMALLINT,SQL_INTEGER, SQL_REAL,SQL_DOUBLE,SQL_DOUBLE,SQL_DATE,SQL_TIME,SQL_TIMESTAMP,SQL_LONGVARCHAR,SQL_BIGINT, SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC}; SQLULEN ColPrec[] = {254,254,18,18,5,10,7,15,15,10,8,26,2000,19,19,19,128,128,10,18,30}; #else SWORD SQLType[] = {SQL_CHAR,SQL_VARCHAR,SQL_DECIMAL,SQL_NUMERIC,SQL_SMALLINT,SQL_INTEGER, SQL_REAL,SQL_DOUBLE,SQL_DOUBLE,SQL_CHAR,SQL_TIME,SQL_TIMESTAMP,SQL_LONGVARCHAR,SQL_BIGINT, SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC}; SQLULEN ColPrec[] = {254,254,18,18,5,10,7,15,15,8,8,26,2000,19,19,19,128,128,10,18,30}; #endif SWORD ColScale[]= {0, 0, 6, 6, 0,0, 0,0, 0, 0, 0,6, 0, 0, 0, 6, 0, 128,5, 5, 10}; char TempType1[50],TempType2[50]; SWORD ColNullable[] = {SQL_NULLABLE,SQL_NO_NULLS,SQL_NULLABLE}; CHAR *TestCase[] = { "before preparing stmt ", "before preparing & executing stmt ", "before preparing, executing & fetching stmt ", "before execdirect stmt ", "before execdirect & fetching stmt ", "before preparing param stmt ", "before preparing & binding stmt ", "before preparing, binding & executing stmt ", "before preparing, binding, executing & fetching stmt " }; int lend = 9, iend = 3; SQLUSMALLINT i = 0, l = 0; SQLLEN cbIn = SQL_NTS; //=========================================================================================================== var_list_t *var_list; var_list = load_api_vars("SQLDescribeColumns", charset_file); if (var_list == NULL) return FAILED; //================Modified for Longvarchar Changes=========================================================== if(!pTestInfo->bLongOn) { SWORD iNoLong = SQL_VARCHAR; SQLType[12] = iNoLong; } //================Modified for Longvarchar Changes=========================================================== //print_list(var_list); colname[0] = var_mapping("SQLDescribeColumns_colname_1", var_list); colname[1] = var_mapping("SQLDescribeColumns_colname_2", var_list); colname[2] = var_mapping("SQLDescribeColumns_colname_3", var_list); colname[3] = var_mapping("SQLDescribeColumns_colname_4", var_list); colname[4] = var_mapping("SQLDescribeColumns_colname_5", var_list); colname[5] = var_mapping("SQLDescribeColumns_colname_6", var_list); colname[6] = var_mapping("SQLDescribeColumns_colname_7", var_list); colname[7] = var_mapping("SQLDescribeColumns_colname_8", var_list); colname[8] = var_mapping("SQLDescribeColumns_colname_9", var_list); colname[9] = var_mapping("SQLDescribeColumns_colname_10", var_list); colname[10] = var_mapping("SQLDescribeColumns_colname_11", var_list); colname[11] = var_mapping("SQLDescribeColumns_colname_12", var_list); colname[12] = var_mapping("SQLDescribeColumns_colname_13", var_list); colname[13] = var_mapping("SQLDescribeColumns_colname_14", var_list); colname[14] = var_mapping("SQLDescribeColumns_colname_15", var_list); colname[15] = var_mapping("SQLDescribeColumns_colname_16", var_list); colname[16] = var_mapping("SQLDescribeColumns_colname_17", var_list); colname[17] = var_mapping("SQLDescribeColumns_colname_18", var_list); colname[18] = var_mapping("SQLDescribeColumns_colname_19", var_list); colname[19] = var_mapping("SQLDescribeColumns_colname_20", var_list); colname[20] = var_mapping("SQLDescribeColumns_colname_21", var_list); ExecDirStr[0] = var_mapping("SQLDescribeColumns_ExecDirStr_1", var_list); ExecDirStr[1] = var_mapping("SQLDescribeColumns_ExecDirStr_2", var_list); ExecDirStr[2] = var_mapping("SQLDescribeColumns_ExecDirStr_3", var_list); ExecDirStr[3] = var_mapping("SQLDescribeColumns_ExecDirStr_4", var_list); ExecDirStr[4] = var_mapping("SQLDescribeColumns_ExecDirStr_5", var_list); ExecDirStr[5] = var_mapping("SQLDescribeColumns_ExecDirStr_6", var_list); ExecDirStr[6] = var_mapping("SQLDescribeColumns_ExecDirStr_7", var_list); ExecDirStr[7] = var_mapping("SQLDescribeColumns_ExecDirStr_8", var_list); ExecDirStr[8] = var_mapping("SQLDescribeColumns_ExecDirStr_9", var_list); ExecDirStr[9] = var_mapping("SQLDescribeColumns_ExecDirStr_10", var_list); ExecDirStr[10] = var_mapping("SQLDescribeColumns_ExecDirStr_11", var_list); ExecDirStr[11] = var_mapping("SQLDescribeColumns_ExecDirStr_12", var_list); //=========================================================================================================== if(isUCS2) { LogMsg(NONE,"Setup for UCS2 mode testing: ColPrec has to be doubled\n"); ExecDirStr[3] = replace_str(ExecDirStr[3],"$$$","127"); ExecDirStr[4] = replace_str(ExecDirStr[4],"$$$","127"); ExecDirStr[5] = replace_str(ExecDirStr[5],"$$$","127"); l = sizeof(SQLType)/sizeof(SQLType[0]); while((i < l) && isUCS2) { if(SQLType[i] == SQL_CHAR) { //SQLType[i] = SQL_WCHAR; ColPrec[i] *= 2; //--> This is in character, so no need to double } else if (SQLType[i] == SQL_VARCHAR) { //SQLType[i] = SQL_WVARCHAR; } else if (SQLType[i] == SQL_LONGVARCHAR) { //SQLType[i] = SQL_WLONGVARCHAR; ColPrec[i] *= 2; //--> This is in character, so no need to double } else { } i++; } i = 0; l = 0; } else { ExecDirStr[3] = replace_str(ExecDirStr[3],"$$$","254"); ExecDirStr[4] = replace_str(ExecDirStr[4],"$$$","254"); ExecDirStr[5] = replace_str(ExecDirStr[5],"$$$","254"); } //=========================================================================================================== LogMsg(LINEBEFORE+SHORTTIMESTAMP,"Begin testing API => MX Specific SQLDescribeColumns | SQLDescribeColumns | mxdescol.c\n"); TEST_INIT; TESTCASE_BEGIN("Setup for SQLDescribCol tests\n"); if(!FullConnect(pTestInfo)) { LogMsg(NONE,"Unable to connect\n"); TEST_FAILED; TEST_RETURN; } henv = pTestInfo->henv; hdbc = pTestInfo->hdbc; hstmt = (SQLHANDLE)pTestInfo->hstmt; returncode = SQLAllocStmt((SQLHANDLE)hdbc, &hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLAllocStmt")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; TEST_RETURN; } TESTCASE_END; // end of setup for (l = 0; l < lend; l++) { for (i = 0; i < iend; i++) { //================================================================================== sprintf(Heading,"SQLDescribeCol: Test #%d.%d\n",l,i); TESTCASE_BEGIN(Heading); if ((i != (iend-1)) && (l < 5)) { SQLExecDirect(hstmt,(SQLCHAR*)ExecDirStr[i],SQL_NTS); /* cleanup */ returncode = SQLExecDirect(hstmt,(SQLCHAR*)ExecDirStr[i+iend],SQL_NTS); /* create table */ if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLExecDirect(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend],SQL_NTS); /* insert into table */ if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { LogMsg(NONE,"SQLDescribeCol: %s\n",TestCase[l]); LogMsg(NONE," %s\n",ExecDirStr[i+iend+iend+iend]); switch( l ) { case 0: returncode = SQLPrepare(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend+iend], SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } break; case 1 : returncode = SQLPrepare(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend+iend], SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } break; case 2 : returncode = SQLPrepare(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend+iend], SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLFetch(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLFetch")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } } break; case 3 : returncode = SQLExecDirect(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend+iend], SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } break; case 4 : returncode = SQLExecDirect(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend+iend], SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLFetch(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLFetch")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } break; } if (returncode == SQL_SUCCESS) { returncode=SQLNumResultCols(hstmt, &numcol); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLNumResultCols")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } for (icol = 1; icol <= numcol; icol++) { LogMsg(LINEBEFORE,"SQLDescribeCol: checking Column #%d\n",icol); returncode = SQLDescribeCol(hstmt,icol,(SQLCHAR*)cn,COLNAME_LEN,&cl,&st,&cp,&cs,&cnull); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLDescribeCol")) { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } colsize=strlen(colname[icol-1]); if(isCharSet == TRUE) colsize -= 2; if ((cstrcmp(cn,colname[icol-1],FALSE,isCharSet) == 0) && (cl == colsize) && (st == SQLType[icol-1]) && (cp == ColPrec[icol-1]) && (cs == ColScale[icol-1]) && (cnull == ColNullable[i])) { //LogMsg(NONE,"colname expect: %s and actual: %s are matched\n",colname[icol-1],cn); //LogMsg(NONE,"ColNameLen expect: %d and actual: %d are matched\n",colsize,cl); //LogMsg(NONE,"SQLType expect: %s and actual: %s are matched\n", //SQLTypeToChar(SQLType[icol-1],TempType1),SQLTypeToChar(st,TempType2)); //LogMsg(NONE,"ColPrec expect: %d and actual: %d are matched\n",ColPrec[icol-1],cp); //LogMsg(NONE,"ColScale expect: %d and actual: %d are matched\n",ColScale[icol-1],cs); //LogMsg(NONE,"ColNullable expect: %s and actual: %s are matched\n\n", //SQLNullToChar(ColNullable[i],TempType1),SQLNullToChar(cnull,TempType2)); } else { TEST_FAILED; if (cstrcmp(cn,colname[icol-1],FALSE,isCharSet) != 0) LogMsg(ERRMSG,"colname expect: %s and actual: %s are not matched line %d\n",colname[icol-1],cn,__LINE__); if (cl != colsize) LogMsg(ERRMSG,"ColNameLen expect: %d and actual: %d are not matched line %d\n",colsize,cl,__LINE__); if (st != SQLType[icol-1]) LogMsg(ERRMSG,"SQLType expect: %s and actual: %s are not matched line %d\n", SQLTypeToChar(SQLType[icol-1],TempType1),SQLTypeToChar(st,TempType2),__LINE__); if (cp != ColPrec[icol-1]) LogMsg(ERRMSG,"ColPrec expect: %d and actual: %d are not matched line %d\n",ColPrec[icol-1],cp,__LINE__); if (cs != ColScale[icol-1]) LogMsg(ERRMSG,"ColScale expect: %d and actual: %d are not matched line %d\n",ColScale[icol-1],cs,__LINE__); if (cnull != ColNullable[i]) LogMsg(ERRMSG,"ColNullable expect: %s and actual: %s are not matched line %d\n\n", SQLNullToChar(ColNullable[i],TempType1),SQLNullToChar(cnull,TempType2),__LINE__); } } /* end icol loop */ } else { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } SQLFreeStmt(hstmt,SQL_CLOSE); SQLExecDirect(hstmt,(SQLCHAR*) ExecDirStr[i],SQL_NTS); /* cleanup */ } } } else if ((i == (iend-1)) && (l >= 5)) { SQLExecDirect(hstmt,(SQLCHAR*)ExecDirStr[i],SQL_NTS); /* cleanup */ returncode = SQLExecDirect(hstmt,(SQLCHAR*)ExecDirStr[i+iend],SQL_NTS); /* create table */ if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLExecDirect(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend],SQL_NTS); /* insert into table */ if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { LogMsg(NONE,"SQLDescribeCol: %s\n",TestCase[l]); LogMsg(NONE," %s\n",ExecDirStr[i+iend+iend+iend]); switch( l ) { case 5 : returncode = SQLPrepare(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend+iend], SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } break; case 6 : returncode = SQLPrepare(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend+iend], SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLBindParameter(hstmt,1,SQL_PARAM_INPUT,SQL_C_CHAR,SQL_CHAR,2000,0,(SQLPOINTER)"0123456789",300,&cbIn); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindParameter")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLBindParameter(hstmt,2,SQL_PARAM_INPUT,SQL_C_CHAR,SQL_CHAR,2000,0,(SQLPOINTER)"0123456789",300,&cbIn); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindParameter")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } break; case 7 : returncode = SQLPrepare(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend+iend], SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLBindParameter(hstmt,1,SQL_PARAM_INPUT,SQL_C_CHAR,SQL_CHAR,2000,0,(SQLPOINTER)"0123456789",300,&cbIn); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindParameter")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLBindParameter(hstmt,2,SQL_PARAM_INPUT,SQL_C_CHAR,SQL_CHAR,2000,0,(SQLPOINTER)"0123456789",300,&cbIn); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindParameter")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } break; case 8 : returncode = SQLPrepare(hstmt,(SQLCHAR*)ExecDirStr[i+iend+iend+iend], SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLBindParameter(hstmt,1,SQL_PARAM_INPUT,SQL_C_CHAR,SQL_CHAR,2000,0,(SQLPOINTER)"0123456789",300,&cbIn); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindParameter")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLBindParameter(hstmt,2,SQL_PARAM_INPUT,SQL_C_CHAR,SQL_CHAR,2000,0,(SQLPOINTER)"0123456789",300,&cbIn); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindParameter")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLFetch(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLFetch")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } } break; } if (returncode == SQL_SUCCESS) { SQLNumResultCols(hstmt, &numcol); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLNumResultCols")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } for (icol = 1; icol <= numcol; icol++) { LogMsg(LINEBEFORE,"SQLDescribeCol: checking Column #%d\n",icol); returncode = SQLDescribeCol(hstmt,icol,(SQLCHAR*)cn,COLNAME_LEN,&cl,&st,&cp,&cs,&cnull); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLDescribeCol")) { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } colsize=strlen(colname[icol-1]); if(isCharSet == TRUE) colsize -= 2; if ((cstrcmp(cn,colname[icol-1],FALSE,isCharSet) == 0) && (cl == colsize) && (st == SQLType[icol-1]) && (cp == ColPrec[icol-1]) && (cs == ColScale[icol-1]) && (cnull == ColNullable[i])) { //LogMsg(NONE,"colname expect: %s and actual: %s are matched\n",colname[icol-1],cn); //LogMsg(NONE,"ColNameLen expect: %d and actual: %d are matched\n",colsize,cl); //LogMsg(NONE,"SQLType expect: %s and actual: %s are matched\n", // SQLTypeToChar(SQLType[icol-1],TempType1),SQLTypeToChar(st,TempType2)); //LogMsg(NONE,"ColPrec expect: %d and actual: %d are matched\n",ColPrec[icol-1],cp); //LogMsg(NONE,"ColScale expect: %d and actual: %d are matched\n",ColScale[icol-1],cs); //LogMsg(NONE,"ColNullable expect: %s and actual: %s are matched\n\n", // SQLNullToChar(ColNullable[i],TempType1),SQLNullToChar(cnull,TempType2)); } else { TEST_FAILED; if (cstrcmp(cn,colname[icol-1],FALSE,isCharSet) != 0) LogMsg(ERRMSG,"colname expect: %s and actual: %s are not matched at line %d\n",colname[icol-1],cn,__LINE__); if (cl != colsize) LogMsg(ERRMSG,"ColNameLen expect: %d and actual: %d are not matched at line %d\n",colsize,cl,__LINE__); if (st != SQLType[icol-1]) LogMsg(ERRMSG,"SQLType expect: %s and actual: %s are not matched at line %d\n", SQLTypeToChar(SQLType[icol-1],TempType1),SQLTypeToChar(st,TempType2),__LINE__); if (cp != ColPrec[icol-1]) LogMsg(ERRMSG,"ColPrec expect: %d and actual: %d are not matched at line %d\n",ColPrec[icol-1],cp,__LINE__); if (cs != ColScale[icol-1]) LogMsg(ERRMSG,"ColScale expect: %d and actual: %d are not matched at line %d\n",ColScale[icol-1],cs,__LINE__); if (cnull != ColNullable[i]) LogMsg(ERRMSG,"ColNullable expect: %s and actual: %s are not matched at line %d\n\n", SQLNullToChar(ColNullable[i],TempType1),SQLNullToChar(cnull,TempType2),__LINE__); } } } } SQLFreeStmt(hstmt,SQL_CLOSE); SQLExecDirect(hstmt,(SQLCHAR*) ExecDirStr[i],SQL_NTS); } } TESTCASE_END; } /* iend loop */ } /* lend loop */ FullDisconnect(pTestInfo); LogMsg(SHORTTIMESTAMP+LINEAFTER,"End testing API => MX Specific SQLDescribeColumns.\n"); free_list(var_list); TEST_RETURN; }
/* --------------------------------------------------------- TestSQLExecute --------------------------------------------------------- */ PassFail TestSQLExecute(TestInfo *pTestInfo, int MX_MP_SPECIFIC) { TEST_DECLARE; RETCODE returncode; SQLHANDLE henv; SQLHANDLE hdbc; SQLHANDLE hstmt; TCHAR *ExecStr[15]; TCHAR *szInput[] = {_T("Inst char"),_T("Inst vchar"),_T("1234.56789"),_T("1234.56789"),_T("1200"),_T("12000"),_T("123.45"),_T("123.45"),_T("123.45"),_T("1993-07-01"),_T("09:45:30"),_T("1993-08-02 08:44:31.001"),_T("120000"),_T("1234567890.56789"),_T("1234567890.456789"),_T("1234567890.456789"),_T("0.01234567890123456789"),_T("1234.56789"),_T("1234567890.56789"),_T("12345678901234567890.0123456789"),_T("Inst char"),_T("Inst vchar")}; SQLLEN cbInput = SQL_NTS; SQLUSMALLINT i = 0; SQLSMALLINT Type[] = {SQL_WCHAR,SQL_WVARCHAR,SQL_DECIMAL,SQL_NUMERIC,SQL_SMALLINT,SQL_INTEGER,SQL_REAL,SQL_FLOAT,SQL_DOUBLE,SQL_DATE,SQL_TIME,SQL_TIMESTAMP,SQL_BIGINT,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_NUMERIC,SQL_WCHAR,SQL_WVARCHAR}; SQLUINTEGER ColPrec[] = {254,254,10,10,5,10,7,15,15,10,8,26,19,19,19,128,128,10,18,30,254,254}; SQLSMALLINT ColScale[]= {0,0,5,5,0,0,0,0,0,0,0,0,0,0,6,0,128,5,5,10,0,0}; short CCharOutput1,CCharOutput2; SQLLEN OutputLen1,OutputLen2; int actual_insert=0,num_insert=0; SWORD param = 0; //=========================================================================================================== var_list_t *var_list; var_list = load_api_vars(_T("SQLExecute"), charset_file); if (var_list == NULL) return FAILED; //print_list(var_list); ExecStr[0] = var_mapping(_T("SQLExecute_ExecStr_0"), var_list); ExecStr[1] = var_mapping(_T("SQLExecute_ExecStr_1"), var_list); ExecStr[2] = var_mapping(_T("SQLExecute_ExecStr_2"), var_list); ExecStr[3] = var_mapping(_T("SQLExecute_ExecStr_3"), var_list); ExecStr[4] = var_mapping(_T("SQLExecute_ExecStr_4"), var_list); ExecStr[5] = var_mapping(_T("SQLExecute_ExecStr_5"), var_list); ExecStr[6] = var_mapping(_T("SQLExecute_ExecStr_6"), var_list); ExecStr[7] = var_mapping(_T("SQLExecute_ExecStr_7"), var_list); ExecStr[8] = var_mapping(_T("SQLExecute_ExecStr_8"), var_list); ExecStr[9] = var_mapping(_T("SQLExecute_ExecStr_9"), var_list); ExecStr[10] = var_mapping(_T("SQLExecute_ExecStr_10"), var_list); ExecStr[11] = var_mapping(_T("SQLExecute_ExecStr_11"), var_list); ExecStr[12] = var_mapping(_T("SQLExecute_ExecStr_12"), var_list); ExecStr[13] = var_mapping(_T("SQLExecute_ExecStr_13"), var_list); ExecStr[14] = var_mapping(_T("SQLExecute_ExecStr_14"), var_list); //================================================================================================= LogMsg(LINEBEFORE+SHORTTIMESTAMP,_T("Begin testing API => SQLExecute.\n")); TEST_INIT; TESTCASE_BEGIN("Setup for SQLExecute tests\n"); if(!FullConnect(pTestInfo)){ LogMsg(NONE,_T("Unable to connect\n")); TEST_FAILED; TEST_RETURN; } henv = pTestInfo->henv; hdbc = pTestInfo->hdbc; hstmt = (SQLHANDLE)pTestInfo->hstmt; returncode = SQLAllocStmt((SQLHANDLE)hdbc, &hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLAllocStmt")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; TEST_RETURN; } returncode=SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[4],SQL_NTS); returncode=SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[5],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; TEST_RETURN; } returncode=SQLExecDirect(hstmt,(SQLTCHAR *)ExecStr[6],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; TEST_RETURN; } returncode=SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[7],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; TEST_RETURN; } returncode=SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[8],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; TEST_RETURN; } TESTCASE_END; // end of setup TESTCASE_BEGIN("Test #1: Positive Functionality of SQLExecute\n"); returncode = SQLPrepare(hstmt,(SQLTCHAR *)ExecStr[9],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLBindCol(hstmt,1,SQL_C_SHORT,&CCharOutput1,0,&OutputLen1); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindCol")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLBindCol(hstmt,2,SQL_C_SHORT,&CCharOutput2,0,&OutputLen2); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindCol")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } while (returncode != SQL_NO_DATA_FOUND) { returncode = SQLFetch(hstmt); if (returncode != SQL_NO_DATA_FOUND) { if(!CHECKRC(SQL_SUCCESS,returncode,"SQLFetch")) { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } } } SQLFreeStmt(hstmt,SQL_CLOSE); returncode = SQLPrepare(hstmt,(SQLTCHAR *)ExecStr[10],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } SQLFreeStmt(hstmt,SQL_CLOSE); SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[4],SQL_NTS); TESTCASE_END; TESTCASE_BEGIN("Test #2: Positive Functionality of SQLExecute\n"); returncode = SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[0],_tcslen(ExecStr[0])); /* cleanup */ returncode = SQLPrepare(hstmt,(SQLTCHAR*)ExecStr[1],_tcslen(ExecStr[1])); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } TESTCASE_END; TESTCASE_BEGIN("Test #3: Positive Functionality of SQLExecute with SQL_NTS\n"); returncode = SQLPrepare(hstmt,(SQLTCHAR*)ExecStr[2],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } TESTCASE_END; TESTCASE_BEGIN("Test #4: Positive Functionality of SQLPrepare then SQLExecute twice\n"); returncode = SQLPrepare(hstmt,(SQLTCHAR*)ExecStr[2],_tcslen(ExecStr[2])); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } TESTCASE_END; SQLFreeStmt(hstmt,SQL_CLOSE); SQLFreeStmt(hstmt,SQL_UNBIND); SQLFreeStmt(hstmt,SQL_RESET_PARAMS); TESTCASE_BEGIN("Test #5: Positive Functionality of SQLExecute with params\n"); returncode = SQLPrepare(hstmt,(SQLTCHAR*)ExecStr[3],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else{ for (i = 0; i <= 3; i++){ if (i==0) Type[0] = 1; returncode = SQLBindParameter(hstmt,(SWORD)(i+1),SQL_PARAM_INPUT,SQL_C_TCHAR,Type[i],EXEC_LEN,0,szInput[i],0,&cbInput); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindParameter")){ LogMsg(NONE,_T("Type[i]: %d \n"),Type[i]); LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } TESTCASE_END; TESTCASE_BEGIN("Test #6: Negative Functionality of SQLExecute with less params\n"); returncode = SQLFreeStmt(hstmt,SQL_DROP); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLFreeStmt")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else{ returncode = SQLAllocStmt((SQLHANDLE)hdbc, &hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLAllocStmt")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else{ returncode = SQLPrepare(hstmt,(SQLTCHAR*)ExecStr[3],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else{ returncode = SQLBindParameter(hstmt,1,SQL_PARAM_INPUT,SQL_C_TCHAR,Type[0],EXEC_LEN,0,szInput[0],0,&cbInput); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindParameter")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else{ returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_ERROR,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } } } } TESTCASE_END; TESTCASE_BEGIN("Test #7: Negative Functionality of SQLExecute with not prepared stmt\n"); returncode = SQLFreeStmt(hstmt,SQL_DROP); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLFreeStmt")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else{ returncode = SQLAllocStmt((SQLHANDLE)hdbc, &hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLAllocStmt")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else{ returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_ERROR,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } } TESTCASE_END; TESTCASE_BEGIN("Test #8: Negative Functionality of SQLExecute with invalid handle\n"); returncode = SQLPrepare(hstmt,(SQLTCHAR*)ExecStr[2],_tcslen(ExecStr[2])); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else{ returncode = SQLExecute((SQLHANDLE)NULL); if(!CHECKRC(SQL_INVALID_HANDLE,returncode,"SQLExecute")){ LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } TESTCASE_END; returncode = SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[0],_tcslen(ExecStr[0])); /* cleanup */ TESTCASE_BEGIN("Test #9: Stress Positive Functionality of SQLExecute.\n"); returncode = SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[11],SQL_NTS); returncode = SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[12],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")) { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } else { returncode = SQLPrepare(hstmt,(SQLTCHAR*)ExecStr[13],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } else { actual_insert = 0; for (num_insert = 0; num_insert < MAX_INSERTED_ROWS; num_insert++) { returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")) { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } else actual_insert++; } if (actual_insert != MAX_INSERTED_ROWS) { TEST_FAILED; LogMsg(ERRMSG,_T("failed to insert rows actual => %d & excepted => %d.\n"),actual_insert,MAX_INSERTED_ROWS); } } } SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[11],SQL_NTS); TESTCASE_END; TESTCASE_BEGIN("Test #10: Stress Positive Functionality of SQLExecute with Params.\n"); returncode = SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[11],SQL_NTS); returncode = SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[12],SQL_NTS); LogMsg(NONE,_T("ExecStr[12]: %s\n"), ExecStr[12]); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecDirect")) { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } else { returncode = SQLPrepare(hstmt,(SQLTCHAR*)ExecStr[14],SQL_NTS); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } else { actual_insert = 0; returncode = SQLNumParams(hstmt, ¶m); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLNumParams")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } for (num_insert = 0; num_insert < MAX_INSERTED_ROWS; num_insert++) { for (i = 0; i < param; i++) { if (i==0) Type[0] = 1; if (MX_MP_SPECIFIC == MX_SPECIFIC) { returncode = SQLBindParameter(hstmt,(SWORD)(i+1),SQL_PARAM_INPUT,SQL_C_TCHAR,Type[i],ColPrec[i],ColScale[i],szInput[i],0,&cbInput); } else { returncode = SQLBindParameter(hstmt,(SWORD)(i+1),SQL_PARAM_INPUT,SQL_C_TCHAR,Type[i],ColPrec[i],ColScale[i],szInput[i],300,&cbInput); } if(!CHECKRC(SQL_SUCCESS,returncode,"SQLBindParameter")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")) { TEST_FAILED; LogAllErrors(henv,hdbc,hstmt); } else actual_insert++; } if (actual_insert != MAX_INSERTED_ROWS) { TEST_FAILED; LogMsg(ERRMSG,_T("failed to insert rows actual => %d & excepted => %d.\n"),actual_insert,MAX_INSERTED_ROWS); } } } SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[11],SQL_NTS); TESTCASE_END; TESTCASE_BEGIN("Test #11: Negative Functionality of SQLExecute with already existing table\n"); returncode = SQLFreeStmt(hstmt,SQL_DROP); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLFreeStmt")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLAllocStmt((SQLHANDLE)hdbc, &hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLAllocStmt")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[0],_tcslen(ExecStr[0])); /* cleanup */ returncode = SQLPrepare(hstmt,(SQLTCHAR*)ExecStr[1],_tcslen(ExecStr[1])); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLPrepare")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_SUCCESS,returncode,"SQLExecute")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } else { returncode = SQLExecute(hstmt); if(!CHECKRC(SQL_ERROR,returncode,"SQLExecute")) { LogAllErrors(henv,hdbc,hstmt); TEST_FAILED; } } } SQLExecDirect(hstmt,(SQLTCHAR*)ExecStr[0],_tcslen(ExecStr[0])); /* cleanup */ } } TESTCASE_END; //================================================================================================= FullDisconnect(pTestInfo); LogMsg(SHORTTIMESTAMP+LINEAFTER,_T("End testing API => SQLExecute.\n")); free_list(var_list); TEST_RETURN; }
K eval(K x,K y,K z){K*k;S*b,s;SQLULEN w;SQLLEN*nb;SQLINTEGER*wb;H*tb,u,t,j=0,p,m;F f;C c[128];I n=xj<0;D d=d1(n?-xj:xj);U(d)x=y;Q(z->t!=-KJ||xt!=-KS&&xt!=KC,"type") if(z->j)SQLSetStmtAttr(d,SQL_ATTR_QUERY_TIMEOUT,(SQLPOINTER)(SQLULEN)z->j,0); if(xt==-KS)Q1(SQLColumns(d,(S)0,0,(S)0,0,xs,S0,(S)0,0))else{I e;K q=kpn(xG,xn);ja(&q,"\0");e=SQLExecDirect(d,q->G0,xn);r0(q);Q1(e)} SQLNumResultCols(d,&j);P(!j,(d0(d),knk(0))) b=malloc(j*SZ),tb=malloc(j*2),wb=malloc(j*SZ),nb=malloc(j*SZ),x=ktn(KS,j),y=ktn(0,j);// sqlserver: no bind past nonbind DO(j,Q1(SQLDescribeCol(d,(H)(i+1),c,128,&u,&t,&w,&p,&m))xS[i]=sn(c,u); if(t>90)t-=82; Q(t<-11||t>12,xS[i])wb[i]=ut[tb[i]=t=t>0?t:12-t]==KS&&w?w+1:wt[t];if(ut[t]==KS&&(n||!wb[i]||wb[i]>9))tb[i]=13) DO(j,kK(y)[i]=ktn(ut[t=tb[i]],0);if(w=wb[i])Q1(SQLBindCol(d,(H)(i+1),ct[t],b[i]=malloc(w),w,nb+i))) for(;SQL_SUCCEEDED(SQLFetch(d));)DO(j,k=kK(y)+i;u=ut[t=tb[i]];s=b[i];n=SQL_NULL_DATA==(int)nb[i]; if(!u)jk(k,n?ktn(ct[t]?KC:KG,0):wb[i]?kp(s):gb(d,(H)(i+1),t)); else ja(k,n?nu(u):u==KH&&wb[i]==1?(t=(H)*s,(S)&t):u==KS?(s=dtb(s,nb[i]),(S)&s):u<KD?s:u==KZ?(f=ds(s)+(vs(s+6)+*(I*)(s+12)/1e9)/8.64e4,(S)&f):(w=u==KD?ds(s):vs(s),(S)&w))) if(!SQLMoreResults(d))O("more\n");DO(j,if(wb[i])free(b[i]))R free(b),free(tb),free(wb),free(nb),d0(d),xT(xD(x,y));}
static int do_stmt(Con& con, const char *sqlstr) { SQLHSTMT hstmt; SQLCHAR errmsg[256]; SQLCHAR colname[32]; SQLSMALLINT coltype; SQLSMALLINT colnamelen; SQLSMALLINT nullable; SQLUINTEGER collen[MAXCOLS]; SQLSMALLINT scale; SQLINTEGER outlen[MAXCOLS]; SQLCHAR *data[MAXCOLS]; SQLSMALLINT nresultcols = 0; SQLINTEGER rowcount; SQLINTEGER stmttype; SQLRETURN rc; /* allocate a statement handle */ SQLAllocHandle(SQL_HANDLE_STMT, con.hdbc, &hstmt); /* execute the SQL statement */ rc = SQLExecDirect(hstmt, (SQLCHAR*)sqlstr, SQL_NTS); if (rc == SQL_ERROR) { ndbout << "Operation failed" << endl; print_err(SQL_HANDLE_STMT, hstmt); return -1; } if (rc != SQL_SUCCESS && rc != SQL_SUCCESS_WITH_INFO && rc != SQL_NO_DATA_FOUND) { ndbout << "Operation returned unknown code " << rc << endl; return -1; } /* see what kind of statement it was */ SQLGetDiagField(SQL_HANDLE_STMT, hstmt, 0, SQL_DIAG_DYNAMIC_FUNCTION_CODE, (SQLPOINTER)&stmttype, SQL_IS_INTEGER, (SQLSMALLINT *)NULL); switch (stmttype) { /* SELECT statement */ case SQL_DIAG_SELECT_CURSOR: /* determine number of result columns */ SQLNumResultCols(hstmt, &nresultcols); /*********************** * Display column names ***********************/ /* Print vertical divider */ printf("|"); for (int i=0; i<nresultcols; i++) { SQLDescribeCol(hstmt, i+1, colname, sizeof(colname), &colnamelen, &coltype, &collen[i], &scale, &nullable); collen[i] = display_length(coltype, collen[i], colname); for (SQLUINTEGER j=0; j<collen[i]; j++) printf("-"); printf("--+"); } printf("\n"); printf("|"); for (int i=0; i<nresultcols; i++) { SQLDescribeCol(hstmt, i+1, colname, sizeof(colname), &colnamelen, &coltype, &collen[i], &scale, &nullable); /* assume there is a display_length function which computes correct length given the data type */ collen[i] = display_length(coltype, collen[i], colname); (void)printf(" %*.*s |", (int)collen[i], (int)collen[i], (char *)colname); /* allocate memory to bind column */ data[i] = (SQLCHAR *) malloc(collen[i]); if (data[i] == NULL) { ndbout << "Failed to allocate malloc memory in NDB SQL program" << endl; exit(-1); } /* bind columns to program vars, converting all types to CHAR */ SQLBindCol(hstmt, i+1, SQL_C_CHAR, data[i], collen[i], &outlen[i]); } printf("\n"); /* Print vertical divider */ printf("|"); for (int i=0; i<nresultcols; i++) { SQLDescribeCol(hstmt, i+1, colname, sizeof(colname), &colnamelen, &coltype, &collen[i], &scale, &nullable); collen[i] = display_length(coltype, collen[i], colname); for (SQLUINTEGER j=0; j<collen[i]; j++) printf("-"); printf("--+"); } printf("\n"); /********************** * Display result rows **********************/ { int no_of_rows_fetched=0; while (1) { rc=SQLFetch(hstmt); errmsg[0] = '\0'; if (rc == SQL_ERROR) { print_err(SQL_HANDLE_STMT, hstmt); break; } if (rc == SQL_NO_DATA) break; if (rc == SQL_SUCCESS) { printf("|"); for (int i=0; i<nresultcols; i++) { if (outlen[i] == SQL_NULL_DATA || outlen[i] >= (SQLINTEGER) collen[i]) build_indicator_message(errmsg, (SQLPOINTER *)data[i], collen[i], &outlen[i], i); (void)printf(" %*.*s |", (int)collen[i], (int)collen[i], (char *)data[i]); } /* print any truncation messages */ (void)printf("\n%s", (char *)errmsg); } else if (rc == SQL_SUCCESS_WITH_INFO) { printf("|"); for (int i=0; i<nresultcols; i++) { if (outlen[i] == SQL_NULL_DATA || outlen[i] >= (SQLINTEGER) collen[i]) build_indicator_message(errmsg, (SQLPOINTER *)data[i], collen[i], &outlen[i], i); (void)printf(" %*.*s |", (int)collen[i], (int)collen[i], (char *)data[i]); } /* for all columns in this row */ /* print any truncation messages */ (void)printf("\n%s", (char *)errmsg); } no_of_rows_fetched++; } /* while rows to fetch */ /* Print vertical divider */ printf("|"); for (int i=0; i<nresultcols; i++) { SQLDescribeCol(hstmt, i+1, colname, sizeof(colname), &colnamelen, &coltype, &collen[i], &scale, &nullable); collen[i] = display_length(coltype, collen[i], colname); for (SQLUINTEGER j=0; j<collen[i]; j++) printf("-"); printf("--+"); } printf("\n"); ndbout << no_of_rows_fetched << " rows fetched" << endl; } SQLCloseCursor(hstmt); break; /* searched DELETE, INSERT or searched UPDATE statement */ case SQL_DIAG_DELETE_WHERE: case SQL_DIAG_INSERT: case SQL_DIAG_UPDATE_WHERE: /* check rowcount */ SQLRowCount(hstmt, (SQLINTEGER*)&rowcount); ndbout << (int)rowcount << " rows affected" << endl; break; /* other statements */ case SQL_DIAG_ALTER_TABLE: case SQL_DIAG_CREATE_TABLE: case SQL_DIAG_CREATE_VIEW: case SQL_DIAG_DROP_TABLE: case SQL_DIAG_DROP_VIEW: case SQL_DIAG_CREATE_INDEX: case SQL_DIAG_DROP_INDEX: case SQL_DIAG_DYNAMIC_DELETE_CURSOR: case SQL_DIAG_DYNAMIC_UPDATE_CURSOR: case SQL_DIAG_GRANT: case SQL_DIAG_REVOKE: ndbout << "Operation successful" << endl; break; /* implementation-defined statement */ default: (void)printf("Unknown Statement type=%ld\n", stmttype); break; } /* free data buffers */ for (int i=0; i<nresultcols; i++) { (void)free(data[i]); } SQLFreeHandle(SQL_HANDLE_STMT, hstmt); // free statement handle return(0); }
/*-----------------------------------------------------------------*/ int main() { SQLCHAR InputParam[25] = "Special Instructions"; SQLINTEGER Indicator = SQL_DATA_AT_EXEC; GET_LOGIN_VARS(); VERBOSE("calling SQLAllocHandle(EnvHandle) \n"); rc = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &EnvHandle); assert(rc == SQL_SUCCESS); assert(EnvHandle != (SQLHANDLE) NULL); rc = SQLSetEnvAttr(EnvHandle, SQL_ATTR_ODBC_VERSION, (SQLPOINTER) SQL_OV_ODBC3, SQL_IS_UINTEGER); assert(rc == SQL_SUCCESS); VERBOSE("calling SQLAllocHandle(ConHandle) \n"); rc = SQLAllocHandle(SQL_HANDLE_DBC, EnvHandle, &ConHandle); assert(ConHandle != (SQLHANDLE) NULL); assert(rc == SQL_SUCCESS); if (dsn[0]) rc = SQLDriverConnect(ConHandle, NULL, dsn, SQL_NTS, NULL, 0, NULL, SQL_DRIVER_NOPROMPT); else rc = SQLConnect(ConHandle, twoTask, SQL_NTS, (SQLCHAR *) userName, SQL_NTS, (SQLCHAR *) pswd, SQL_NTS); assert(rc == SQL_SUCCESS || rc == SQL_SUCCESS_WITH_INFO); VERBOSE("connected to database %s\n", twoTask); rc = SQLAllocStmt(ConHandle, &StmtHandle); assert(rc == SQL_SUCCESS); sprintf(SQLStmt, "drop table blob_test"); rc = SQLExecDirect(StmtHandle, SQLStmt, SQL_NTS); sprintf(SQLStmt, "create table blob_test (an_int integer primary key, a_blob"); if (strstr(dsn, "DSN=psql")) strcat(SQLStmt, " bytea ) "); else if (strstr(dsn, "DSN=mysql")) strcat(SQLStmt, " blob ) "); else strcat(SQLStmt, " long raw ) "); rc = SQLExecDirect(StmtHandle, SQLStmt, SQL_NTS); //if(rc == SQL_SUCCESS) // VERBOSE("success: executed statement: %s \n", SQLStmt); // Define An INSERT SQL Statement That Contains A // Data-At-Execution Parameter strcpy((char *)SQLStmt, "INSERT INTO blob_test "); strcat((char *)SQLStmt, "(an_int, a_blob"); strcat((char *)SQLStmt, " ) VALUES "); strcat((char *)SQLStmt, "(1, ?)"); // Prepare The SQL Statement rc = SQLPrepare(StmtHandle, SQLStmt, SQL_NTS); // Bind The Parameter Marker In The SQL Statement To A // Local Application Variable - This Parameter Will Use // SQLParamData() And SQLPutData() To Send Data In Pieces // (Note: The Column Size Is 200 Characters) rc = SQLBindParameter(StmtHandle, 1, SQL_PARAM_INPUT, SQL_C_BINARY, SQL_CHAR, 200, 0, (SQLPOINTER) InputParam, CHUNKSIZE, &Indicator); // Execute The SQL Statement rc = SQLExecute(StmtHandle); // The Return Code SQL_NEED_DATA Should Be Returned, // Indicating That SQLParamData() And SQLPutData() Need // To Be Called assert(rc == SQL_NEED_DATA); rc = SendLongData(); assert(rc == SQL_SUCCESS); // Free The SQL Statement Handle if (StmtHandle != NULL) SQLFreeHandle(SQL_HANDLE_STMT, StmtHandle); // Disconnect From The Northwind Sample Database rc = SQLDisconnect(ConHandle); return rc; }