Android Question KeyValueStore

[JoséCarlos]

I created a KeyValueStore with lots of data and put it in DirAssets.
Later I copied from DirAssests to DirInternal to use, however when I access the data it doesn't exist!
Please what am I doing wrong?

 

[josejad]

How have your created the KeyValueStore?
You don't have to copy from any place, just initialize it
From this post:

[B4X] KVS - KeyValueStore library

A key / value persistent store. The data is serialized using B4XSerializator and is stored in an internal database. The database can be shared between B4A, B4i and B4J. Using KVS is similar to using a Map. You initialize it once and then you can put or get items with Put, Get or GetDefault...

www.b4x.com

    xui.SetDataFolder("kvs")
    kvs.Initialize(xui.DefaultFolder, "kvs.dat")
    kvs.Put("time", DateTime.Now)

 

[JoséCarlos]

I know it.
That's a lot of data I filled the data on the computer!

 

[josejad]

But, how have you saved the data in the computer?
Please, show the code you've used.

Sorry, I don't speak portuguese (but I'd love it)

 

[JoséCarlos]

I used B4J, saved it to datastore2.dat and copied it to DirAssets.
Later in the app I copied it to DirInternal.

    Public kvs As KeyValueStore
    kvs.Initialize("H:\B4J\Projetos\AtualizarDadosKVS\", "datastore2.dat")
    Root = Root1
    Root.LoadLayout("MainPage")
    Dim FileName As String = "lista.json"
    Dim TargetDir As String = "H:\B4J\Projetos\AtualizarDadosKVS\"
    Dim ajson As String = File.ReadString( TargetDir,FileName)
    Dim parser As JSONParser
    parser.Initialize( ajson )
    Dim MapJson As Map = parser.NextObject
    Dim myMap As Map 'mapa auxiliar para navegação
    Dim ListaDados As List
    myMap = MapJson.Get("tudo")
    ListaDados = myMap.Get("dados")
    For i = 0 To ListaDados.Size - 1
        myMap = ListaDados.Get(i)
        kvs.Put(myMap.Get("Numero"), "{'data':"&"'"&myMap.Get("data")&"'"&","&"'lista'"&":"& myMap.Get("lista")&"}")
        If myMap.Get("Numero") = "2303" Then
'            Exit
        End If
        Log(myMap.Get("Numero")&"  "&myMap.Get("data")&"  "&myMap.Get("lista"))
    Next

 

[Erel]

The database can be made of up to three files. Check the generated files in your B4J project.

 

[JoséCarlos]

Thanks Erel for the Post, it was an honor.
But sorry I don't understand what you mean about up to three files!

 

[Erel]

Check this folder: H:\B4J\Projetos\AtualizarDadosKVS\
See if there are files such as datastore2.dat-shm and datastore2.dat-wal

 

[JoséCarlos]

Not either, just datastore2.dat.
Would it be some configuration?

 

[Erel]

So the problem is somewhere else. Post the code that copies the database file to File.DirInternal

 

[JoséCarlos]

I sincerely apologize about this for not posting.
I fixed the error, the problem is that the DirAssests folder would not delete or copy if the file did not have a xxxxx.yyy ending and I was using only xxxxx without .yyy
Thank you for your attention and once again I'm sorry.
I'm new to the forum, but I'm learning.

 

[JoséCarlos]

My English is translated from Portuguese in the translator.
It owes some glitches.

 

[josejad]

I'm sorry.

No need

but I'm learning.

we all are...