The number of records affected is not returned for SQLServer Compact

[cramaboule]

@mLipok I am progressing:

I changed 

Func _ADO_EVENTS_ShowOnly_InfoMessages($bChoice = 0, $iError = @error, $iExtended = @extended)

So I can see the events:

>> ADO EVENT fired function: __ADO_EVENT__ConnectComplete:
>>   $i_adStatus=1
>> ADO EVENT fired function: __ADO_EVENT__WillExecute:
>>   $sSource=update produit set typpr = 'USA' where typpr = 'USB'
>>   $iCursorType=-1
>>   $iLockType=-1
>>   $iOptions=-1
>>   $i_adStatus=1
>> ADO EVENT fired function: __ADO_EVENT__ExecuteComplete:
>>   $iRecordsAffected=1
>>   $i_adStatus=1
Number of rows affected: -1
>> ADO EVENT fired function: __ADO_EVENT__Disconnect:
>>   $i_adStatus=1

>Process failed to respond; forcing abrupt termination...

$iRecordsAffected=1 !!!!!!!
YESSSSS!!!!!

but it won't disconnect... 😞

C.

[mLipok]

Show repro / example code

[cramaboule]

expandcollapse popup

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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



;~ _ArrayDisplay(_ADO_GetProvidersList())

Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") ; Initialize a COM error handler

Global $ErrorCom

Global Const $PROVIDER = "PCSoft.HFSQL"
Global Const $SERVER = '\\MyServer\'
Global Const $WDDPATH = 'MyFoder\Myfile.wdd'
Global $sPathDsn = $SERVER & '\TEST\TEST\TEST24\'


$sQuery = "update produit set typpr = 'USA' where typpr = 'USB'"
;~ $sQuery = "update produit set typpr = 'USB' where typpr = 'USA'"
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")     ; Initialize a COM error handler

Global $adoCon = ObjCreate("ADODB.Connection")
Global $adoCmd = ObjCreate("ADODB.Command")
;~ $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")     ; Initialize a COM error handler
Local $oADO_EventsHandler = ObjEvent($adoCon, "__ADO_EVENT__")
#forceref $oADO_EventsHandler

$dsn = "PROVIDER=" & $PROVIDER & ";Data Source=" & $SERVER & $WDDPATH & ";Initial Catalog=" & $sPathDsn & ";"
ConsoleWrite($dsn & @CRLF)
$adoCon.ConnectionString = $dsn
$adoCon.CursorLocation = 3     ;A indiquer pour PC Soft sinon ne fonctionne pas
$adoCon.Open

; Execute the SQL query
$adoCmd.CommandText = $sQuery

Local $RecordsAffected
$oRst = _ADO_Execute($adoCon, $sQuery)
$RecordsAffected = @extended
ConsoleWrite("Number of rows affected: " & $RecordsAffected & @CRLF)
$ret = _ADO_Connection_Close($adoCon)
ConsoleWrite("$ret :" & $ret & @CRLF)
ConsoleWrite("retour :" & @extended & @CRLF)

Exit

Func MyErrFunc() ; error handler
;~  MsgBox(16 + 262144, 'Error',
    ConsoleWrite(@CRLF & "We intercepted a COM Error !" & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $oMyError.description & @CRLF & _
            "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
            "err.number is: " & @TAB & "0x" & Hex($oMyError.number, 8) & @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 & @CRLF & _
            "err.retcode is: " & @TAB & "0x" & Hex($oMyError.retcode) & @CRLF)
    $oMyError = ''
    $ErrorCom = 1
EndFunc   ;==>MyErrFunc

Output:

PROVIDER=PCSoft.HFSQL;Data Source=\\MyServer\MyFolder\MyFile.wdd;Initial Catalog=\\MyServer\MyFolder\TEST\TEST\TEST24\;
Number of rows affected: 1
$ret :1
retour :0

>Process failed to respond; forcing abrupt termination...
>Exit code: 1    Time: 9.097

The number of affected row is correct.

But my script is not exiting ?!?

C.

[mLipok]

On 7/1/2024 at 1:06 PM, cramaboule said:

the script doesn't exit automatically

Did you solve this problem ?

[cramaboule]

5 hours ago, mLipok said:

Did you solve this problem ?

Sort off: I use 

'TASKKILL /PID ' & $sMyProg & ' /F'

to exit !

Somehow it hangs otherwise !