odbc mysql 5.3 connection problem

[faustf]

hi guy

i try to connect  db mysql   by odbc but  i  have  problem  with connection 

C:\Users\utente\Documents\CONNECTOR ODOO PRESTASHOP\autoit\postgres_odoo.au3" (14) : ==> The requested action with this object has failed.:
$objConn.Open('DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=127.0.0.1;DATABASE=bitnami_prestashop;UID=root;PWD=xxxxxx;PORT=3306')
$objConn^ ERROR

i try to use  for connecting  this  scritp 

 

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.14.2
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
; Only for SQL server
$objConn = ObjCreate("ADODB.Connection")
$objConn.Open('DRIVER={MySQL ODBC 5.3 Unicode Driver};SERVER=127.0.0.1;DATABASE=bitnami_prestashop;UID=root;PWD=kronos123;PORT=3306')
$rsCustomers = $objConn.Execute("SELECT * FROM ps_address")
With $rsCustomers
    While Not .EOF
        ConsoleWrite(.Fields("company").Value & " - " & .Fields("last_name").Value & @LF)
        .MoveNext
    WEnd
    .Close
EndWith
$objConn.Close

 

[mLipok]

Use COM Error Handler and show your console output.

Read about:

ObjEvent()

 

EDIT:
And I see one security issue with your script snippet

Edited February 18, 2016 by mLipok

[jchd]

Is the Prestashop DB Postgres or MySql ?  Tha's unclear from what you post.

[faustf]

postgress is only  name  i use  mysql db 

 

[faustf]

how  can i use  objeven? 

 

[faustf]

finally   very  nice  objeven  

--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
postgres_odoo.au3 (18) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Eccezione.

    err.description is:     [Microsoft][Driver Manager ODBC] Nome origine dati non trovato e driver predefinito non specificato.
    err.source is:      Microsoft OLE DB Provider for ODBC Drivers
    err.helpfile is:    
    err.helpcontext is:     0
    err.lastdllerror is:    0
    err.scriptline is:  18
    err.retcode is:     0x80004005

postgres_odoo.au3 (19) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Eccezione.

    err.description is:     L'operazione non è consentita se l'oggetto è chiuso.
    err.source is:      ADODB.Connection
    err.helpfile is:    C:\Windows\HELP\ADO270.CHM
    err.helpcontext is:     1240653
    err.lastdllerror is:    0
    err.scriptline is:  19
    err.retcode is:     0x800A0E78

"C:\Users\utente\Documents\CONNECTOR ODOO PRESTASHOP\autoit\postgres_odoo.au3" (20) : ==> Only Object-type variables allowed in a "With" statement.:
With $rsCustomers
With ^ ERROR

 

[mLipok]

This is English-language  forum.
Please translate non English statements (EDIT: I meant strings/words).

 

Edited February 18, 2016 by mLipok

[faustf]

--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
postgres_odoo.au3 (18) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Eccezione.

    err.description is:     [Microsoft][Driver Manager ODBC] 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:  18
    err.retcode is:     0x80004005

postgres_odoo.au3 (19) : ==> COM Error intercepted !
    err.number is:      0x80020009
    err.windescription: Eccezione.

    err.description is:     The operation is not allowed if 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:  19
    err.retcode is:     0x800A0E78

"C:\Users\utente\Documents\CONNECTOR ODOO PRESTASHOP\autoit\postgres_odoo.au3" (20) : ==> Only Object-type variables allowed in a "With" statement.:
With $rsCustomers
With ^ ERROR

 

[mLipok]

Did you read this here:

https://www.connectionstrings.com/mysql-connector-odbc-5-2/

??

 

 

[faustf]

yes  

i tryed  also  this  

On 64 bit machine

It seems we need to point on MSDASQL for the (32 bit) ODBC driver to work on 64 bit machines.

Provider=MSDASQL;Driver={MySQL ODBC 5.2 ANSI Driver};Server=localhost;
Database=myDataBase;User=myUsername;Password=myPassword;Option=3;

but  nothing 

 

[faustf]

i tryed  to do some  modify  

in this mode  not  appear  error  but not  work , not  list in console  

Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    Local $sUsername = 'root'
    Local $sPassword = 'xxxxx'
    Local $sDatabase = 'bitnami_prestashop'
    Local $sServer = '127.0.0.1'
    Local $sDriver = "{MySQL ODBC 5.3 ANSI Driver}"
    Local $iPort = 3306


    Local $v = StringMid($sDriver, 2, StringLen($sDriver) - 2)
    Local $key = "HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers", $val = RegRead($key, $v)
    If @error Or $val = "" Then
        SetError(2)
        Return 0
    EndIf
    $ObjConn = ObjCreate("ADODB.Connection")
    $ObjConn.ConnectionString = "DRIVER=" & $sDriver & ";SERVER=" & $sServer & ";DATABASE=" & $sDatabase & ";UID=" & $sUsername & ";PWD=" & $sPassword & ";PORT=" & $iPort
    $ObjConn.open()
    If @error Then
        SetError(1)
        Return 0
    Else
        Return $ObjConn
    EndIf

    $rsCustomers = $ObjConn.Execute("SELECT * FROM ps_address")
    With $rsCustomers
        While Not .EOF
            ConsoleWrite(.Fields("company").Value & " - " & .Fields("last_name").Value & @LF)
            .MoveNext
        WEnd
        .Close
    EndWith
    $ObjConn.Close

 

[mLipok]

This seams to be wrong

