2016 Update

Task/Parametrized-SQL-statement/PureBasic/parametrized-sql-statement.purebasic

@@ -1,19 +1,53 @@
 UseSQLiteDatabase()
 
-DatabaseFile$ = GetTemporaryDirectory()+"/Batadase.sqt"
-; all kind of variables for the given case
- table$ = "players"
- name$ = "Smith, Steve"
- score.w = 42
- active$ ="TRUE"
- jerseynum.w =99
+Procedure CheckDatabaseUpdate(database, query$)
+  result = DatabaseUpdate(database, query$)
+  If result = 0
+    PrintN(DatabaseError())
+  EndIf
+
+  ProcedureReturn result
+EndProcedure
+
+
+If OpenConsole()
+  If OpenDatabase(0, ":memory:", "", "")
+    ;create players table with sample data
+    CheckDatabaseUpdate(0, "CREATE table players (name, score, active, jerseyNum)")
+    CheckDatabaseUpdate(0, "INSERT INTO players VALUES ('Jones, Bob',0,'N',99)")
+    CheckDatabaseUpdate(0, "INSERT INTO players VALUES ('Jesten, Jim',0,'N',100)")
+    CheckDatabaseUpdate(0, "INSERT INTO players VALUES ('Jello, Frank',0,'N',101)")
+
+    Define name$, score, active$, jerseynum
+    name$ = "Smith, Steve"
+    score = 42
+    active$ ="TRUE"
+    jerseynum = 99
+    SetDatabaseString(0, 0, name$)
+    SetDatabaseLong(0, 1, score)
+    SetDatabaseString(0, 2, active$)
+    SetDatabaseLong(0, 3, jerseynum)
+    CheckDatabaseUpdate(0, "UPDATE players SET name = ?, score = ?, active = ? WHERE jerseyNum = ?")
+
+    ;display database contents
+    If DatabaseQuery(0, "Select * from players")
+      While NextDatabaseRow(0)
+        name$ = GetDatabaseString(0, 0)
+        score = GetDatabaseLong(0, 1)
+        active$ = GetDatabaseString(0, 2)
+        jerseynum = GetDatabaseLong(0, 3)
+        row$ = "['" + name$ + "', " + score + ", '" + active$ + "', " + jerseynum + "]"
+        PrintN(row$)
+      Wend
+
+      FinishDatabaseQuery(0)
+    EndIf
 
- If OpenDatabase(0, DatabaseFile$, "", "")
-    Result =  DatabaseUpdate((0, "UPDATE "+table$+" SET name = '"+name$+"', score = '"+Str(score)+"', active = '"+active$+"' WHERE jerseyNum = "+Str(num)+";")
-     If Result = 0
-        Debug DatabaseError()
-     EndIf
     CloseDatabase(0)
- Else
-    Debug "Can't open database !"
- EndIf
+  Else
+    PrintN("Can't open database !")
+  EndIf
+
+  Print(#CRLF$ + #CRLF$ + "Press ENTER to exit"): Input()
+  CloseConsole()
+EndIf