Can't connect to MySQL server - (Moved)

[ajag]

I use the UDF from Prog@ndy and have no issues  https://www.autoitscript.com/forum/index.php?showtopic=85617
 

; (put libmysql.dll and mysql.au3 into the sktipt directory)
#include ".\mysql.au3"

Func _connectDB()
    Local $DB_HOST = "xxxxx"
    Local $DB_PORT = "12345"
    Local $DB_DATABASE = "dddddd"
    Local $DB_USER = "uuuuuu"
    Local $DB_PASS = "pppppp"

    _MySQL_InitLibrary()
    If @error Then Return SetError(1, 0, 0)

    Local $connection = _MySQL_Init()
    If $connection = 0 Then Return SetError(2, 0, 0)

    Local $connected = _MySQL_Real_Connect($connection, $DB_HOST, $DB_USER, $DB_PASS, $DB_DATABASE, $DB_PORT)
    If $connected = 0 Then Return SetError(3, 0, 0)

    Return SetError(0, 0, $connection)
EndFunc

Func _disconnectDB($connection)
    _MySQL_Close($connection)
    _MySQL_EndLibrary()
EndFunc   ;==>_CloseDatabase

 

[20Ice18]

I cannot find the link to the udf, the german link that is suppose to work does bring me to the udf





 and the original link also doesn't work

Edited June 15 by 20Ice18

[mLipok]

1 hour ago, 20Ice18 said:

this in console 

 

==> The requested action with this object has failed.:
$oConnection.Open($sConnectionString)
$oConnection^ ERROR

 

It is quite strange.
I think problem occurs in _ADO_Connection_Create()

try this modified code:

;includes...
;variables...

_ADO_ComErrorHandler_UserFunction(_ADO_COMErrorHandler)
_Example2()

Func _Example2()
    Local $oConnection = _ADO_Connection_Create()
    If @error Then ConsoleWrite("! ---> @error=" & @error & "  @extended=" & @extended & _
            " : _ADO_Connection_Create()" & @CRLF)
    ConsoleWrite('VarGetType=' & VarGetType($oConnection) & @CRLF)
    ConsoleWrite('ObjName=' & ObjName($oConnection) & @CRLF)
    
    Local $sConnectionString = "Server=" & $sServer  & "; Database=" & $sDatabase & "; Uid=" & $sUsername & "; Pwd=" & $sPassword & ";"
    _ADO_Connection_OpenConString($oConnection, $sConnectionString)
    If @error Then 
        Return SetError(@error, @extended, $ADO_RET_FAILURE)
    Else 
        MsgBox(1,  ":D",  "working")
    EndIf

    ; CleanUp
    _ADO_Connection_Close($oConnection)
    $oConnection = Null

    _ADO_REcordset_Display($aRecordset, $sTableName & '  - Recordset content')

EndFunc    ;==>_Example2

 

[20Ice18]

1 minute ago, mLipok said:

try this modified code

this was in console this time:

Starting file temprun.au3...

VarGetType=Object
ObjName=_Connection
"ADO.au3" (731) : ==> The requested action with this object has failed.:
$oConnection.Open($sConnectionString)
$oConnection^ ERROR

temprun.au3 -> Exit Code: 1 (Runtime: 2.81 sec)

 

[mLipok]

please try also:

    ConsoleWrite('VarGetType=' & VarGetType($oConnection) & @CRLF)
    ConsoleWrite('IsObj=' & IsObj($oConnection) & @CRLF)
    ConsoleWrite('ObjName=' & ObjName($oConnection, $OBJ_NAME) & @CRLF)
    ConsoleWrite('ObjName=' & ObjName($oConnection, $OBJ_STRING) & @CRLF)
    ConsoleWrite('ObjName=' & ObjName($oConnection, $OBJ_PROGID) & @CRLF)

 

Edited June 15 by mLipok

[20Ice18]

#includes...
#variables...

_ADO_ComErrorHandler_UserFunction(_ADO_COMErrorHandler)
_Example2()

