Datenbank , guilistview

Neight

Hallo, ich habe wieder angefangen mich mit Autoit zu beschäftigen. Ich will eine Datenbank mit Sqlite erstellen und diese über das Gui fenster auslesen.
Links in der Tabelle (im GUI fenster) soll jeweils die Nummer und der jeweilige Name angezeigt werden. Ich weiß nicht wie ich das verknüpfen soll. Außerdem habe ich ein Problem beim Erstellen der Sqlite Datei.

Danke im vorraus wenn einer einen Rat hat.

Neight

(Der jeweilige rechte Teil wird durch auswählen des Namens in der Tabelle angezeigt. )

Code

Global $hDB, $iRval


#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Mineraliendatenbank", 1181, 736, 214, 142)
$MenuItem3 = GUICtrlCreateMenu("&File")
$MenuItem4 = GUICtrlCreateMenuItem("New"&@TAB&"Ctrl+Down", $MenuItem3)
$MenuItem5 = GUICtrlCreateMenuItem("Open"&@TAB&"", $MenuItem3)
$MenuItem6 = GUICtrlCreateMenuItem("Save"&@TAB&"Shift+Ctrl+0", $MenuItem3)
$MenuItem7 = GUICtrlCreateMenuItem("Exit"&@TAB&"", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("&Edit")
$MenuItem9 = GUICtrlCreateMenuItem("Delete"&@TAB&"", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("&Help")
$MenuItem8 = GUICtrlCreateMenuItem("About"&@TAB&"", $MenuItem1)
GUISetBkColor(0xB9D1EA)
$Group1 = GUICtrlCreateGroup("", 176, 80, 945, 553)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Nummer", 224, 128, 55, 20)
$Nummer = GUICtrlCreateInput("", 296, 128, 41, 24)
$Label2 = GUICtrlCreateLabel("Name", 384, 128, 41, 20)
$Name = GUICtrlCreateInput("", 440, 128, 177, 24)
$Group2 = GUICtrlCreateGroup("allg. Eigenschaften", 208, 192, 401, 177)
$Label3 = GUICtrlCreateLabel("Formel", 224, 224, 46, 20)
$Formel = GUICtrlCreateInput("", 280, 224, 105, 24)
$Label4 = GUICtrlCreateLabel("Gewicht", 224, 264, 51, 20)
$Gewicht = GUICtrlCreateInput("", 280, 264, 105, 24)
$Farbe = GUICtrlCreateLabel("Farbe", 224, 304, 40, 20)
$Farb = GUICtrlCreateInput("", 280, 304, 105, 24)
$Label5 = GUICtrlCreateLabel("Radioaktiv", 400, 224, 69, 20)
$Checkbox1 = GUICtrlCreateCheckbox("Ja", 480, 224, 41, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Nein", 544, 224, 41, 17)
$Label6 = GUICtrlCreateLabel("Magnetisch", 400, 256, 73, 20)
$Ja = GUICtrlCreateCheckbox("Ja", 480, 256, 49, 17)
$Nein = GUICtrlCreateCheckbox("Nein", 544, 256, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$pic = GUICtrlCreatePic("", 640, 112, 441, 305, BitOR($GUI_SS_DEFAULT_PIC,$SS_RIGHTJUST,$WS_BORDER))
$Group3 = GUICtrlCreateGroup("Funddaten", 208, 416, 409, 153)
$Fundor = GUICtrlCreateLabel("Fundort", 224, 456, 49, 20)
$Fundort = GUICtrlCreateInput("", 304, 456, 241, 24)
$Fundlan = GUICtrlCreateInput("", 304, 504, 241, 24)
$Fundland = GUICtrlCreateLabel("Fundland", 224, 504, 60, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Bild öffnen", 744, 424, 97, 33)
$Button2 = GUICtrlCreateButton("Bild löschen", 880, 424, 97, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateInput("", 312, 24, 465, 21)
$Suche = GUICtrlCreateLabel("Suche", 256, 24, 55, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Zurueck = GUICtrlCreateButton("Zurück", 440, 648, 65, 33)
$Vor = GUICtrlCreateButton("Vor", 696, 648, 65, 33)


$ListView1 = GUICtrlCreateListView("Nr.      |   Mineralien", 8, 88, 150, 545)
Global $aHeader = StringSplit($ListView1, '|')
Global $hListView = GUICtrlGetHandle($ListView1)
$cContextMenue = GUICtrlCreateContextMenu($ListView1)
GUICtrlCreateListViewItem("",$ListView1)
;Dim $Form1_1_AccelTable[2][2] = [["^{DOWN}", $MenuItem4],["^+0", $MenuItem6]]
;GUISetAccelerators($Form1_1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###








_SQLite_Startup(@ScriptDir & "\sqlite3.dll", False, 1)
If @error Then Exit MsgBox(16, "SQLite Fehler", "SQLite.dll konnte nicht geladen werden!")


ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF)


If FileExists("mineraldb.sqlite") Then
	$DB = _SQLite_Open("mineraldb.sqlite")
	If @error Then Exit MsgBox(16, "SQLite Fehler", "Die Datenbank kann nicht geöffnet werden!")


Else
	$DB = _SQLite_Open(@ScriptDir & "\mineraldb.sqlite")
	If @error Then Exit MsgBox(16, "SQLite Fehler", "Die Datenbank kann nicht geöffnet werden!")


	_SQLite_Exec($DB, "CREATE TABLE Mineralien (Nummer INTEGER PRIMARY KEY,Name TEXT,Formel TEXT,Gewicht TEXT,Farbe TEXT,Fundort TEXT,Fundland TEXT);")


	_SQLite_Exec(-1, "INSERT INTO Mineralien(Nummer,Name,Formel,Gewicht,Farbe,Fundort,Fundland) VALUES ('1', 'xxx', 'Dhgdgd', '500', 'XXX', 'Hier', 'hier');")


Endif




_SQLite_Close()
_SQLite_Shutdown()

Alles anzeigen

**autoBert**

Schau dir mal _SQLite_GetTable2d samt Beispiel an. Da ein Array zurück gegeben wird kann man es sehr einfach in der LV darstellen. Entweder mit _GUICtrlListView_AddArray oder halt in typischer Schleifenform mit GuiCtrlSetData um mal 2 Möglichkeiten zu benennen.

Neight

okay danke, ich werde mir die Beispiele mal angucken.
Ich bin ein Stück weiter gekommen.

Code

Global Const $sDbMineral = @ScriptDir & "\mineraldb.sqlite"
Global $hDB, $iRval, $aResult, $iRows, $iColumns, $DB, $QLite
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Mineraliendatenbank", 1181, 736, 214, 142)
$MenuItem3 = GUICtrlCreateMenu("&File")
$MenuItem4 = GUICtrlCreateMenuItem("New"&@TAB&"Ctrl+Down", $MenuItem3)
$MenuItem5 = GUICtrlCreateMenuItem("Open"&@TAB&"", $MenuItem3)
$MenuItem6 = GUICtrlCreateMenuItem("Save"&@TAB&"Shift+Ctrl+0", $MenuItem3)
$MenuItem7 = GUICtrlCreateMenuItem("Exit"&@TAB&"", $MenuItem3)
$MenuItem2 = GUICtrlCreateMenu("&Edit")
$MenuItem9 = GUICtrlCreateMenuItem("Delete"&@TAB&"", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("&Help")
$MenuItem8 = GUICtrlCreateMenuItem("About"&@TAB&"", $MenuItem1)
GUISetBkColor(0xB9D1EA)
$Group1 = GUICtrlCreateGroup("", 176, 80, 945, 553)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Nummer", 224, 128, 55, 20)
$Nummer = GUICtrlCreateInput("", 296, 128, 41, 24)
$Label2 = GUICtrlCreateLabel("Name", 384, 128, 41, 20)
$Name = GUICtrlCreateInput("", 440, 128, 177, 24)
$Group2 = GUICtrlCreateGroup("allg. Eigenschaften", 208, 192, 401, 177)
$Label3 = GUICtrlCreateLabel("Formel", 224, 224, 46, 20)
$Formel = GUICtrlCreateInput("", 280, 224, 105, 24)
$Label4 = GUICtrlCreateLabel("Gewicht", 224, 264, 51, 20)
$Gewicht = GUICtrlCreateInput("", 280, 264, 105, 24)
$Farbe = GUICtrlCreateLabel("Farbe", 224, 304, 40, 20)
$Farb = GUICtrlCreateInput("", 280, 304, 105, 24)
$Label5 = GUICtrlCreateLabel("Radioaktiv", 400, 224, 69, 20)
$Checkbox1 = GUICtrlCreateCheckbox("Ja", 480, 224, 41, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Nein", 544, 224, 41, 17)
$Label6 = GUICtrlCreateLabel("Magnetisch", 400, 256, 73, 20)
$Ja = GUICtrlCreateCheckbox("Ja", 480, 256, 49, 17)
$Nein = GUICtrlCreateCheckbox("Nein", 544, 256, 49, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$pic = GUICtrlCreatePic("", 640, 112, 441, 305, BitOR($GUI_SS_DEFAULT_PIC,$SS_RIGHTJUST,$WS_BORDER))
$Group3 = GUICtrlCreateGroup("Funddaten", 208, 416, 409, 153)
$Fundor = GUICtrlCreateLabel("Fundort", 224, 456, 49, 20)
$Fundort = GUICtrlCreateInput("", 304, 456, 241, 24)
$Fundlan = GUICtrlCreateInput("", 304, 504, 241, 24)
$Fundland = GUICtrlCreateLabel("Fundland", 224, 504, 60, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Bild öffnen", 744, 424, 97, 33)
$Button2 = GUICtrlCreateButton("Bild löschen", 880, 424, 97, 33)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateInput("", 312, 24, 465, 21)
$Suche = GUICtrlCreateLabel("Suche", 256, 24, 55, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Zurueck = GUICtrlCreateButton("Zurück", 440, 648, 65, 33)
$Vor = GUICtrlCreateButton("Vor", 696, 648, 65, 33)
$ListView1 = GUICtrlCreateListView("", 8, 88, 150, 545)
_GUICtrlListView_AddColumn($ListView1, "Nummer", 70)
_GUICtrlListView_AddColumn($ListView1, "Name", 150)
;Global $aHeader = StringSplit($ListView1, '|')
Global $hListView = GUICtrlGetHandle($ListView1)
$cContextMenue = GUICtrlCreateContextMenu($ListView1)
GUICtrlCreateListViewItem("",$ListView1)
;Dim $Form1_1_AccelTable[2][2] = [["^{DOWN}", $MenuItem4],["^+0", $MenuItem6]]
;GUISetAccelerators($Form1_1_AccelTable)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_SQLite_Startup()
If @error Then Exit MsgBox(16, "SQLite Fehler", "SQLite.dll konnte nicht geladen werden!")
ConsoleWrite("_SQLite_LibVersion=" & _SQLite_LibVersion() & @CRLF)
Global $hDB = _SQLite_Open($sDbMineral)
If @error Then Exit MsgBox(16, "SQLite Fehler", "Die Datenbank kann nicht geöffnet werden!")
If FileExists("mineraldb.sqlite") Then
	$DB = _SQLite_Open("mineraldb.sqlite")
	If @error Then Exit MsgBox(16, "SQLite Fehler", "Die Datenbank kann nicht geöffnet werden!")
	_SQLite_Exec(-1, "CREATE TABLE IF NOT EXISTS Mineralien (Nummer INTEGER PRIMARY KEY,Name TEXT,Formel TEXT,Gewicht TEXT,Farbe TEXT,Fundort TEXT,Fundland TEXT);")
	_SQLite_Exec(-1, "INSERT INTO Mineralien(Nummer,Name,Formel,Gewicht,Farbe,Fundort,Fundland) VALUES ('1', 'xxx', 'Dhgdgd', '500', 'XXX', 'Hier', 'hier');")
	_SQLite_Exec(-1, "INSERT INTO Mineralien(Nummer,Name,Formel,Gewicht,Farbe,Fundort,Fundland) VALUES ('2', 'xxxx', 'Dhgdgd', '500', 'XXX', 'Hier', 'hier');")
Endif
While True
	Switch GUIGetMsg()
		Case -3
			_SQLite_Close($DB)
			_SQLite_Shutdown()
			Exit
		Case $MenuItem5
			$iRval = _SQLite_GetTable2d(-1, "SELECT Nummer, * FROM Mineralien;", $aResult, $iRows, $iColumns)
					 _SQLite_GetTable2d(-1, "SELECT Name, * FROM Mineralien;", $aResult, $iRows, $iColumns)
 					_GUICtrlListView_AddArray($ListView1, $aResult)
EndSwitch
WEnd

Alles anzeigen

Neight

Hätte einer eine Idee wie man die Wiedergabe des Arrays in der Liste richtig ordnet und nur die Ergebnisse wiedergeben werden ohne Tabellennamen.

Neight

**Kanashius**

Sortieren kannst du mit _ArraySort oder du schreibst in das SQL-Statement, wonach sortiert werden soll.
Was die Tabellenüberschrift angeht: Starte einfach einen Index höher. Sonst könnte man nen neues Array anlegen das eins kleiner ist und das mit Werten befüllen. Der Aufwand lohnt aber nicht.

Neight

okay vielen Dank, weil ich habe das Problem das er die Ergebnisse der falschen Spalte zuordnet.