_SQLite_QuerySingleRow seltsames Verhalten

- [ gelöst ]
autoBert
6. März 2009 um 23:04
Geschlossen
Erledigt

1. offizieller Beitrag

autoBert

Poweruser

Beiträge

6.141
6. März 2009 um 23:04
- #1
Hallo,
ich bin gerade dabei eine kleine Adressenverwaltung zu erstellen. Wenn man darin auf den Button klickt um den vorhergehenden bzw. nachfolgenden Datensatz anzuzeigen steigt mein Script aus. Der Fehler ist reproduzierbar und in folgendem kleinen Skript tritt er auch auf

Spoiler anzeigen

[autoit]
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <SQLite.au3>
#include <SQLite.dll.au3>
[/autoit] [autoit][/autoit] [autoit]
Opt('GUIOnEventMode', 1)
Opt('MUSTDECLAREVARS' ,1)
[/autoit] [autoit][/autoit] [autoit]
Global $sqldb = @ScriptDir & '\AutoAdress.s3db'
[/autoit] [autoit][/autoit] [autoit]
_Main()
[/autoit] [autoit][/autoit] [autoit]
func _Main()
_DatenbankAnlegen()
[/autoit] [autoit][/autoit] [autoit]
_dsFind('Select * from Adressen where Such<"SCHMITT" order by Such DESC') ;diese Zeile funktioniert
_dsFind('Select * from Adressen where Such<"HUBER" order by Such DESC') ;diese nicht
[/autoit] [autoit][/autoit] [autoit]
While 1
Sleep(1000)
WEnd
EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func _DatenbankAnlegen()
Local $sql, $res
_FileCreate($sqldb)
_SQLite_Startup ()
If @error > 0 Then
MsgBox(16, "SQLite Fehler", "SQLite.dll kann nicht geladen werden!")
Exit
EndIf
_SQLite_Open($sqldb)
If @error > 0 Then
MsgBox(16, "SQLite Fehler", "Kann Datenbank nicht öffnen")
Exit
EndIf
$sql = "CREATE TABLE [Adressen] ([AdrNr] INTEGER NOT NULL PRIMARY KEY AUTOINCREMENT,[Such] VARCHAR(20) UNIQUE NOT NULL)"
$res = _SQLite_Exec (-1, $sql)
$sql = "CREATE UNIQUE INDEX [idAdr] ON [Adressen]([Such] ASC,[AdrNr] ASC)"
$res = _SQLite_Exec (-1, $sql)
$sql = "INSERT INTO Adressen (Such) VALUES ('MAIER');"
$res = _SQLite_Exec (-1, $sql)
$sql = "INSERT INTO Adressen (Such) VALUES ('SCHULZE');"
$res = _SQLite_Exec (-1, $sql)
$sql = "INSERT INTO Adressen (Such) VALUES ('SCHMITT');"
$res = _SQLite_Exec (-1, $sql)
$sql = "INSERT INTO Adressen (Such) VALUES ('HUBER');"
$res = _SQLite_Exec (-1, $sql)
$sql = "INSERT INTO Adressen (Such) VALUES ('MÜLLER');"
$res = _SQLite_Exec (-1, $sql)
$sql = "CREATE TABLE [Gruppen] ([GrpNr] INTEGER NOT NULL PRIMARY KEY,[Bezeichnung] VARCHAR(30) NOT NULL,[Vorfahre] INTEGER NOT NULL)"
$sql = $sql & ";CREATE UNIQUE INDEX [idKinder] ON [Gruppen]([Vorfahre] ASC,[GrpNr] ASC)"
$res = _SQLite_Exec (-1, $sql)
$sql = "INSERT INTO Gruppen(GrpNr,Bezeichnung,Vorfahre) VALUES ('1','Test1','0');"
$res = _SQLite_Exec (-1, $sql)
$sql = "Insert into Gruppen(GrpNr,Bezeichnung,Vorfahre) Values ('2','Test2','0');"
$res = _SQLite_Exec (-1, $sql)
$sql = "Insert into Gruppen(GrpNr,Bezeichnung,Vorfahre) Values ('3','Test1.1','1');"
$res = _SQLite_Exec (-1, $sql)
$sql = "Insert into Gruppen(GrpNr,Bezeichnung,Vorfahre) Values ('4','Test1.2','1');"
$res = _SQLite_Exec (-1, $sql)
$sql = "Insert into Gruppen(GrpNr,Bezeichnung,Vorfahre) Values ('5','Test2.1','2');"
$res = _SQLite_Exec (-1, $sql)
$sql = "Insert into Gruppen(GrpNr,Bezeichnung,Vorfahre) Values ('6','Test2.2','2');"
$res = _SQLite_Exec (-1, $sql)
$sql = "INSERT INTO Gruppen(GrpNr,Bezeichnung,Vorfahre) VALUES ('7','Test7','0');"
$res = _SQLite_Exec (-1, $sql)
$sql = "INSERT INTO Gruppen(GrpNr,Bezeichnung,Vorfahre) VALUES ('8','Test8','0');"
$res = _SQLite_Exec (-1, $sql)
_SQLite_Close()
_SQLite_Shutdown()
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
func _dsFind($sql='');
Local $aRow[2]
;if $dsButtonsUpdate=True Then Exit
$sql = $sql & ' LIMIT 1'
_SQLite_Startup ()
If @error > 0 Then
MsgBox(16, "SQLite Fehler", "SQLite.dll kann nicht geladen werden!")
Exit
EndIf
_SQLite_Open($sqldb)
If @error > 0 Then
MsgBox(16, "SQLite Fehler", "Kann Datenbank nicht öffnen")
Exit
EndIf
;*******************************************************************************************************
;*************** wenn dieser Ausschnitt nicht aktiv funktioniert der Zugriff auf ********************
;*************** die Zugriffstasten auch bei Dauer-Feuer ********************
;*************** $hPrevious und $hNext-Taste (Auslöser für _dsPrevious/_dsNext) ********************
;*************** Fehler wird ausgelöst, wenn SQLite keine Daten zurückliefern kann ********************
;*************** weil es keinen Datensatz gibt der kleiner/größer ist ********************
;*******************************************************************************************************
;#cs
If _SQLite_QuerySingleRow(-1,$sql,$aRow) =$SQLITE_OK Then
if $aRow<>"" Then
MsgBox(0,"Ergebnis: " & $sql,$aRow[1])
;Else nichts gefunden
EndIf
EndIf
;#ce
;*******************************************************************************************************
;_dsCheckBrowseButtons() ;soll verhindern das man vor bzw. hinter den letzten Datensatz blättern kann
_SQLite_Close ()
_SQLite_Shutdown ()
EndFunc
[/autoit]

