str_podkl="Driver={SQL Server Native Client 10.0};Server=125.67.89.10;Database=RB_SAROV;UID=qwerty;PWD=trewq;"
pConnect = Sqlstringconnect(str_podkl)
SQLExec(pConnect,"select * from DOM","asd")
select asd
BROWSE

#DEFINE ERROR_SUCCESS        0    && OK
#DEFINE SQL_FETCH_NEXT        1
#DEFINE SQL_NO_DATA            100
#DEFINE ERROR_ODBCFAIL      "ERROR_ODBCFAIL"

        LOCAL nODBCEnv,nRetVal,dsn,dsndesc,mdsn,mdesc,cMySqlName,aDrvrs,n1Time
        DECLARE Short SQLDrivers IN ODBC32.dll ;
            Integer henv, Integer fDirection, ;
            String @ szDriverDesc, Integer cbDriverDescMax, Integer pcbDriverDesc, ;
            String @ szDriverAttributes, Integer cbDrvrAttrMax, Integer pcbDrvrAttr
            
        cMySqlName=""

        * Get ODBC environment handle
        nODBCEnv=VAL(SYS(3053))

        * -- Possible error messages
        * 527 "cannot load odbc library"
        * 528 "odbc entry point missing"
        * 182 "not enough memory"

        IF INLIST(nODBCEnv,527,528,182)
            ERROR " ошибка nODBCEnv - получение списка драйверов ODBC"
            RETURN ERROR_ODBCFAIL
        ENDIF
            dsn=space(100)
            dsndesc=space(100)
            mdsn=0
            mdesc=0
            nRetVal = SQLDrivers(m.nODBCEnv,0,@dsn,100,@mdsn,@dsndesc,100,@mdesc)
        DIMENSION aDrvrs[1,1]
        aDrvrs[1] = ""
        DO WHILE .T.
            dsn=space(100)
            dsndesc=space(100)
            mdsn=0
            mdesc=0
            *SET STEP ON 
            * Return drivers 
            nRetVal = SQLDrivers(m.nODBCEnv,SQL_FETCH_NEXT,@dsn,100,@mdsn,@dsndesc,100,@mdesc)
            IF "MySQL ODBC"$m.dsn
                cMySqlName=ALLTRIM(m.dsn)
                cMySqlName=STRTRAN(cMySqlName,CHR(0),"")
                *EXIT && нашелся ...
            ENDIF 
                
            DO CASE
            CASE m.nRetVal = SQL_NO_DATA
                nRetVal = ERROR_SUCCESS
                EXIT
            CASE m.nRetVal # ERROR_SUCCESS AND m.nRetVal # 1 
                EXIT
            OTHERWISE
                IF !EMPTY(aDrvrs[1])
                    DIMENSION aDrvrs[ALEN(aDrvrs,1)+1,1]
                ENDIF
                dsn = ALLTRIM(m.dsn)
                aDrvrs[ALEN(aDrvrs,1),1] = LEFT(m.dsn,LEN(m.dsn)-1)
            ENDCASE
        ENDDO

IF EMPTY(cMySqlName)    &&тады страхуемся из сетапа
    cMySqlName=setupread("MySqlDriverName")
ENDIF 

IF EMPTY(cMySqlName)
    ERROR "не удалось определить имя драйвера MySQL ни автоматом ни черезнастройки, установите его или если он есть в системе попробуйте происать его вручнут в настройке MySqlDriverName"
ENDIF 

*?cMySqlName
RETURN cMySqlName

sDrv=getmysqlodbcdrivername() && это то что выше функия
sCon="DRIVER="+sDrv+";DB="+oApp.baza+";SERVER="+oApp.server+";UID="+oApp.user+";PASSWORD="+oApp.pass+";PORT=3306;OPTION=16387;CHARSET=cp1251;"

cCmd="set character_set_client='cp1251'"
SQLEXEC(nH,cCmd)
cCmd="set character_set_results='cp1251'"
SQLEXEC(nH,cCmd)
cCmd="set collation_connection='cp1251_general_ci'"
SQLEXEC(nH,cCmd)

*regfile = "registry.prg"
*regfile = "D:\vfp8\Samples\Classes\registry.prg"

SET PROCEDURE TO registry.prg ADDITIVE
oReg = CreateObject("ODBCReg")

DIMENSION aODBCData[1]
m.nErrNum = oReg.GetODBCDrvrs(@aODBCData,.T.)
FOR nI=1 TO ALEN(aODBCData,1)
        ?aODBCData[nI,1],aODBCData[nI,2]
NEXT