Custom Query

I wanted to ask for this years ago but at the time _arraydisplay was stand alone function and I thought it was a bit much to ask to make it a sub function just to support this. I also couldn't see asking for _dictionarydisplay because where would it go? I see now that _arraydisplay has had an overhall and is using a shared sub function so this would be real easy to add by throwing the keys and items arrays together into a temp 2D array before calling shared function. Same idea could be done with maps as well.

#include <array.au3>

$oDi = ObjCreate('scripting.dictionary')
For $i = 0 to 10
        $oDi.Add('key' & $i,'item' & $i)
Next
ArrayDisplay($oDi)


Func ArrayDisplay(Const ByRef $aArray, $sTitle = Default, $sArrayRange = Default, $iFlags = Default, $vUser_Separator = Default, $sHeader = Default, $iMax_ColWidth = Default)
        #forceref $vUser_Separator

        If IsObj($aArray) And StringInStr(ObjName($aArray, 3), 'scripting.dictionary') Then

                Local $aTmp[$aArray.Count][2], $aK = $aArray.Keys, $aI = $aArray.Items
                For $i = 0 To $aArray.Count - 1
                        $aTmp[$i][0] = $aK[$i]
                        $aTmp[$i][1] = $aI[$i]
                Next

                If $sHeader = Default Then $sHeader = 'Keys|Items'
                If $sTitle = Default Then $sTitle = 'DictionaryDisplay'

                Local $iRet = __ArrayDisplay_Share($aTmp, $sTitle, $sArrayRange, $iFlags, Default, $sHeader, $iMax_ColWidth, 0, False)
        Else
                Local $iRet = __ArrayDisplay_Share($aArray, $sTitle, $sArrayRange, $iFlags, Default, $sHeader, $iMax_ColWidth, 0, False)
        EndIf
        Return SetError(@error, @extended, $iRet)
EndFunc   ;==>ArrayDisplay

When I try to get a big 1d-Table with "_SQLite_GetTable", in 30% of the cases I get a Application error.

Event Type:	Error
Event Source:	Application Error
Event Category:	(100)
Event ID:	1000
Date:		08.02.2008
Time:		22:34:00
User:		N/A
Computer:	BRIAN
Description:
Faulting application KMRobot.xx-spion.exe, version 3.2.10.0, faulting module KMRobot.xx-spion.exe, version 3.2.10.0, fault address 0x00050e2a.

For more information, see Help and Support Center at http://go.microsoft.com/fwlink/events.asp.
Data:
0000: 41 70 70 6c 69 63 61 74   Applicat
0008: 69 6f 6e 20 46 61 69 6c   ion Fail
0010: 75 72 65 20 20 4b 4d 52   ure  KMR
0018: 6f 62 6f 74 2e 78 78 2d   obot.xx-
0020: 73 70 69 6f 6e 2e 65 78   spion.ex
0028: 65 20 33 2e 32 2e 31 30   e 3.2.10
0030: 2e 30 20 69 6e 20 4b 4d   .0 in KM
0038: 52 6f 62 6f 74 2e 78 78   Robot.xx
0040: 2d 73 70 69 6f 6e 2e 65   -spion.e
0048: 78 65 20 33 2e 32 2e 31   xe 3.2.1
0050: 30 2e 30 20 61 74 20 6f   0.0 at o
0058: 66 66 73 65 74 20 30 30   ffset 00
0060: 30 35 30 65 32 61         050e2a  

Here is the used code... nothing special:

	local $TmpUserList[1][$ITEMS_PER_USER] ; Temporäre neue Userlist
	local $names[1], $TmpNames[1], $tid    ; Array der UIDs, die schon angemailt wurden aus der Globalen DB
	local $iRows, $iColumns, $iRval        ; Hilfsvars. Anzahl der Zeilen und Spalten
	Local $UserListId, $userElemId         ; Userlist-Hilfsvariablen
	Local $sSQL, $iSQLState, $hQuery, $aRow[1], $dbHandle ; DB-Variablen
	Local $anzGeloescht=0                  ; Zähler für die anzahl der Dupes
	Local $TmpRes						   ; Temp Ergebniss von Fkts, das nicht weiter benötigt wird
	if UBound($UserList) = 1 Then Return 0
	_Update_Abgleichen_in_Gui("Lade DB..")
	$sSQL = "SELECT DISTINCT userlists.profileuURL FROM "&$PES_tablename& _
			" WHERE (userlists.gruppe="&_SQLite_Escape($PES_dbgruppe)& ") AND" & _
			" (userlists.status="&_SQLite_Escape($UserStatus)& ")" & _
	        " ORDER BY userlists.profileuURL;"
	_OpenDB($dbHandle, "read")
	$iRval = _SQLite_GetTable ( $dbHandle, $sSQL, $names, $iRows, $iColumns, 254 ) ; 1-d-Table einfacher zu durchsuchen
	_Update_Abgleichen_in_Gui("GetTable OK.")
	Sleep(600)

The error occours in developer mode as well as in compiled files. Same behavior in _SQLite_GetTable2d. Resultrows ca. 35000. There is not a special limit to this. My DB grows. The Error occoured with 32000 results with the same frequency. Probability for this error can be increased by doing the GetTable multiple times in one application run. In general, the application works. When I build a workaround and get the table line by line, I have no errors. But that is dead slow.

-- Beejai

Hi,

when you create a Datepicker with GUICtrlCreateDate and make it "$DTS_TIMEFORMAT" to be a timepicker, the control looks fine. GUICtrlRead works fine on it and gets the time string. But GUICtrlSetData does not work as expected. When I try to fill the field with that function with a timestring, the result is wrong. Only when I add a Date to the Timestring, it displays the correct time:

GUICtrlSetData(Eval ( "Time1"),"2000/01/01 " & $PEA_time[1])

This is unexpected, because GUICtrlRead returns only the time.