was mach ich da verkehrt?
Im Anhang ist außerdem noch mein bisheriger Programmstand, das ReSizen einzelner Controlls funktioniert überraschend einfach
Oscar der TreeView mit 3 Zuständen ist noch nicht drin.

MFG (Auto)Bert
Edit BugFix: AutoIt-Tags gesetzt.
BugFix Danke
EDIT1: Im kleinen Beispiel war das SQLite Statement leider 2 mal mit Limit 1 angegeben korrigiert
EDIT2: benutze jetzt _SQLite_Query zusammen mit_ SQLite_FetchDATA (durch LIMIT 1 kommt eh nur ein Datensatz)
~~Programmanhang wurde upgedated~~
EDIT3: Anhang herausgenommen (waren zu viele Fehler drin)
Werde wenn das Programm (1. mit AutoIT) fertig ist in Scripte vorstellen
mfg (Auto)Bert
3 Mal editiert, zuletzt von AutoBert (8. März 2009 um 04:27)
Oscar

Moderator

Beiträge

7.356
6. März 2009 um 23:20

Offizieller Beitrag
- #2
Zitat von AutoBert

Oscar der TreeView mit 3 Zuständen ist noch nicht drin.

Wie? Was? Wo drin?
MfG. Oscar
Forum: Arduino, Elektronik, AutoIt
autoBert

Poweruser

Beiträge

6.141
6. März 2009 um 23:46
- #3
Oscar na dieses Beispiel aus deinem THread TreeView-(Un)Checked-Example

Zitat von Oscar

Bei "normalen" Checkboxen gibt es den "3STATE"-Modus. Dieser ist aber für ein Treeview von AutoIt nicht vorgesehen.
Vielleicht kennt einer der Anwesenden einen Trick diesen Modus auch für ein Treeview benutzen zu können?

