Conta iniziali su database

[digitm]

Ecco il quesito

Ho un database con la tabella "iniziali" in cui ci sono, per ogni record, una lettera dell'alfabeto (comprese W, Y, K, J) o un numero (da 0 a 9)

quindi è possibile che ci siano 3 "A", 2 "B", 7 "C", 3 "5", e così via... Mi servirebbe qualcosa che mi restituisca

A (3) | B (2) | C (7) ......... | 5 (3)

come si fa?

grazieeee

[chipdb]

Supponendo che la tabella nel db sia fatta così:

+----+---------+
| id | lettera |
+----+---------+
|  1 | A       |
|  2 | B       |
|  3 | C       |
|  4 | D       |
|  5 | A       |
+----+---------+

se fai così:

select lettera, count(lettera) from lettere group by lettera;

ti restituisce

+---------+----------------+
| lettera | count(lettera) |
+---------+----------------+
| A       |              2 |
| B       |              1 |
| C       |              1 |
| D       |              1 |
+---------+----------------+

Dopo basta che scorri il recordset e sistemi i dati nel modo che vuoi...

[digitm]

grazie per la risposta, ma in che modo recupero i valori. Io penserei ad un ciclo "do While", ma non saprei proseguire... Altra domanda, e se volessi che per le lettere mancanti spunti

P (0) | Q (0)

???????????????

[chipdb]

Suppongo che lavori con un db access giusto? Comunque:

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("/mdb-database/main_data.mdb")
set rs = conn.execute ("select lettera, count(lettera) from iniziali group by lettera")

'Qui crei un array lettere() dove ad ogni lettera e numero corrisponde un indice
'quindi a 0 lo 0, all'1 1... ad 10 A e così via

while not rs.eof
    if isNumeric(rs("lettera")) then
        lettere(cint(rs("lettera"))) = lettere(cint(rs("lettera")))+cint(rs(1))
    else
        lettere(cint(rs("lettera"))+10) = lettere(cint(rs("lettera"))+10)+cint(rs(1))
    end if
    rs.movenext
wend

può andare?

[optime]

oppure nella query metti in join un'altra tabella dove sono presenti tutte le iniziali

[digitm]

<%
Set rs = Server.CreateObject("ADODB.Recordset")
query="SELECT iniziale, COUNT(iniziale) as conteggio FROM clienti GROUP BY iniziale order by iniziale asc"
rs.Open query, conn ,3,3

do while not rs.eof
response.write (rs("iniziale") + " " + cstr(rs("conteggio")))&"
"
rs.movenext
loop
%>


così mi conta le lettere e le relative frequenze, ma non so come fare con gli array (non sono un esperto)

[digitm]

nessuno che mi può dire come fare??

[digitm]

Ho fatto così, ma non va...


<%
Alfabeto = Array("A","B","C","D","E","F","G","H","I","L","M", "N","O","P","Q","R","S","T","U","V","Z","0","1","2 ","3","4","5","6","7","8","9")
For Each Lettera in Alfabeto

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select iniziale, count(iniziale) AS total From clienti where iniziale='"&lettera&"' GROUP BY iniziale order by iniziale asc"
rs.Open sql, conn ,3,3
response.write sql&" "&rs("total")&"
"
Next
%>

[optime]

ti avevo suggerito di mettere in JOIN una tabellina con tutte le iniziali. l'hai fatto?

[digitm]

no... non saprei come fare... ho fatto una ricerca sul forum ed ho trovato quello script e volevo adattarlo... mi puoi aiutare?
Grazie