Custom Query

I have Created an Event Handler for ADO.CONNECTION the functions do fire but the strings contain gibberish. The Long and Int return okay. I have looked up the interface and they should be returning Wstrings. I was told to submit this as a bug by trancexx .

Below is the Function prototype givin by PowerBasic COM browser.

WillConnect <6> (ByRef InOut ConnectionString As WString, ByRef InOut UserID As WString, ByRef InOut Password As _ WString, ByRef InOut Options As Long, ByRef InOut adStatus As Long, Byval pConnection As IntConnection)

#AutoIt3Wrapper_UseX64=n
#include

const $ConnInterface = "ConnectionEvents"

$conn = ObjCreate("ADODB.Connection")
$connEvent = ObjEvent($conn,"EVENTS_",$ConnInterface)

if @error then
Msgbox(0,"AutoIt COM Test", _
"ObjEvent: Can't use event interface '"& $ConnInterface &"'. Error code: " & hex(@error,8))
exit

endif


$conn.open ("Provider=SQLNCLI10;Server=ServerName;Database=Database;Uid=UID;pwd=pwd")

$conn.close()


Func EVENTS_ConnectComplete($ugh3,$ugh,$ugh1)

MsgBox(0,"ADO EVENT","Connected to DataBase")

EndFunc
Func EVENTS_Disconnect($ugh4,$ugh5)

MsgBox(0,"ADO EVENT","Disconnected from DataBase")

endFunc
Func EVENTS_WillConnect($ConnectionString,$val2,$val3,$val4,$val5,$val6)
ConsoleWrite($ConnectionString&@CRLF&$val2&@CRLF&$val3&@CRLF&$val4&@CRLF&$val5&@CRLF&$val6&@CRLF)
Msgbox(0,"Connection String",string($ConnectionString))
endFunc

The example bellow shows that casesense parameter in StringReplace not handled properly if we set it as 2:

$sStr = StringReplace('Some Text', 'text', 'data', 0, 2)
ConsoleWrite($sStr & @LF)

the text is not replaced, but the docs states:

2 = not case sensitive, using a basic/faster comparison

BTW, StringInStr works as expected in this case.

Maybe someone of the developers have a solution for the known problem --> ​http://www.autoitscript.com/forum/topic/122250-cursor-flicker-edit-control/

AutoIt Version: 3.3.8.1 OS: Windows 7 Prof 64 Bit (all drivers up 2 date)

Regards