SQLHSTMT ODBC::CreateQuery( const char* sql )
{
SQLHSTMT hstmt = 0;
if( (int)pSQLAllocHandle( SQL_HANDLE_STMT, hdbc, &hstmt ) != SQL_ERROR )
if( (int)pSQLPrepareA( hstmt, (SQLCHAR*) sql, SQL_NTS ) != SQL_ERROR )
return hstmt;
CloseQuery(hstmt);
return 0;
}
// Runs a query that counts a row and returns the result
int _Database::RunCountQuery(const char *TQueryString) {
RunDataQuery(TQueryString);
FetchRow();
int Count = GetInt(0);
CloseQuery();
return Count;
}
SQLHSTMT ODBC::ExecuteSql( const char* sqltext, const char* format, ... )
{
int ior; // 0 - in, 1 - out, 2 - ret, возращаемое значение процедурой
int inum = 1, // номер входного параметра
onum = 1; // номер выходного параметра
SQLSMALLINT typeSql, // тип параметра дл¤ базы данных
typeCpp; // тип параметра дл¤ c++
SQLUINTEGER clnsz; // размер пол¤ дл¤ некоторых типов
SQLSMALLINT digits; // чисел после зап¤той дл¤ некоторых типов
SQLLEN sqlNTS = SQL_NTS; //строка завершаетс¤ 0
SQLLEN sqlNullData = SQL_NULL_DATA; //передаем Null
int tsz; // размер типа в байтах
va_list va;
va_start( va, format );
SQLHSTMT qr = CreateQuery(sqltext);
while( format && *format )
{
while( *format == ' ' ) format++;
switch( *format++ )
{
case 'i': ior = 0; break;
case 'o': ior = 1; break;
case 'r': ior = 2; break;
case '!': ior = -1; break;
}
typeCpp = 0; clnsz = 0; digits = 0;
bool null = false;
SQLPOINTER ptr = va_arg( va, SQLPOINTER );
SQLLEN* strLenOrNull = 0;
if( ior >= 0 )
{
// если надо дл¤ получаемых данных узнать их длину или узнать, равно ли это
// значение NULL (длина = -1)
if( *format == '0' ) format++, null = true;
switch( *format++ )
{
case 'b': typeSql = SQL_CHAR; typeCpp = SQL_C_UTINYINT; tsz = sizeof(char); break;
case 'c': typeSql = SQL_CHAR; typeCpp = SQL_C_STINYINT; tsz = sizeof(char); break;
case 'i': typeSql = SQL_INTEGER; typeCpp = SQL_C_SLONG; tsz = sizeof(int); break;
case 'u':
switch( *format++ )
{
case ' ':
case 0 : typeSql = SQL_INTEGER; typeCpp = SQL_C_ULONG; tsz = sizeof(int); break;
case 'h': typeSql = SQL_SMALLINT; typeCpp = SQL_C_USHORT; tsz = sizeof(short); break;
}
break;
case 'd': typeSql = SQL_DOUBLE; typeCpp = SQL_C_DOUBLE; tsz = sizeof(double); break;
case 'f': typeSql = SQL_REAL; typeCpp = SQL_C_FLOAT; tsz = sizeof(float); break;
case 's':
typeSql = SQL_CHAR; typeCpp = SQL_C_CHAR;
clnsz = tsz = gettsz(&format);
strLenOrNull = &sqlNTS;
break;
case 'h': typeSql = SQL_SMALLINT; typeCpp = SQL_C_SSHORT; tsz = sizeof(short); break;
case 't':
typeSql = SQL_TYPE_TIMESTAMP; typeCpp = SQL_TYPE_TIMESTAMP; tsz = sizeof(TIMESTAMP_STRUCT);
if( ((TIMESTAMP_STRUCT*)ptr)->year == 0 )
strLenOrNull = &sqlNullData;
break;
case 'r':
typeSql = SQL_LONGVARBINARY; typeCpp = SQL_C_BINARY;
clnsz = tsz = gettsz(&format);
break;
}
}
// если возращаемое значение равно NULL, то его длина равна -1, поэтому нужно
// в таких случа¤х об¤зательно передавать указатель дл¤ сохранени¤ длины, иначе
// при встрече NULL ODBC выдаст ошибку
SQLLEN* len = null ? va_arg( va, SQLLEN* ) : &lenForNull;
if( ior == 0 && null ) strLenOrNull = len;
switch( ior )
{
case -1:
break;
case 0:
if( (int)pSQLBindParameter( qr, inum++, SQL_PARAM_INPUT, typeCpp, typeSql, clnsz, digits, ptr, 0, strLenOrNull ) == SQL_ERROR )
{
DBG( "ODBC", "Error in param %d" );
}
break;
case 1:
pSQLBindCol( qr, onum++, typeCpp, ptr, tsz, len );
break;
case 2:
pSQLBindParameter( qr, inum++, SQL_PARAM_OUTPUT, typeCpp, typeSql, clnsz, digits, ptr, 0, 0 );
break;
}
}
va_end(va);
if( (SQLRETURN)pSQLExecute(qr) != SQL_ERROR )
if( onum > 1 ) //есть выходные пол¤
{
if( NextRow(qr) )
return qr;
}
else
return qr;
PrintQueryError(qr);
CloseQuery(qr);
return 0;
}