Edit: Man könnte den Bold-Style für einen 3State-Modus benutzen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiTreeView.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
Global $hGui = GUICreate('TreeView-(Un)Checked-Example', 400, 600)
Global $hTreeView = GUICtrlCreateTreeView(5, 5, 390, 590, BitOR($GUI_SS_DEFAULT_TREEVIEW, $TVS_CHECKBOXES), $WS_EX_CLIENTEDGE)
Global $hRoot = GUICtrlCreateTreeViewItem('Root', $hTreeView)
_GUICtrlTreeView_BeginUpdate($hTreeView)
For $x = 1 To 3
$hItem1 = _GUICtrlTreeView_AddChild($hTreeView, GUICtrlGetHandle($hRoot), StringFormat('[%02d] Child 1st Gen.', $x))
For $y = 1 To 3
$hItem2 = _GUICtrlTreeView_AddChild($hTreeView, $hItem1, StringFormat('[%02d] Child 2nd Gen.', $y))
For $z = 1 To 2
$hItem3 = _GUICtrlTreeView_AddChild($hTreeView, $hItem2, StringFormat('[%02d] Child 3rd Gen.', $z))
Next
Next
Next
_GUICtrlTreeView_EndUpdate($hTreeView)
_GUICtrlTreeView_Expand($hTreeView)
[/autoit] [autoit][/autoit] [autoit]
GUISetState()
While True
Switch GUIGetMsg()
Case $GUI_EVENT_PRIMARYDOWN ; (*)
$aInfo = GUIGetCursorInfo($hGui) ; (*)
If $aInfo[4] = $hTreeView Then ; (*)
$aAdjust = ControlGetPos($hGui, '', $hTreeView) ; (*)
If BitAND(_GUICtrlTreeView_HitTest($hTreeView, $aInfo[0]-$aAdjust[0]-2, $aInfo[1]-$aAdjust[1]-2), 64) Then ; (*)
$hSelect = _GUICtrlTreeView_GetSelection($hTreeView)
$checked = _GUICtrlTreeView_GetChecked($hTreeView, $hSelect)
If $checked Then
_VerifySiblingItems($hTreeView, $hSelect)
Else
_SetParentItemsUnchecked($hTreeView, $hSelect)
EndIf
$hItem = _GUICtrlTreeView_GetFirstChild($hTreeView, $hSelect)
If $hItem Then
_SetChildItemsChecked($hTreeView, $hItem, $checked)
_GUICtrlTreeView_SetBold($hTreeView, $hSelect, False)
EndIf
EndIf
EndIf
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
; (*) = diese Konstruktion ist notwendig, weil man sonst nicht zwischen einem Mausklick
; auf den Item-Text und der Checkbox unterscheiden kann
[/autoit] [autoit][/autoit] [autoit]
; Überprüft (rekursiv) ob alle Sibling-Items angehakt sind und setzt, wenn zutreffend, den Haken beim Parent-Item
Func _VerifySiblingItems($hTreeView, $hItem)
Local $hTmp, $hSave = $hItem, $iCount = _GUICtrlTreeView_GetSiblingCount($hTreeView, $hItem)
While True
$hTmp = _GUICtrlTreeView_GetNextSibling($hTreeView, $hItem)
If Not $hTmp Then ExitLoop
$hItem = $hTmp
WEnd
Do
If _GUICtrlTreeView_GetChecked($hTreeView, $hItem) Then $iCount -= 1
$hItem = _GUICtrlTreeView_GetPrevSibling($hTreeView, $hItem)
Until Not $hItem
If Not $iCount Then
Local $hParent = _GUICtrlTreeView_GetParentHandle($hTreeView, $hSave)
If $hParent Then
_GUICtrlTreeView_SetChecked($hTreeView, $hParent)
_GUICtrlTreeView_SetBold($hTreeView, $hParent, False)
_VerifySiblingItems($hTreeView, $hParent)
EndIf
Else
Local $hParent = _GUICtrlTreeView_GetParentHandle($hTreeView, $hSave)
If $hParent Then
_GUICtrlTreeView_SetBold($hTreeView, $hParent, True)
_VerifySiblingItems($hTreeView, $hParent)
EndIf
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit]
; Setzt (rekursiv) den Haken bei allen Child-Items, wenn der Haken bei einem Item gesetzt wurde
Func _SetChildItemsChecked($hTreeView, $hItem, $checked)
_GUICtrlTreeView_SetBold($hTreeView, $hItem, False)
Do
Local $hNewItem = _GUICtrlTreeView_GetFirstChild($hTreeView, $hItem)
If $hNewItem Then _SetChildItemsChecked($hTreeView, $hNewItem, $checked)
_GUICtrlTreeView_SetChecked($hTreeView, $hItem, $checked)
_GUICtrlTreeView_SetBold($hTreeView, $hItem, False)
$hItem = _GUICtrlTreeView_GetNextChild($hTreeView, $hItem)
Until Not $hItem
EndFunc
[/autoit] [autoit][/autoit] [autoit]
; Entfernt (rekursiv) den Haken bei allen Parents, wenn der Haken von einem Item entfernt wurde
Func _SetParentItemsUnchecked($hTreeView, $hItem)
Local $hTmp, $hSave = $hItem, $iCount = 0
While True
$hTmp = _GUICtrlTreeView_GetNextSibling($hTreeView, $hItem)
If Not $hTmp Then ExitLoop
$hItem = $hTmp
WEnd
Do
If _GUICtrlTreeView_GetChecked($hTreeView, $hItem) Or _GUICtrlTreeView_GetBold($hTreeView, $hItem) Then $iCount += 1
$hItem = _GUICtrlTreeView_GetPrevSibling($hTreeView, $hItem)
Until Not $hItem
$hItem = $hSave
Local $hParent = _GUICtrlTreeView_GetParentHandle($hTreeView, $hItem)
If $iCount Then
_GUICtrlTreeView_SetBold($hTreeView, $hParent, True)
Else
_GUICtrlTreeView_SetBold($hTreeView, $hParent, False)
EndIf
If $hParent Then _SetParentItemsUnchecked($hTreeView, $hParent)
_GUICtrlTreeView_SetChecked($hTreeView, $hItem, False)
EndFunc
[/autoit]

Wenn nicht alle Siblings angehakt sind, dann wird der Parent in Fettschrift dargestellt. Falls Dir das ausreicht!?

Alles anzeigen
Kommt aber noch in deiner Form oder über StateImages hinein. Aber zuerst muß noch das Problem mit _SQLite_QuerySingleRow gelöst werden.
mfg (Auto)Bert

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.