SQLite-BeginnerDB

RR04

Der Einstieg in das Thema SQLite und die Anwendung in AutoIt.

Will man eine Datenbank installieren. Dann hat man schnell das Gefühl, es wird ein ganzes Betriebssystem installiert,
das auch noch die Performance des Systems beeinflusst.

Bei SQLite ist das nicht der Fall, denn SQLite arbeitet auf Dateibasis. Aber auch hier spricht man SQL. Die Standards von 1992 werden unterstützt und man hat das Handling einer relationalen Datenbank. Heute befinden sich SQLite-Datenbanken bereits in Internetbrowsern und Handys, so gehört SQLite auch zum "Lieferumfang" von AutoIt.

Dieses Tutorial soll in zweifacher Hinsicht als Einstieg in SQLite dienen.
Das Skript zeigt einen möglichen Aufbau sowie die datenbankrelevanten Funktionen. Diese sind mit dem Vorzeichen "Ds"
für Datensatz gekennzeichnet.
Mit dem Programm hingegen ist man in der Lage eine kleine Beispieldatenbank, wie in einer Sandbox, zu führen. Es wird
sichtbar welche Befehle hinter den einzelnen Button stecken und was sie bewirken. Nicht alle Befehle lösen eine
Aktion aus, die sichtbar wird. Auch fehlende oder falsche Eingaben sind möglich.

Seht selbst, wie SQLite reagiert.

SQL

-- Die Tabelle "BeispielDB" erstellen --
 -- Telefonnr. als "Text", 
 -- nur bei Zahlen mit denen nicht gerechnet 
 -- werden soll (PLZ, Hausnr., Telefonnr.).


CREATE TABLE BeispielDB
 (
	ID INTEGER PRIMARY KEY,
	Name Text,
	Vorname Text,
	Telefon Text
  );
 
 -- Auswahl-Abfragen --
 -- Alle auswählen aus der Tabelle "BeginnerDB" ... --
 
 -- ... mit "name" "Meier"
SELECT * FROM BeginnerDB 
	WHERE name 
		LIKE 'Meier'


 -- ... mit "name" ein "m%" als Anfangsbuchstabe	
SELECT * FROM BeginnerDB 
	WHERE name 
		LIKE 'm%'


 -- ... mit "name" ein "%m%" innerhalb des Namens	
SELECT * FROM BeginnerDB 
	WHERE name 
		LIKE '%m%'
 -- Ende

Alles anzeigen

SQLite-BeginnerDB

[autoit]

;~ Autor: Ritzelrocker04
#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#AutoIt3Wrapper_UseX64=n ; ### Win32-DLL ###
;
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <WindowsConstants.au3>
;
Opt("GUIOnEventMode", 1)
Opt("MustDeclareVars", 1)
;
Global Const $sHeader = "Name|Vorname|Telefon"
Global Const $sTitle = "SQLite-Datenbank-Tut ", $sVersion = "2014.08.04 "
Global $hDB, $Query, $aNames, $aRow
;
#Region Hauptfenster
Global $hGUI = GUICreate($sTitle, 800, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, "_CLOSEButton")
Global $hEdit = GUICtrlCreateEdit(" ", 0, 0, 800, 360, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 12, 15, -1, "Courier New") ; Schriftgröße 12, Art Courier New
GUICtrlCreateLabel("Autor: Ritzelrocker04 " & $sVersion, 10, 365)
Global $btnNew = GUICtrlCreateButton("Neuer Datensatz", 10, 450, 100, 35, $BS_DEFPUSHBUTTON)
GUICtrlSetOnEvent(-1, "_NewButton")
Global $btnDsAlleAnzeigen = GUICtrlCreateButton("Alle Datensätze anzeigen", 120, 450, 100, 35, $BS_MULTILINE)
GUICtrlSetOnEvent(-1, "_DsAlleAnzeigen")
Global $btnDsAuswahl = GUICtrlCreateButton("Auswahl", 230, 450, 100, 35)
GUICtrlSetOnEvent(-1, "_DsAuswaehlen")
GUICtrlCreateLabel("Mögliche Eingaben: Meier | m% | %m%", 340, 390, 100, 30, $BS_MULTILINE)
Global $iptDsAuswahlEingabe = GUICtrlCreateInput("", 340, 425, 100, 20)
Global $btnDsAuswahlEingabe = GUICtrlCreateButton("Auswahl nach Eingabe", 340, 450, 100, 35, $BS_MULTILINE)
GUICtrlSetOnEvent(-1, "_DsAuswaehlenEingabe")
Global $cboDsSortierenEingabe = GUICtrlCreateCombo("Name", 450, 425, 100, 20, BitOR($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, "ID DESC|Vorname|Name, Vorname|Telefon|Telefon DESC", "Name")
Global $btnDsSortierenEingabe = GUICtrlCreateButton("Sortieren nach Eingabe", 450, 450, 100, 35, $BS_MULTILINE)
GUICtrlSetOnEvent(-1, "_DsSortierenEingabe")
GUICtrlCreateLabel("Telefonnr. eingeben", 580, 365, 100, 20)
Global $iptDsAendernTel = GUICtrlCreateInput("", 580, 385, 100, 20, $ES_NUMBER)
GUICtrlCreateLabel("Hier die ID eingeben", 580, 407, 100, 20)
Global $iptDsAendernID = GUICtrlCreateInput("", 580, 425, 100, 20, $ES_NUMBER)
GUICtrlSetLimit(-1, 2)
Global $btnDsAendern = GUICtrlCreateButton("Ändern eines Datensatzes", 580, 450, 100, 35, $BS_MULTILINE)
GUICtrlSetOnEvent(-1, "_DsAendern")
GUICtrlCreateLabel("Hier die Eingabe der ID vornehmen", 690, 390, 100, 30, $BS_MULTILINE)
Global $iptDsLoeschen = GUICtrlCreateInput("", 690, 425, 100, 20, $ES_NUMBER)
GUICtrlSetLimit(-1, 2)
Global $btnDsLoeschen = GUICtrlCreateButton("Löschen eines Datensatzes", 690, 450, 100, 35, $BS_MULTILINE)
GUICtrlSetOnEvent(-1, "_DsLoeschen")
#EndRegion Hauptfenster
;
GUISetState(@SW_SHOW, $hGUI)
;
_SQLite_Startup()
If @error Then Exit MsgBox(16, "SQLite Fehler", "SQLite.dll konnte nicht geladen werden!")
If FileExists("BeginnerDB.sqlite") Then
$hDB = _SQLite_Open("BeginnerDB.sqlite")
If @error Then Exit MsgBox(16, "SQLite Fehler", "Kann die Datenbank nicht öffnen!")
Else
$hDB = _SQLite_Open("BeginnerDB.sqlite") ; eine neue DB anlegen
If @error Then Exit MsgBox(16, "SQLite Fehler", "Kann die Datenbank nicht öffnen!")
; eine neue Tabelle anlegen "BeginnerDB"
_SQLite_Exec(-1, "CREATE TABLE BeginnerDB (ID INTEGER PRIMARY KEY,Name Text,Vorname Text,Telefon Text);")