Func _Example2()
    Local $oConnection = _ADO_Connection_Create()
    If @error Then ConsoleWrite("! ---> @error=" & @error & "  @extended=" & @extended & _
            " : _ADO_Connection_Create()" & @CRLF)
    ConsoleWrite('VarGetType=' & VarGetType($oConnection) & @CRLF)
    ConsoleWrite('ObjName=' & ObjName($oConnection) & @CRLF)
    ConsoleWrite('VarGetType=' & VarGetType($oConnection) & @CRLF)
    ConsoleWrite('ObjName=' & ObjName($oConnection, $OBJ_NAME) & @CRLF)
    ConsoleWrite('ObjName=' & ObjName($oConnection, $OBJ_STRING) & @CRLF)
    ConsoleWrite('ObjName=' & ObjName($oConnection, $OBJ_PROGID) & @CRLF)
    
    Local $sConnectionString = "Server=" & $sServer  & "; Database=" & $sDatabase & "; Uid=" & $sUsername & "; Pwd=" & $sPassword & ";"
    _ADO_Connection_OpenConString($oConnection, $sConnectionString)
    If @error Then 
        Return SetError(@error, @extended, $ADO_RET_FAILURE)
    Else 
        MsgBox(1,  ":D",  "working")
    EndIf

    ; CleanUp
    _ADO_Connection_Close($oConnection)
    $oConnection = Null

    _ADO_REcordset_Display($aRecordset, $sTableName & '  - Recordset content')

EndFunc    ;==>_Example2

got this in console :
 

VarGetType=Object
ObjName=_Connection
VarGetType=Object
ObjName=_Connection
ObjName=
ObjName=ADODB.Connection.6.0
"ADO.au3" (731) : ==> The requested action with this object has failed.:
$oConnection.Open($sConnectionString)
$oConnection^ ERROR

 

[Andreik]

I usually work with the native SQL Server driver. Check if it's installed (the result of Get_ODBC_Drivers() function) and then try this code and let me know the result:

expandcollapse popup

#include <Array.au3>

$oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

$Username = 'sa'
$Password = '<password>'

_ArrayDisplay(Get_ODBC_Drivers())

Local $oADODB = ObjCreate('ADODB.Connection')
;~ $oADODB.Open('Provider=SQLNCLI11;Server=localhost;Database=master;Integrated Security=SSPI;')    ; Windows authentication
$oADODB.Open('Provider=SQLNCLI11;Server=localhost;Database=master;', $Username, $Password)      ; SQL Server authentication
$oRowset = $oADODB.Execute('SELECT TOP 5 * FROM sys.all_columns')
$aData = $oRowset.GetRows()

_ArrayDisplay($aData)

Func _ErrFunc($oError)
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc

Func Get_ODBC_Drivers($x64 = False)
    Local $sDrivers, $sDriver, $iInstance = 1
    Do
        $sDriver = RegEnumVal('HKLM' & ($x64 ? '64' : '') & '\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers', $iInstance)
        If $sDriver Then $sDrivers &= $sDriver & Chr(1)
        $iInstance += 1
    Until Not $sDriver
    Return StringSplit(StringTrimRight($sDrivers, 1), Chr(1))
EndFunc

 

[20Ice18]

11 minutes ago, Andreik said:

Provider=SQLNCLI11

its unknown provider:

temprun.au3 (14) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Exception occurred.

    err.description is:     Provider cannot be found. It may not be properly installed.
    err.source is:      ADODB.Connection
    err.helpfile is:    C:\Windows\HELP\ADO270.CHM
    err.helpcontext is:     1240655
    err.lastdllerror is:    0
    err.scriptline is:  14
    err.retcode is:     0x800A0E7A

temprun.au3 (15) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Exception occurred.

    err.description is:     Operation is not allowed when the object is closed.
    err.source is:      ADODB.Connection
    err.helpfile is:    C:\Windows\HELP\ADO270.CHM
    err.helpcontext is:     1240653
    err.lastdllerror is:    0
    err.scriptline is:  15
    err.retcode is:     0x800A0E78

temprun.au3 (16) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  16
    err.retcode is:     0x00000000

 

