Public Sub Initialize (Callback As Object, EventName As String, ServerUrl As String)
sql.Initialize(File.DirInternal, "db.db", True)
If sql.ExecQuerySingleResult("SELECT count(name) FROM sqlite_master WHERE type='table' AND name='data'") = 0 Then
Log("Creating new database!")
' создание локального хранилища данных
sql.ExecNonQuery("CREATE TABLE data (user TEXT, key TEXT, value BLOB, origin TEXT, id INTEGER, time INTEGER, PRIMARY KEY (user, key))")
sql.ExecNonQuery("CREATE INDEX id_index ON data (id)")
' создание таблицы запросов
sql.ExecNonQuery("CREATE TABLE queue (qid INTEGER PRIMARY KEY AUTOINCREMENT, task BLOB, taskname TEXT, user TEXT, key TEXT)")
sql.ExecNonQuery("CREATE INDEX id_index2 ON queue (user, key)")
End If
End Sub