Sprenger120

SQLite Beispiel: Daten auslesen

Mar 26th, 2011
1,701
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.33 KB | None | 0 0
  1. #include <SQLite.au3> ;SQLite Funktions include
  2. #include <SQLite.dll.au3>  ; die SQLite dll
  3. _SQLite_Startup() ;SQLite initialisieren
  4.  
  5. $hDatabase = _SQLite_Open(@ScriptDir & "\TestDatenbank.sqlite") ;eine neue datenbank erstellen
  6.  
  7. #cs
  8. _SQLite_Exec($hDatabase, "CREATE TABLE IF NOT EXISTS `TestTabelle`(`Name` TEXT,`ID` INTERGER)") ; eine Tabelle einfügen   Name|ID
  9. Dim $aNamen[9] = ["Peter", "Ramona", "Michael", "Rolf", "Hans", "Petra", "Felix", "Dominik", "Steven"] ;Eine Array mit Namen
  10. For $x = 0 To UBound($aNamen) - 1
  11.     $sSQL = "INSERT INTO `TestTabelle`(`Name`,`ID`) VALUES ('%s',%s)" ; Daten Hinzufügen SQL
  12.     $sSQL = StringFormat($sSQL, $aNamen[$x], $x + 1)
  13.     _SQLite_Exec($hDatabase, $sSQL) ;<-- hier kommen die Daten in die Datenbank
  14. Next
  15. #ce
  16.  
  17. ;Auslesen
  18. Local $iClumn, $iRow,$aData
  19. _SQLite_GetTable($hDatabase, "SELECT `Name`,`ID` FROM `TestTabelle`",$aData, $iRow, $iClumn)
  20. #cs
  21.     Die Array die zurückgegeben wird hat folgendes Format:
  22.     [0] = Anzahl der Elemente im Array
  23.     Danach kommen die Spaltennamen die gefetcht werden und darunter kommen die Daten
  24.     in dem Format   (1= Erste Spalte | 2 = Zweite Spalte)
  25.     1
  26.     2
  27.     1
  28.     2
  29.     1
  30.     2
  31. #ce
  32.  
  33. For $x = $iRow To $aData[0] Step 2
  34.     ConsoleWrite($aData[$x] & ":" & $aData[$x + 1] & @CRLF)
  35. Next
  36.  
  37. _SQLite_Close($hDatabase) ;Datenbank schließen
  38. _SQLite_Shutdown(); sqlite herunterfahren
Advertisement
Add Comment
Please, Sign In to add comment