AutoIT locking my Oracle account

[XC]

Hello,

 

I am new to AutoIT and I am wondering if there is a setting that I am unknowingly using, that is locking me out of my Oracle account? The lines I am using is below and I am just trying to establish and test the connection. Is the "1" in the Provider name the culprit? It has happened a couple of times already that I run the script below (which by the way it is not working, I need to find the Oracle driver and other files required for it to work properly), and when I go back to try to use SQL Developer or TOAD and it tells me that I have been locked out. Since I want to continue testing the connection using AutoIT I don't want to keep asking the helpdesk to reset my password. I should mention that It is not a forgetfullness error as I write down my passwords in a log.

 

#include <array.au3>

$ps_User='xxxxx'
$ps_Pass='xxxxxx'
$ps_Port='xxxx'
$ps_Database ='xxxxxxxx' ; Schema name
$ps_Hostname ='xxxx.US.xxxx.xxxx' ; Server name

 

$sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open ("Provider=OraOLEDB.Oracle.1="&$ps_User&";Password="&$ps_Pass&";Database="&$ps_Database&";Port="&$ps_Port&";Hostname="&$ps_Hostname&";")
$sQuery="select * from xxxx"
$aResults=__GetRecords($sQuery, $sqlCon)
_ArrayDisplay($aResults)

 

 

Thanks for your help!

XC

[czardas]

Welcome to the forum. I am not familiar with Oracle, but I doubt this has anything to do with AutoIt. However you have not posted the function __GetRecords() , so it is impossible to tell what that function actually does. When you post code, please use code tags. Look for the button with the symbols <>.

[XC]

Thank you czardas, the function to get errors and records is below:

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")
Func MyErrFunc()
  $HexNumber=hex($oMyError.number,8)
  MsgBox(0,"","_______------- Error -------_______"       & @CRLF & _
             "err.description is: "    & @TAB & $oMyError.description    & @CRLF & _
             "err.windescription:"     & @TAB & $oMyError.windescription & @CRLF & _
             "err.number is: "         & @TAB & $HexNumber              & @CRLF & _
             "err.lastdllerror is: "   & @TAB & $oMyError.lastdllerror   & @CRLF & _
             "err.scriptline is: "     & @TAB & $oMyError.scriptline     & @CRLF & _
             "err.source is: "         & @TAB & $oMyError.source         & @CRLF & _
             "err.helpfile is: "       & @TAB & $oMyError.helpfile       & @CRLF & _
             "err.helpcontext is: "    & @TAB & $oMyError.helpcontext _
            )
  SetError(0)  ; to check for after this function returns
Endfunc

;here is where the earlier code with the variables I pass to the connection goes...

Func __GetRecords($query,$connection)
                $sqlRs = ObjCreate("ADODB.Recordset")
                ConsoleWrite($query&@CRLF)
                $sqlRs.Open ($query,$connection)
                                If $sqlRs.EOF = True Then
                                                SetError(1)
                                                $sqlRs.Close
                                Else
                                                $result = $sqlRs.GetRows
                                                If UBound($result)>0 Then
                                                                Return $result
                                                                $sqlRs.Close
                                                Else
                                                                $sqlRs.Close
                                                                SetError(2)
                                                EndIf
                                EndIf
EndFunc

Edited June 1, 2015 by XC
more info

[JLogan3o13]

You need to add some error checking at each point, to find out where it is failing. Something like this should give you an idea:

#include <array.au3>

$ps_User='xxxxx'

$ps_Pass='xxxxxx'

$ps_Port='xxxx'

$ps_Database ='xxxxxxxx' ; Schema name
$ps_Hostname ='xxxx.US.xxxx.xxxx' ; Server name

 

$sqlCon = ObjCreate("ADODB.Connection")
    If Not IsObj($sqlCon) Then MsgBox(64, "", "Error creating Connection Object")
    
$sqlCon.Open ("Provider=OraOLEDB.Oracle.1="& $ps_User &";Password=" & $ps_Pass & ";Database=" & $ps_Database & ";Port=" & $ps_Port & ";Hostname=" & $ps_Hostname & ";")
    If @error Then MsgBox(64, "", "Error opening Connection")
    
...

As the open statement is most likely the cause of your problem (and thus locking your account), I would try writing the connection string out rather than using variables. If that works, then write out the string with variables and compare to ensure it is not a syntactical issue. Something like this:

#include <array.au3>

$ps_User='xxxxx'

$ps_Pass='xxxxxx'

$ps_Port='xxxx'

$ps_Database ='xxxxxxxx' ; Schema name
$ps_Hostname ='xxxx.US.xxxx.xxxx' ; Server name

 
ConsoleWrite("Provider=OraOLEDB.Oracle.1=Jimmy;Password=Password123;Database=Database1;Port=21449;Hostname=MyDBServer;"
ConsoleWrite("Provider=OraOLEDB.Oracle.1="& $ps_User &";Password=" & $ps_Pass & ";Database=" & $ps_Database & ";Port=" & $ps_Port & ";Hostname=" & $ps_Hostname & ";" & @CRLF)

;Do these look the same? When you add error checking, does one work and not the other?

 

[jchd]

XC,

I suspect you leave an open query in your function: on successfully getting the resultset, you Return immediately (the .Close method is never called in this branch).
 

Func __GetRecords($query,$connection)
                $sqlRs = ObjCreate("ADODB.Recordset")
                ConsoleWrite($query&@CRLF)
                $sqlRs.Open ($query,$connection)
                                If $sqlRs.EOF = True Then
                                                SetError(1)
                                                $sqlRs.Close
                                Else
                                                $result = $sqlRs.GetRows
                                                If UBound($result)>0 Then
                                                                Return $result ; ### swap these 
                                                                $sqlRs.Close   ; ### two lines
                                                Else
                                                                $sqlRs.Close
                                                                SetError(2)
                                                EndIf
                                EndIf
EndFunc

 

[XC]

Thank you very much both! I tweaked the code to incorporate both of your input and isolated the issue.

 

Best,

XC