I was glad to see a database in local-storage but unfortunately it is not persistent.
To do this test, I took the code to peter
Code: Select all
If OpenDatabase(0)
Debug "OpenDatabase(): OK"
DatabaseUpdate(0, "Create Table SuperHeroes (Prename TEXT, Surname TEXT)")
DatabaseUpdate(0, "Insert Into SuperHeroes (Prename, Surname) Values ('Peter', 'Parker')")
DatabaseUpdate(0, "Insert Into SuperHeroes (Prename, Surname) Values ('Bruce', 'Wayne')")
DatabaseUpdate(0, "Insert Into SuperHeroes (Prename, Surname) Values ('Clark', 'Kent')")
If DatabaseQuery(0, "Select * From SuperHeroes Where Prename = 'Peter'")
While NextDatabaseRow(0)
Debug GetDatabaseString(0, 1) + "," + GetDatabaseString(0, 0)
Wend
FinishDatabaseQuery(0)
Else
Debug "DatabaseQuery() failed"
Debug DatabaseError()
EndIf
CloseDatabase(0)
Else
Debug "OpenDatabase() failed"
EndIf
Now I want to add another hero and list the contents of the database with this code.
Code: Select all
If OpenDatabase(0)
Debug "OpenDatabase(): OK"
;Add new Hero
DatabaseUpdate(0, "Insert Into SuperHeroes (Prename, Surname) Values ('Barry', 'Allen')")
;View all records
If DatabaseQuery(0, "Select * From SuperHeroes")
While NextDatabaseRow(0)
Debug GetDatabaseString(0, 1) + "," + GetDatabaseString(0, 0)
Wend
FinishDatabaseQuery(0)
Else
Debug "DatabaseQuery() failed"
Debug DatabaseError()
EndIf
CloseDatabase(0)
Else
Debug "OpenDatabase() failed"
EndIf
Debug wrote:OpenDatabase(): OK
DatabaseQuery() failed
no such table: SuperHeroes