;
; ------------------------------------------------------------
;
;   SpiderBasic - Database example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

If OpenDatabase(0)
  
  DatabaseUpdate(0, "CREATE TABLE superheroes (firstname TEXT, name TEXT, weight REAL)")
 
  DatabaseUpdate(0, "INSERT INTO superheroes (firstname, name, weight) Values ('Peter', 'Parker', '80.8')")
  DatabaseUpdate(0, "INSERT INTO superheroes (firstname, name, weight) Values ('Bruce', 'Wayne', '70.5')")
  DatabaseUpdate(0, "INSERT INTO superheroes (firstname, name, weight) Values ('Clark', 'Kent', '75.1')")
  
  ; List all superheroes with weigth > 72
  ; 
  If DatabaseQuery(0, "SELECT * FROM superheroes WHERE weight > 72")
    While NextDatabaseRow(0)
      Debug "superhero: " + GetDatabaseString(0, 0) + " " + GetDatabaseString(0, 1) + " (weight: " + GetDatabaseDouble(0, 2) + " kg)"
    Wend
   
    FinishDatabaseQuery(0)
  Else
    Debug "DatabaseQuery() failed: " + DatabaseError()
  EndIf  
 
  CloseDatabase(0)
Else
  Debug "OpenDatabase() failed."
EndIf