Italian sql e conta valori

[Nikeddy]

Salve a tutti, ho quasi finito di riempire il forum di domande...perdonatemi.

sto facendo una ricerca, ho bisogno che secondo il valore del database, lui conteggia, cosi da sapere quante macchine ho divise per modello.

ho fatto cosi:

Sub Fetchparktipo
    'Gets all the available countries
    ExecuteRemoteQuery("SELECT * FROM elenco", contatipo)
End Sub

e poi nel jobdone:

Case contatipo
            Dim tot As List
            Dim tizio As Int
            Dim caio As Int
            tot = parser.NextArray
            For i = 0 To tot.Size -1
                Dim m As Map
                If m.Get("tipo_parc") = "tizio" Then
                    tizio= tizio+1
                End If
                If m.Get("tipo_parc") = "caio" Then
                    caio= caio+1
                End If
            Next
            lbl_totalecaio.Text = caio
            lbl_totaletizio.text = tizio
            lbl_totpark.text = i

ma non va... come faccio?

 

[MarcoRome]

Ma se utilizzi:

SELECT COUNT(column_name) as totale_tizio FROM elenco where tipo_parc = 'tizio'

 

[Nikeddy]

quindi:

Sub Fetchparktipo
    Dim totale_neops As Int
   
    ExecuteRemoteQuery("SELECT COUNT(tipo_parc) as totale_neops FROM elenco_parcometri where tipo_parc = 'neops'",contatipo)
End Sub

e quindi:

Case contatipo
lbl_totaletizio.Text = parser.NextArray

 

[MarcoRome]

quindi:

Sub Fetchparktipo
    Dim totale_neops As Int
  
    ExecuteRemoteQuery("SELECT COUNT(tipo_parc) as totale_neops FROM elenco_parcometri where tipo_parc = 'neops'",contatipo)
End Sub

e quindi:

Case contatipo
lbl_totaletizio.Text = parser.NextArray

No. Buona la prima istruzione ..la seconda è:

.....
Case contatipo
            Dim tot As List
            Dim totale As Int
            tot = parser.NextArray
            Dim m As Map
            m = tot.Get(0)
           totale = m.Get("totale_neops")
......

 

[Nikeddy]

funziona perfettamente!!!! grande!