>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') >Hi Christian..