How To Programmatically Set the Compatibility Level of the SQL Server ODBC Driver

gnconnhandle=SQLCONNECT("MY_SERVER",'sa','')
MyVal=100
? SQLEXEC(gnconnhandle,'pubs..byroyalty ?MyVal')
=SQLDISCONN(gnconnhandle)
						

   PARAMETER myapp_name
   myapp_name=alltrim(myapp_name)
   #DEFINE	DLL_ADVAPI             "ADVAPI32.DLL"
   * Registry roots
   #DEFINE HKEY_LOCAL_MACHINE     -2147483646  && BITSET(0,31)+2
   * Registry Path
#DEFINE ODBC_DRVR_CMP "Software\Microsoft\MSSQLServer\Client\ODBCAppCompat"
   * Error Codes
   #DEFINE ERROR_SUCCESS           0        && OK
   #DEFINE ERROR_EOF             259        && No more entries in key.
   * Data types for keys
   #DEFINE REG_SZ                  1        && Data string.
   #DEFINE REG_EXPAND_SZ           2        && Unicode string.
   #DEFINE REG_BINARY              3        && Binary data in any form.
   #DEFINE REG_DWORD               4        && A 32-bit number.
   * Data types labels
   #DEFINE REG_BINARY_LOC  "*Binary*"       && Binary data in any form.
   #DEFINE REG_DWORD_LOC   "*Dword*"        && A 32-bit number.
   #DEFINE REG_UNKNOWN_LOC "*Unknown type*" && Unknown type.

   * Declare API Functions
   * Declare RegOpenKey to open registry key
   DECLARE INTEGER RegOpenKey IN DLL_ADVAPI INTEGER hKey, ;
      STRING lpSubKey, INTEGER @phkResult

   * Declare RegCreateKey in case a new key is necessary
   DECLARE INTEGER RegCreateKey IN DLL_ADVAPI ;
      INTEGER nHKey, STRING @cSubKey, INTEGER @nResult

   * Declare RegSetValueEx to allow setting a registry value
   DECLARE INTEGER RegSetValueEx IN DLL_ADVAPI ;
      INTEGER hKey, STRING lpszValueName, INTEGER dwReserved,;
      INTEGER fdwType, STRING lpbData, INTEGER cbData

   * Declare RegEnumValue to allow examination of registry values
   DECLARE INTEGER RegEnumValue IN DLL_ADVAPI ;
      INTEGER hKey, INTEGER iValue, STRING @lpszValue, ;
      INTEGER @lpcchValue, INTEGER lpdwReserved, INTEGER @lpdwType, ;
      STRING @lpbData, INTEGER @lpcbData

   * Declare RegCloseKey to close the registry key when done
   DECLARE INTEGER RegCloseKey IN dll_advapi INTEGER hKey

   * End of API Declares
   PUBLIC phkResult
   phkResult=0
   l_Key_Value_Exists=.F.
   l_Key_Exists=.F.
   l_Key_Exists=Check_For_Key(HKEY_LOCAL_MACHINE,ODBC_DRVR_CMP)
   IF l_Key_Exists
      l_Key_Value_Exists=Check_For_Value(myapp_name)
      IF !l_Key_Value_Exists
         nErrCode = RegSetValueEx(phkResult,myapp_name,0,;
            REG_SZ,"6.50",3)
      ENDIF
   ENDIF
   nErrCode = RegCloseKey(phkResult)
   CLEAR DLLS
   RETURN

   PROCEDURE Check_For_Key
      PARAMETER nClass_Root, cSubKey
      nErrCode=RegOpenKey(HKEY_LOCAL_MACHINE,cSubKey,@phkResult)
      IF phkResult!=0
         RETURN .T.
      ELSE
         nErrCode=RegCreateKey(HKEY_LOCAL_MACHINE,@cSubKey,@phkResult)
         RETURN .T.
      ENDIF

   PROCEDURE Check_For_Value
      PARAMETER cProgName
      nKeyEntry=0
      DO WHILE .T.
         STORE 0 TO lpdwReserved,lpdwType,nErrCode
         STORE SPACE(256) TO lpbData, lpszValue
         STORE LEN(lpbData) TO m.lpcchValue
         STORE LEN(lpszValue) TO m.lpcbData
         nErrCode=RegEnumValue(phkResult,nKeyEntry,@lpszValue,;
            @lpcchValue,m.lpdwReserved,@lpdwType,@lpbData,@lpcbData)
         DO CASE
            CASE nErrCode = ERROR_EOF
               EXIT
            CASE nErrCode # ERROR_SUCCESS
               EXIT
         ENDCASE
         nKeyEntry = nKeyEntry + 1
         * Set array values
         DIMENSION aKeyValues[m.nKeyEntry,2]
         aKeyValues[m.nKeyEntry,1] = LEFT(m.lpszValue,m.lpcchValue)
         aKeyValues[m.nKeyEntry,2] = LEFT(m.lpbData,m.lpcbData-1)
      ENDDO
      retval=.F.
      IF nKeyEntry>0
         FOR i=1 TO ALEN(aKeyValues,1)
            IF UPPER(aKeyValues[i,1])=UPPER(cProgName)
               retval=.T.
               EXIT
            ENDIF
         NEXT
      ENDIF
      RETURN retval