void CFBDataBase::SetSQLBlob(const char* szTableName, const char* szFieldName, float* fArray, int iArLen){
        CString szString;
        
        szString.Format(_TEXT("INSERT INTO %s (%s) VALUES (?)"), szTableName, szFieldName);
        
        HSTMT hstmtInsert; 
        RETCODE nRetCode;
        SQLINTEGER nDataParam;
        nDataParam=SQL_DATA_AT_EXEC;
        SQLPOINTER pToken;
    
        nRetCode = SQLAllocHandle(SQL_HANDLE_STMT, m_Database.m_hdbc, &hstmtInsert); 
        
        if (nRetCode == SQL_SUCCESS || nRetCode == SQL_SUCCESS_WITH_INFO){
            nRetCode = SQLPrepare(hstmtInsert, (SQLCHAR*)(const char*)szString, SQL_NTS); 
                    
            if (nRetCode == SQL_SUCCESS || nRetCode == SQL_SUCCESS_WITH_INFO){
                nRetCode=::SQLBindParameter(hstmtInsert,  1 , SQL_PARAM_INPUT, SQL_C_BINARY, SQL_LONGVARBINARY,  0 ,  0 , (SQLPOINTER) 0 ,  0 , &nDataParam);
                if (nRetCode == SQL_SUCCESS || nRetCode == SQL_SUCCESS_WITH_INFO){
                
                    nRetCode = SQLExecute(hstmtInsert); 
                    while (nRetCode == SQL_NEED_DATA) {
                        nRetCode = SQLParamData(hstmtInsert, &pToken);
                        if (nRetCode == SQL_NEED_DATA){
                            SQLPutData(hstmtInsert, (SQLPOINTER)fArray, iArLen);
                        }
                    }

                }
                else    AfxThrowDBException(nRetCode, &m_Database, hstmtInsert);
            }
            else    AfxThrowDBException(nRetCode, &m_Database, hstmtInsert);
        }
        else        AfxThrowDBException(nRetCode, &m_Database, hstmtInsert);
        
        SQLFreeHandle(SQL_HANDLE_STMT, hstmtInsert); 
                
}

float * __stdcall CFBDataBase::GetSQLBLOB(const char* szSQLstr){

    CRecordset rs(&m_Database);
    CDBVariant v;
    float* fArray;
    
    try
    {
        rs.Open (CRecordset::forwardOnly, szSQLstr, CRecordset::readOnly);

        rs.GetFieldValue ("SPECTR", v);

        fArray = (float*)GlobalLock(v.m_pbinary->m_hData);
        
        GlobalUnlock(v.m_pbinary->m_hData);
        
        rs.Close();
        return fArray;
    }
    catch( CDBException* pEx)
    {
        pEx->ReportError();
        pEx->Delete();
    }

    return  0 ;
}