Edited June 15 by 20Ice18

[bogQ]

https://dev.mysql.com/downloads/file/?id=517870     32-bit driver for 32bit autoit

or direct link https://dev.mysql.com/get/Downloads/Connector-ODBC/8.0/mysql-connector-odbc-8.0.33-win32.msi

 

#include "ADO.au3"
#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <AutoItConstants.au3>

_Example_ListProperties()

Func _Example_ListProperties()
    Local $sConnectionString = _ADO_ConnectionString_MySQL('root', '', 'test', 'MySQL ODBC 8.0 ANSI Driver', 'localhost', '3306')
    Local $oConnection = _ADO_Connection_Create()
    _ADO_Connection_OpenConString($oConnection, $sConnectionString)
    If @error Then MsgBox(0,@error,@extended)
    Local $aRecordset = _ADO_Execute($oConnection, "SELECT * FROM testtable", True)
    If @error Then MsgBox(0,@error,@extended)
    _ADO_Connection_Close($oConnection)
    $oConnection = Null
    _ADO_Recordset_Display($aRecordset, 'Recordset content')
    If @error Then MsgBox(0,@error,@extended)
EndFunc   ;==>_Example_2_RecordsetDisplay

Edited June 15 by bogQ

[mLipok]

next snippet to test:

expandcollapse popup

#include <Array.au3>
#include "ADO.au3"

#variables...

$oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
_ArrayDisplay(Get_ODBC_Drivers())

Local $sConnectionString = "Server=" & $sServer  & "; Database=" & $sDatabase & "; Uid=" & $sUsername & "; Pwd=" & $sPassword & ";"
Local $oConnection = ObjCreate('ADODB.Connection')
$oConnection.Open($sConnectionString)      ; SQL Server authentication
Local $s_QUERY = 
$oRowset = $oConnection.Execute($s_QUERY)
$aData = $oRowset.GetRows()

_ArrayDisplay($aData, 'TEST 1')

$aData = _ADO_Execute($oConnection, '$s_QUERY', True,True)
_ArrayDisplay($aData, 'TEST 2')

Func _ErrFunc($oError)
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc

Func Get_ODBC_Drivers($x64 = False)
    Local $sDrivers, $sDriver, $iInstance = 1
    Do
        $sDriver = RegEnumVal('HKLM' & ($x64 ? '64' : '') & '\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers', $iInstance)
        If $sDriver Then $sDrivers &= $sDriver & Chr(1)
        $iInstance += 1
    Until Not $sDriver
    Return StringSplit(StringTrimRight($sDrivers, 1), Chr(1))
EndFunc

EDIT:
here I use modfied @Andreik example.

As you can see we are using the same $oConnection but in different ways we get data.

Local $sConnectionString = "Server=" & $sServer  & "; Database=" & $sDatabase & "; Uid=" & $sUsername & "; Pwd=" & $sPassword & ";"
Local $oConnection = ObjCreate('ADODB.Connection')
$oConnection.Open($sConnectionString)      ; SQL Server authentication
Local $s_QUERY = 
$oRowset = $oConnection.Execute($s_QUERY)
$aData = $oRowset.GetRows()

_ArrayDisplay($aData, 'TEST 1')

$aData = _ADO_Execute($oConnection, '$s_QUERY', True,True)
_ArrayDisplay($aData, 'TEST 2')

 

Edited June 15 by mLipok

[20Ice18]

4 minutes ago, mLipok said:

next snippet to test:

output:
 

expandcollapse popup