;UID=root;PWD=

 

Try like this:

User=myUsername;Password=myPassword

[faustf]

the  same  

[faustf]

expandcollapse popup

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.14.2
    Author:         myName

    Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
; Only for SQL server
;Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
#RequireAdmin

_MySQLConnect()

Func _MySQLConnect()
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    Local $sUsername = 'root'
    Local $sPassword = 'xxxxxxx'
    Local $sDatabase = 'bitnami_prestashop'
    Local $sServer = '127.0.0.1'
    Local $sDriver = "{MySQL ODBC 5.3 ANSI Driver}"
    Local $iPort = 3306


    $ObjConn = ObjCreate("ADODB.Connection")
    $ObjConn.ConnectionString = "DRIVER=" & $sDriver & ";SERVER=" & $sServer & ";DATABASE=" & $sDatabase & ";User=" & $sUsername & ";Password=" & $sPassword & ";PORT=" & $iPort
    $ObjConn.open()

    $rsCustomers = $ObjConn.Execute("SELECT * FROM ps_address")
    With $rsCustomers
        While Not .EOF
            ConsoleWrite(.Fields("company").Value & " - " & .Fields("last_name").Value & @LF)
            .MoveNext
        WEnd
        .Close
    EndWith
    $ObjConn.Close
EndFunc   ;==>_MySQLConnect

Func _ErrFunc($oError)
    ; Do anything here.
    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   ;==>_ErrFunc

the  same  

[faustf]

with this  configuration dont  work , and  not  appear  nothing error message

 

[mLipok]

Look here:

https://www.autoitscript.com/wiki/ADO_Tools

and tryt this:

expandcollapse popup

#cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.14.2
    Author:         myName

    Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
; Only for SQL server
;Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
#RequireAdmin

_MySQLConnect()

Func _MySQLConnect()
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    Local $sUsername = 'root'
    Local $sPassword = 'xxxxxxx'
    Local $sDatabase = 'bitnami_prestashop'
    Local $sServer = '127.0.0.1'
    Local $sDriver = "{MySQL ODBC 5.3 ANSI Driver}"
    Local $iPort = 3306


    $ObjConn = ObjCreate("ADODB.Connection")
    $ObjConn.ConnectionString = "DRIVER=" & $sDriver & ";SERVER=" & $sServer & ";DATABASE=" & $sDatabase & ";User=" & $sUsername & ";Password=" & $sPassword & ";PORT=" & $iPort
    $ObjConn.open()
    MsgBox(0, '$ObjConn.State', $ObjConn.State)

    $rsCustomers = $ObjConn.Execute("SELECT * FROM ps_address")
    With $rsCustomers
        While Not .EOF
            ConsoleWrite(.Fields("company").Value & " - " & .Fields("last_name").Value & @LF)
            .MoveNext
        WEnd
        .Close
    EndWith
    $ObjConn.Close
EndFunc   ;==>_MySQLConnect

Func _ErrFunc($oError)
    ; Do anything here.
    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   ;==>_ErrFunc

and what MsgBox says ?

 

[faustf]

message box return 0 

[mLipok]

;~ ObjectStateEnum
;~ https://msdn.microsoft.com/en-us/library/windows/desktop/ms675546(v=vs.85).aspx
Global Const $ADO_adStateClosed = 0 ;   The object is closed
Global Const $ADO_adStateOpen = 1 ;   The object is open
Global Const $ADO_adStateConnecting = 2 ;   The object is connecting
Global Const $ADO_adStateExecuting = 4 ;   The object is executing a command
Global Const $ADO_adStateFetching = 8 ;   The rows of the object are being retrieved

 

[faustf]

i played  the  first  script in wiki page   and i have  this  result  

Row|Registry key|OLE DB Provider|Description
[0]|HKCR\CLSID\{0C7FF16C-38E3-11d0-97AB-00C04FC2AD98}|SQLOLEDB|Microsoft OLE DB Provider for SQL Server
[1]|HKCR\CLSID\{2006C53A-C915-41EA-BAA9-9EAB3A1FBF97}|Microsoft SQL Server Compact OLE DB Provider for Windows|
[2]|HKCR\CLSID\{397C2819-8272-4532-AD3A-FB5E43BEAA39}|SQLNCLI11|SQL Server Native Client 11.0
[3]|HKCR\CLSID\{9E175B8B-F52A-11D8-B9A5-505054503030}|Windows Search Data Source|Microsoft OLE DB Provider for Search
[4]|HKCR\CLSID\{c8b522cb-5cf3-11ce-ade5-00aa0044773d}|MSDASQL|Microsoft OLE DB Provider for ODBC Drivers
[5]|HKCR\CLSID\{dee35070-506b-11cf-b1aa-00aa00b8de95}|Microsoft.Jet.OLEDB.4.0|Microsoft Jet 4.0 OLE DB Provider
[6]|HKCR\CLSID\{dfc8bdc0-e378-11d0-9b30-0080c7e9fe95}|MSDAOSP|Microsoft OLE DB Simple Provider
[7]|HKCR\CLSID\{e8cc4cbe-fdff-11d0-b865-00a0c9081c1d}|MSDAORA|Microsoft OLE DB Provider for Oracle
[8]|HKCR\CLSID\{FB4CDF30-A741-421d-BCFA-6CC530D053FB}|Microsoft.SQLLITE.MOBILE.OLEDB.3.0|

the  question is  but in  this  list i could see a mysql ??  right?? 

[mLipok]

You should see.