DECLARE SHORT SQLDrivers IN odbc32;
    INTEGER   EnvironmentHandle,;
    INTEGER   Direction,;
    STRING  @ DriverDescription,;
    INTEGER   BufferLength1,;
    INTEGER @ DescriptionLengthPtr,;
    INTEGER   DriverAttributes,;
    INTEGER   BufferLength2,;
    INTEGER   AttributesLengthPtr 


LOCAL lnRet, lnEnvHandle, lcDriver, lnBufferLen, lnCount, laDrivers[1]
lnEnvHandle = VAL(SYS(3053))
lnBufferLen = 1024
lcDriver = REPLICATE(CHR(0),lnBufferLen)
lnRet = SQLDrivers(lnEnvHandle, 2, @lcDriver, lnBufferLen, @lnBufferLen, 0, 0, 0)

lnCount = 1
DO WHILE lnRet = 0
	DIMENSION laDrivers[lnCount]
	laDrivers[lnCount] = LEFT(lcDriver,lnBufferLen)
	lnCount = lnCount + 1 
	lnBufferLen = 1024
	lcDriver = REPLICATE(CHR(0),lnBufferLen)
	lnRet = SQLDrivers(lnEnvHandle, 1, @lcDriver, lnBufferLen, @lnBufferLen, 0, 0, 0)
ENDDO

?'MySql ODBC driver is ' + IIF(ASCAN(laDrivers,'MySQL',1,-1,1,1+4+8) > 0,'installed','not installed')