Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <SQLite.au3> ;SQLite Funktions include
- #include <SQLite.dll.au3> ; die SQLite dll
- _SQLite_Startup() ;SQLite initialisieren
- $hDatabase = _SQLite_Open(@ScriptDir & "\TestDatenbank.sqlite") ;eine neue datenbank erstellen
- #cs
- _SQLite_Exec($hDatabase, "CREATE TABLE IF NOT EXISTS `TestTabelle`(`Name` TEXT,`ID` INTERGER)") ; eine Tabelle einfügen Name|ID
- Dim $aNamen[9] = ["Peter", "Ramona", "Michael", "Rolf", "Hans", "Petra", "Felix", "Dominik", "Steven"] ;Eine Array mit Namen
- For $x = 0 To UBound($aNamen) - 1
- $sSQL = "INSERT INTO `TestTabelle`(`Name`,`ID`) VALUES ('%s',%s)" ; Daten Hinzufügen SQL
- $sSQL = StringFormat($sSQL, $aNamen[$x], $x + 1)
- _SQLite_Exec($hDatabase, $sSQL) ;<-- hier kommen die Daten in die Datenbank
- Next
- #ce
- ;Auslesen
- Local $iClumn, $iRow,$aData
- _SQLite_GetTable($hDatabase, "SELECT `Name`,`ID` FROM `TestTabelle`",$aData, $iRow, $iClumn)
- #cs
- Die Array die zurückgegeben wird hat folgendes Format:
- [0] = Anzahl der Elemente im Array
- Danach kommen die Spaltennamen die gefetcht werden und darunter kommen die Daten
- in dem Format (1= Erste Spalte | 2 = Zweite Spalte)
- 1
- 2
- 1
- 2
- 1
- 2
- #ce
- For $x = $iRow To $aData[0] Step 2
- ConsoleWrite($aData[$x] & ":" & $aData[$x + 1] & @CRLF)
- Next
- _SQLite_Close($hDatabase) ;Datenbank schließen
- _SQLite_Shutdown(); sqlite herunterfahren
Advertisement
Add Comment
Please, Sign In to add comment