ADO.au3 UDF - BETA - Support Topic

[Champak]

Thanks. Will this only pick up com errors from this udf, or all com errors?

[mLipok]

32 minutes ago, Champak said:

only pick up com errors from this udf

Exactly only from this UDF.
This is what was may intention to differ COM errors from different sources.

Edited August 15, 2023 by mLipok

[Zmylna]

Hi All

Can anyone tell me how to save MSSQL BLOB to file.
_ADO_Execute returns me a table with binary content:

1 0xFFD8....
2 0xFC3A....
3 0x736F...
...

I tried to combine all the lines into one and save to disk using filewrite.
Unfortunately, the file (jpeg) is invalid.

Edited September 15, 2023 by Zmylna

[Andreik]

Post your actual code.

[Zmylna]

$path = @TempDir & "\aaa.jpg"
$aZalacznik = sql_exec("***") ; BLOB

for $n = 0 to UBound($aZalacznik) - 1
    $line = $aZalacznik[$n][0]
    $line = $line & $line
Next

$hFile = FileOpen($path, 26)
FileWrite($hFile, $line)
FileClose($hFile)

 

[Andreik]

No wonder that you get an invalid image file since you are keep overwriting $line with the content of the last blob data. Why not something like this?

$line &= $aZalacznik[$n][0]

And since it's binary data, don't forget about 0x prefix, so you have to strip the prefix for each blob and append it once to the final binary string, just before you write the content to the file.

$line &= StringTrimLeft($aZalacznik[$n][0], 2)
...
FileWrite($hFile, '0x' & $line)

 

Edited September 15, 2023 by Andreik

[mLipok]

5 hours ago, Zmylna said:

1 0xFFD8....
2 0xFC3A....
3 0x736F.

String to binary.... binary to file....

[Zmylna]

12 hours ago, Andreik said:

No wonder that you get an invalid image file since you are keep overwriting $line with the content of the last blob data. Why not something like this?

$line &= $aZalacznik[$n][0]

And since it's binary data, don't forget about 0x prefix, so you have to strip the prefix for each blob and append it once to the final binary string, just before you write the content to the file.

$line &= StringTrimLeft($aZalacznik[$n][0], 2)
...
FileWrite($hFile, '0x' & $line)

 

Works very well
Thank you, that was the point

[Zmylna]

11 hours ago, mLipok said:

String to binary.... binary to file....

indeed

[mLipok]

Please mark your working solution.

Proszę oznacz działające rozwiązanie.

 

[Andreik]

I don't think he can as long he is not the thread owner.

[mLipok]

Yeap.

My mistake.

 

[Zmylna]

Hi @mLipok

I have a question for you if I may regarding the _ADO_Execute function.
In my program i performs a query to the database.
The result of the query is correct but the MS Profiler registers three identical queries to the database. Why ?

$query="exec w****s @UserSessionID=******,@ModulID=******,@fts=N'''******'',''******'',''******'',''******''',@******='******',@**='******'"

Func sql_exec($squery)
    ; Wykonanie zapytania SQL
    consolewrite("Wykonanie polecenia SQL: " &  $squery &  @CRLF)
    Local $oRecordset = _ADO_Execute($oConnection, $squery, True)

    Return $oRecordset[2]
EndFunc   ;==>sql_exec

 

What the MS Profiler shows:
SQL:BatchStarting    exec ****** @UserSessionID=*****,@ModulID=***,@fts=N'''*****'',''*****'',''*****'',''*****''',@*****='*****',@**='*****'    *****        user                    14656    1031    
SQL:BatchCompleted    exec ****** @UserSessionID=*****,@ModulID=***,@fts=N'''*****'',''*****'',''*****'',''*****''',@*****='*****',@**='*****'    *****        user    454    228094    0    450    14656    1031    
SQL:BatchStarting    exec ****** @UserSessionID=*****,@ModulID=***,@fts=N'''*****'',''*****'',''*****'',''*****''',@*****='*****',@**='*****'    *****        user                    14656    1031    
SQL:BatchCompleted    exec ****** @UserSessionID=*****,@ModulID=***,@fts=N'''*****'',''*****'',''*****'',''*****''',@*****='*****',@**='*****'    *****        user    453    220456    0    442    14656    1031    
SQL:BatchStarting    exec ****** @UserSessionID=*****,@ModulID=***,@fts=N'''*****'',''*****'',''*****'',''*****''',@*****='*****',@**='*****'    *****        user                    14656    1031    
SQL:BatchCompleted    exec ****** @UserSessionID=*****,@ModulID=***,@fts=N'''*****'',''*****'',''*****'',''*****''',@*****='*****',@**='*****'    *****        user    437    220456    0    442    14656    1031

[mLipok]

19 hours ago, Zmylna said:

the MS Profiler registers three identical queries to the database. Why ?

If I remember well it was already discussed here.

But currently I do not remember the details.

I will take fresh look today in the evening or tomorrow.

Edited September 22, 2023 by mLipok

[Zmylna]

8 minutes ago, mLipok said:

If I remember well it was already discussed here.

But currently I do not remember the details.

I will take fresh look today in the evening or tomorrow.

Thank you.

[mLipok]

@Zmylna in your PM you was pointing me to:

 

but you should check this:

 

especially;

  

On 8/29/2021 at 3:13 AM, mLipok said:

Feel warned about:

# !!! WARNING !!! this following line has an issue - the inserted data are inserted 3 times !!!
;~  Local $aRowsResult = _ADO_Execute($oConnection, $s_SQLQuery_InsertBinaryContent, True)
    # BECAUSE OF THIS ISSUE:   !!!!  use $bReturnAsArray = False .... like in following line
    Local $oRecordset = _ADO_Execute($oConnection, $s_SQLQuery_InsertBinaryContent, False)

 

 

This is a bug that I have noticed before, so far I don't know why it occurs.

I will gladly use any help in solving it.

 

and this following statement is still valid:  

On 8/29/2021 at 3:13 AM, mLipok said:

This is a bug that I have noticed before, so far I don't know why it occurs.
I will gladly use any help in solving it.

Any help ?

Edited September 22, 2023 by mLipok

[Zmylna]

Thank you for your answer @mLipok

I changed the code to this:

Func sql_exec($squery)
    ; Procedura wykonująca zapytania do serwera SQL

    ; Wykonanie zapytania SQL
    ConsoleWrite("Wykonanie polecenia SQL: " & $squery & @CRLF)
    Local $oRecordset = _ADO_Execute($oConnection, $squery, False)

    ; Przerzucenie wyników zapytania do tablicy
    Local $aRecordsetArray = _ADO_Recordset_ToArray($oRecordset, False)
    Local $aRecordset_inner = _ADO_RecordsetArray_GetContent($aRecordsetArray)


    ;Return $aRecordset_inner
    If IsArray($aRecordset_inner) Then
        Return $aRecordset_inner
    Else
        Return ""
    EndIf
EndFunc   ;==>sql_exec

Unfortunately, the problem persists.
SQL Server is queried three times during one execution of _ADO_Execute

[mLipok]

You missunderstand this.

DO NOT GET RESULT ARRAY from sql insert statement

[mLipok]

11 hours ago, Zmylna said:

; Przerzucenie wyników zapytania do tablicy
    Local $aRecordsetArray = _ADO_Recordset_ToArray($oRecordset, False)

You use $oRecordset.getrows()

Which regenerate recordset.... at least I think so.

[Zmylna]

--Deleted-

Edited September 25, 2023 by Zmylna