'check if the database already exists
If File.Exists(File.DirInternal, "persons.db") = False Then
'if not, initialize it
SQL1.Initialize(File.DirInternal, "persons.db", True)
'and create it
CreateDataBase
Else
'if yes, initialize it
SQL1.Initialize(File.DirInternal, "persons.db", True)
End If
Private sub CreateDatabase()
Private Query As String
'create the database with 3 columns
Query = "CREATE TABLE persons (FirstName TEXT, LastName TEXT, City TEXT)"
SQL1.ExecNonQuery(Query)
'Fill a few entries
Query = "INSERT INTO persons VALUES (?, ?, ?)"
SQL1.ExecNonQuery2(Query, Array As Object("John", "KENNEDY", "New York"))
SQL1.ExecNonQuery2(Query, Array As Object("Peter", "FALK", "Los Angeles"))
SQL1.ExecNonQuery2(Query, Array As Object("Jack", "LONDON", "Seattle"))
SQL1.ExecNonQuery2(Query, Array As Object("Ronald", "REGAN", "Los Angeles"))
End Sub