temprun.au3 (13) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Exception occurred.

    err.description is:     [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
    err.source is:      Microsoft OLE DB Provider for ODBC Drivers
    err.helpfile is:    
    err.helpcontext is:     0
    err.lastdllerror is:    0
    err.scriptline is:  13
    err.retcode is:     0x80004005

temprun.au3 (15) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Exception occurred.

    err.description is:     Operation is not allowed when the object is closed.
    err.source is:      ADODB.Connection
    err.helpfile is:    C:\Windows\HELP\ADO270.CHM
    err.helpcontext is:     1240653
    err.lastdllerror is:    0
    err.scriptline is:  15
    err.retcode is:     0x800A0E78

temprun.au3 (16) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  16
    err.retcode is:     0x00000000

temprun.au3 (886) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Exception occurred.

    err.description is:     Operation is not allowed when the object is closed.
    err.source is:      ADODB.Connection
    err.helpfile is:    C:\Windows\HELP\ADO270.CHM
    err.helpcontext is:     1240653
    err.lastdllerror is:    0
    err.scriptline is:  886
    err.retcode is:     0x800A0E78

 

[mLipok]

2 minutes ago, 20Ice18 said:

	err.description is: 	[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
	err.source is: 		Microsoft OLE DB Provider for ODBC Drivers
	err.helpfile is: 	

so we have to use:

Driver={MySQL ODBC 5.2 ANSI Driver};Server=myServerAddress;Port=3306;Database=myDataBase;User=myUsername;Password=myPassword;Option=3;

instead:

https://www.connectionstrings.com/mysql/

Specifying TCP port

Server=myServerAddress;Port=1234;Database=myDataBase;Uid=myUsername;Pwd=myPassword;

 

[mLipok]

17 minutes ago, bogQ said:

https://dev.mysql.com/downloads/file/?id=517870     32-bit driver for 32bit autoit

 

so we had to check this snippet:

expandcollapse popup

#include <Array.au3>
#include "ADO.au3"

#variables...

Local $s_QUERY = '' ; your query

$oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
_ArrayDisplay(Get_ODBC_Drivers())

Local $sDriver = "MySQL ODBC 8.0 ANSI Driver" ;https://dev.mysql.com/downloads/file/?id=517870     32-bit driver for 32bit autoit
Local $sConnectionString = "Driver=" & $sDriver & ";" &"Server=" & $sServer  & "; Database=" & $sDatabase & "; Uid=" & $sUsername & "; Pwd=" & $sPassword & ";"
Local $oConnection = ObjCreate('ADODB.Connection')
$oConnection.Open($sConnectionString)      ; SQL Server authentication
$oRowset = $oConnection.Execute($s_QUERY)
$aData = $oRowset.GetRows()

_ArrayDisplay($aData, 'TEST 1')

$aData = _ADO_Execute($oConnection, '$s_QUERY', True,True)
_ArrayDisplay($aData, 'TEST 2')

Func _ErrFunc($oError)
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc

Func Get_ODBC_Drivers($x64 = False)
    Local $sDrivers, $sDriver, $iInstance = 1
    Do
        $sDriver = RegEnumVal('HKLM' & ($x64 ? '64' : '') & '\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers', $iInstance)
        If $sDriver Then $sDrivers &= $sDriver & Chr(1)
        $iInstance += 1
    Until Not $sDriver
    Return StringSplit(StringTrimRight($sDrivers, 1), Chr(1))
EndFunc

 

REMARK: without testing ... I have no access to MySQL even not saving this file and not testing with TIDY/AU3check

Edited June 15 by mLipok

[Andreik]

38 minutes ago, 20Ice18 said:

its unknown provider:

temprun.au3 (14) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Exception occurred.

    err.description is:     Provider cannot be found. It may not be properly installed.
    err.source is:      ADODB.Connection
    err.helpfile is:    C:\Windows\HELP\ADO270.CHM
    err.helpcontext is:     1240655
    err.lastdllerror is:    0
    err.scriptline is:  14
    err.retcode is:     0x800A0E7A

temprun.au3 (15) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Exception occurred.

    err.description is:     Operation is not allowed when the object is closed.
    err.source is:      ADODB.Connection
    err.helpfile is:    C:\Windows\HELP\ADO270.CHM
    err.helpcontext is:     1240653
    err.lastdllerror is:    0
    err.scriptline is:  15
    err.retcode is:     0x800A0E78

temprun.au3 (16) : ==> COM Error intercepted !
    err.number is:      0x000000A9
    err.windescription: Variable must be of type 'Object'.
    err.description is:     
    err.source is:      
    err.helpfile is:    
    err.helpcontext is:     
    err.lastdllerror is:    0
    err.scriptline is:  16
    err.retcode is:     0x00000000

 

Install it  or let us know what drivers you already have.

[bogQ]

@mLipok about this line dono if itl work with no {}

so from

$sDriver = "MySQL ODBC 8.0 ANSI Driver"

to

$sDriver = "{MySQL ODBC 8.0 ANSI Driver}"

coz of clean in string usage?

Edited June 15 by bogQ

[Andreik]

4 minutes ago, mLipok said:

so we had to check this snippet:

expandcollapse popup

#include <Array.au3>
#include "ADO.au3"

#variables...

$oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
_ArrayDisplay(Get_ODBC_Drivers())

Local $sDriver = "MySQL ODBC 8.0 ANSI Driver" ;https://dev.mysql.com/downloads/file/?id=517870     32-bit driver for 32bit autoit
Local $sConnectionString = "Driver=" & $sDriver & ";" &"Server=" & $sServer  & "; Database=" & $sDatabase & "; Uid=" & $sUsername & "; Pwd=" & $sPassword & ";"
Local $oConnection = ObjCreate('ADODB.Connection')
$oConnection.Open($sConnectionString)      ; SQL Server authentication
Local $s_QUERY = 
$oRowset = $oConnection.Execute($s_QUERY)
$aData = $oRowset.GetRows()

_ArrayDisplay($aData, 'TEST 1')

$aData = _ADO_Execute($oConnection, '$s_QUERY', True,True)
_ArrayDisplay($aData, 'TEST 2')

Func _ErrFunc($oError)
    ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc

Func Get_ODBC_Drivers($x64 = False)
    Local $sDrivers, $sDriver, $iInstance = 1
    Do
        $sDriver = RegEnumVal('HKLM' & ($x64 ? '64' : '') & '\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers', $iInstance)
        If $sDriver Then $sDrivers &= $sDriver & Chr(1)
        $iInstance += 1
    Until Not $sDriver
    Return StringSplit(StringTrimRight($sDrivers, 1), Chr(1))
EndFunc

 

I still don't get this confusion. It's SQL Server or MySQL? They are not the same.

[20Ice18]

1 minute ago, Andreik said:

Install it  or let us know what drivers you already have.

I have 32 bit ODBC Driver 17 for SQL Server and SQL Server and 64 bit MySQL ODBC 8.0 ANSI Driver, MySQL ODBC 8.0 Unicode Driver, ODBC Driver 17 for SQL Server and SQL Server

I'm afraid that I  was using MySQL ODBC 8.0 ANSI Driver 64 bit on 32 bit Autoit. 

[20Ice18]

5 minutes ago, Andreik said:

I still don't get this confusion. It's SQL Server or MySQL? They are not the same

its supposed to be MySQL

[20Ice18]

I'm up to install 32 bit driver instead and I will update then 
just have to fix this issue first: 

Edited June 15 by 20Ice18

[Andreik]

For MySQL I use MySQL ODBC 8.0 Unicode Driver and connection string:

Quote

Driver={MySQL ODBC 8.0 Unicode Driver};Server=<server>;Database=<database>;User=<username>;Password=<password>;Port=3306;Option=10;

But again, you must have the driver that you use installed. Use this code to list the installed drivers and show us the result.

$aDriver = Get_ODBC_Drivers()

For $Index = 1 To $aDriver[0]
    ConsoleWrite($aDriver[$Index] & @CRLF)
Next

Func Get_ODBC_Drivers($x64 = False)
    Local $sDrivers, $sDriver, $iInstance = 1
    Do
        $sDriver = RegEnumVal('HKLM' & ($x64 ? '64' : '') & '\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers', $iInstance)
        If $sDriver Then $sDrivers &= $sDriver & Chr(1)
        $iInstance += 1
    Until Not $sDriver
    Return StringSplit(StringTrimRight($sDrivers, 1), Chr(1))
EndFunc

 

Edited June 15 by Andreik