RosettaCodeData/Task/Parametrized-SQL-statement/PureBasic/parametrized-sql-statement.purebasic
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

19 lines
543 B
Text

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
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