Italian andare in una altra interfaccia

[zakker]

no troppo difficile, vado per gradi.

come inserisco nel sistema un conteggio dei valori della tabella?

io facevo aggiungendo il count...ma mi da errore!

dovresti essere un po' più chiaro...

 

[Nikeddy]

vorrei semplicemente inserire una label dove si visualizza il numero di record all'interno del database.

 

[zakker]

vorrei semplicemente inserire una label dove si visualizza il numero di record all'interno del database.

Basta fare una query del tipo "SELECT count(*) FROM Tabella"

 

[Nikeddy]

e poi come inserisco il valore in una variabile?

 

[zakker]

e poi come inserisco il valore in una variabile?

esattamente come hai fatto con la query elencopark... crei un altro CASE nella jobdone

oppure per "ripsarmiare" una query, nel FOR EACH metti una variabile contatore che incrementi ad ogni ciclo.
A fine ciclo avrai il totale dei record...e quel valore lo metti nella label

 

[zakker]

e poi come inserisco il valore in una variabile?

 Select Job.JobName
            Case COUNTRIES_LIST
                Dim COUNTRIES As List
                COUNTRIES = parser.NextArray 'returns a list with maps
                For i = 0 To COUNTRIES.Size - 1
                    Dim m As Map
                    m = COUNTRIES.Get(i)
                    'We are using a custom type named TwoLines (declared in Sub Globals).
                    'It allows us to later get the two values when the user presses on an item.
                    Dim tl As TwoLines
                    tl.First = m.Get("n_macchina")
                    tl.Second = m.Get("zona")
                    ListView1.AddTwoLines2(tl.First, tl.Second, tl)
                Next

Anzi,riguardando il tuo codice,il valore ce l'hai già in COUNTRIES.size

 

[Nikeddy]

cosi?
Dim tot As List
tot = parser.NextArray 'returns a list with maps
For i = 0 To tot.Size
Dim m As Map
m = tot.Get(i)
lbl_totpark.text = i

 

[zakker]

no l'assegnazione devi farla fuori dal ciclo FOR

E comunque sei sicuro che funzioni così il codice? secondo me no...

Dim tot As List
tot = parser.NextArray 'returns a list with maps
For i = 0 To tot.Size
Dim m As Map
m = tot.Get(i)
...
...
next
lbl_totpark.text = i

 

[Nikeddy]

infatti mi da errore, devo mettere -1 dopo tot.size

 

[zakker]

che errore ti dà?

 

[Nikeddy]

ok risolto!!!!

    Case contaparcometri
                Dim tot As List
                tot = parser.NextArray 'returns a list with maps
                For i = 0 To tot.Size -1
                    Dim m As Map
                    m = tot.Get(i)       
                   
                Next
                lbl_totpark.text = i
                End Select

 

[Nikeddy]

una cosa...e grazie ancora
Dim c As Double
c = NumberFormat2(m.Get("tot_euro"),0, 0, 0, False)

come faccio a far venire fuori il numero intero senza le cifre dopo le virgole?

 

[Nikeddy]

ho fatto una query:

ExecuteRemoteQuery("SELECT data,descrizioneanomalia FROM archivio_rapp_giorn WHERE macchina='" & park & "' ORDER BY data ", anomalie)

e creato un case:

Case anomalie


Dim COUNTRIES As List


COUNTRIES = parser.NextArray


For i = 0 To COUNTRIES.Size - 1


Dim m As Map


m = COUNTRIES.Get(i)


Dim tl As TwoLines


tl.First = m.Get("data")


tl.Second = m.Get("descrizioneanomalia ")


lst_anomalie.AddTwoLines2(tl.First, tl.Second, tl)


Next

perché me ne visualizza 1 soltanto?

 

[Nikeddy]

ok risolto era sbagliato il ciclo!

(sto imparando piano piano, ora ho capito che per ogni query devo fare una case!)

 

[zakker]

ho fatto una query:

ExecuteRemoteQuery("SELECT data,descrizioneanomalia FROM archivio_rapp_giorn WHERE macchina='" & park & "' ORDER BY data ", anomalie)

e creato un case:

Case anomalie


Dim COUNTRIES As List


COUNTRIES = parser.NextArray


For i = 0 To COUNTRIES.Size - 1


Dim m As Map


m = COUNTRIES.Get(i)


Dim tl As TwoLines


tl.First = m.Get("data")


tl.Second = m.Get("descrizioneanomalia ")


lst_anomalie.AddTwoLines2(tl.First, tl.Second, tl)


Next

perché me ne visualizza 1 soltanto?

perchè dichiari tl ad ogni ciclo. Devi dichiararla fuori...magari nelle Globals

 

[Nikeddy]

ok correggo, devo impararmi queste cose.

ora ho un problema (formattazione stringa) estraggo un valore DATA
tl.First = m.Get("data")

e lo metto nella riga, solo che mi esce la data in formato inglese, e soprattutto con 0:00:00 che sono i minuti.

come faccio a trasformarlo in data breve?

 

[zakker]

ok correggo, devo impararmi queste cose.

ora ho un problema (formattazione stringa) estraggo un valore DATA
tl.First = m.Get("data")

e lo metto nella riga, solo che mi esce la data in formato inglese, e soprattutto con 0:00:00 che sono i minuti.

come faccio a trasformarlo in data breve?

Guarda ad esempio quì.
https://www.b4x.com/android/forum/threads/datetime-dateformat-where-should-it-be.65884/#post-417264

Poi, ad esempio puoi mettere nel modulo "Starter" in "Service_Create"

DateTime.DateFormat="dd/MM/yyyy"
DateTime.TimeFormat="HH:mm"

Così stabilisci un formato di default per date e orari

Apri però altri thread per le tue richieste...

 

[Nikeddy]

ok apro thread!

 

[zakker]

ok apro thread!

solo perchè se qualcuno entra nel thread per cercare una soluzione basandosi sul titolo, poi trova un miscuglio di troppa roba...

 

[Nikeddy]

si si hai ragione!