Sub PreparaDB
If File.Exists (File.DirApp, "DbRubTel.db") = False Then
File.Copy (File.DirAssets, "DbRubTel.db" File.DirApp, "DbRubTel.db")
End If
cSQL.InitializeSQLite (File.DirApp, "DbRubTel.db", True)
dbPath = File.Combine (File.DirApp, "DbRubTel.db")
kvs.Initialize (File.DirApp, "DbRubTel.db")
kvs.Put ("key", "value")
Log (kvs.Get ( "key"))
cSQL.ExecNonQuery ("PRAGMA journal_mode = wal") 'is used to open SQLITE_BUSY
End Sub