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