Need help for db connection

[mLipok]

On 11.11.2017 at 0:31 AM, mLipok said:

Lack of COM Error reporting ?

And few hints:

Hint #1:
new example, which will still not work until you change few other things (look in next few hints):

Global $sDriver = '{Oracle in OraClient12Home1}'
Global $sServer = 'oda.corp.priv'
Global $sDatabase = 'DWECORP'
Global $sUsername = 'test'
Global $sPassword = 'dwpcorp1'
Global $iPort = '1521'

; Internal ADO.au3 UDF COMError Handler
_ADO_ComErrorHandler_UserFunction(_ADO_COMErrorHandler)

_Example1()

Func _Example1()
    Local $sConnectionString = _
            "DRIVER=" & $sDriver & _
            ";SERVER=" & $sServer & _
            ";DATABASE=" & $sDatabase & _
            ";UID=" & $sUsername & _
            ";PWD=" & $sPassword & _
            ";PORT=" & $iPort

    Local $oConnection = _ADO_Connection_Create()
    _ADO_Connection_OpenConString($oConnection, $sConnectionString)
    If @error Then Return SetError(@error, @extended, $ADO_RET_FAILURE)
       IF IsObj($oConnection) then

        $rs = ObjCreate( "ADODB.RecordSet" )
        $rs.open("Delete  branches b where b.branchid=97;")
      EndIf
EndFunc    ;==>_Example1

 

Did you try this example ?
What you get in console from COM ErrorHandler ?

EDIT:
Try also change:
 

"DRIVER=" & $sDriver & _

to this:

"PROVIDER=" & $sDriver & _

 

Edited November 13, 2017 by mLipok

[mLipok]

On 10.11.2017 at 6:08 PM, Jimwright said:

I think a direct au3 translation of the VBScript would be

$oConn = ObjCreate("ADODB.Connection")
$oConn.Open("DWPCORP","test","dwpcorp1")
$strSQLQuery = "Delete  branches  where branchid=97"
$SQLObj = ObjCreate("ADODB.Recordset")
$SQLObj.Open ($strSQLQuery,$oConn,3,3)

But it's been a long time since i've used DSNs.  Im presuming you have a DSN of DWPCORP set up which holds the connection string ?

 

On 10.11.2017 at 6:33 PM, vick said:

I am getting this error:

The requested action with this object has failed.:

 

You are still not using COM Error Handler, try this:
 

#AutoIt3Wrapper_Run_AU3Check=Y
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7


_Example()
Func _Example()
    ; Error monitoring. This will trap all COM errors while alive.
    ; This particular object is declared as local, meaning after the function returns it will not exist.
    Local $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
    #forceref $oErrorHandler

    Local $oConn = ObjCreate("ADODB.Connection")
    $oConn.Open("DWPCORP", "test", "dwpcorp1")
    Local $strSQLQuery = "Delete  branches  where branchid=97"
    Local $SQLObj = ObjCreate("ADODB.Recordset")
    $SQLObj.Open($strSQLQuery, $oConn, 3, 3)
EndFunc   ;==>_Example

; User's COM error function. Will be called if COM error occurs
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 back with entire information from SciTE Console.

 

Edited November 13, 2017 by mLipok

[vick]

thanks it is working now.

[mLipok]

What was wrong ?

[vick]

#AutoIt3Wrapper_Run_AU3Check=Y
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w 7

 this part is only extra in my script. 

Also I installed 32 bit oracle driver and create DSN with same name.

I was going to ask you what this above syntax can affect here.

thanks you very much for your effort. Really much appreciated.

[mLipok]

These directives are just only for testing syntax, and checking some coding practice.

Edit.

But "just only" is not the proper description.

Edited November 14, 2017 by mLipok

[vick]

Really this is strange still for me as well. but i will spend some more time to investigate what was wrong and i will update you.

[mLipok]

Ok.

[Skysnake]

I think your approach with AutoIt is wrong.  You can of course create that Object, but its a lot of unnecessary work.

with @mLipok's fantastic ADO.UDF you can connect to that database, without having to maintain your own connection object - that's the beauty of it.

See this for an Oracle ODBC DSN:

Oracle Data Provider for .NET

Please see the snippet I posted in the ADO thread, we can determine if you have Oracle DNS installed. snippet detect ADO DSN

Make sure the DSN as specified in the Windows Control Panel looks the same in your script.  Put the connection string components into ADO UDF and it should work.  I have successfully connected to PostGres, DBF, Excel and Access using this ADO UDF.  

The ADO thread is here

Edited November 27, 2017 by Skysnake

[vick]

thanks for your suggestion.

[mLipok]

On 14.11.2017 at 7:05 PM, vick said:

Really this is strange still for me as well. but i will spend some more time to investigate what was wrong and i will update you.

Did you finally figure it out ? What was the issue in your case ?

[vick]

On 2018-06-06 at 3:14 AM, mLipok said:

Did you finally figure it out ? What was the issue in your case ?

thanks for asking. I really appreciate it.  unfortunately I have stopped working on that project so really could not get time to figure out.

[mLipok]

Ok. Thanks for your answer.