ADO.au3 UDF - BETA - Support Topic

[Champak]

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

[mLipok]

  On 8/15/2023 at 10:02 PM, Champak said:

only pick up com errors from this udf

Expand  

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]

  On 9/15/2023 at 2:57 PM, Zmylna said:

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

Expand  

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

[Zmylna]

  On 9/15/2023 at 8:35 PM, 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)

 

Expand  

Works very well
Thank you, that was the point

[Zmylna]

  On 9/15/2023 at 8:50 PM, mLipok said:

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

Expand  

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]

  On 9/21/2023 at 9:46 AM, Zmylna said:

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

Expand  

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]

  On 9/22/2023 at 5:28 AM, 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.

Expand  

Thank you.

[mLipok]

@Zmylna in your PM you was pointing me to:

 

but you should check this:

 

especially;

  

  On 8/29/2021 at 1: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.

Expand  

 

and this following statement is still valid:  

  On 8/29/2021 at 1: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.

Expand  

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]

  On 9/22/2023 at 10:09 AM, Zmylna said:

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

Expand  

You use $oRecordset.getrows()

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

[Zmylna]

--Deleted-

Edited September 25, 2023 by Zmylna