Il db è access, io forse ho un'altra soluzione ma non so se può andare, utilizzo la query che vi ho postato, funziona, mi estrae solo i record che hanno del campo data(che è un campo testo) il 2004, poi faccio un do while per scorrere tutti i record estratti e nel do while inserisco un select case con un arrey, forse faccio prima a postare il codice:
codice:
Do while not objRs.EOF
select case mid(objRs("data"),4,2)
case "01"
strA=strA+1
case "02"
strB=strB+1
case "03"
strC=strC+1
case "04"
strD=strD+1
case "05"
strE=strE+1
case "06"
strF=strF+1
case "07"
strG=strG+1
case "08"
strH=strH+1
case "09"
strI=strI+1
case "10"
strL=strL+1
case "11"
strM=strM+1
case "12"
strN=strN+1
case else
msgbox("errore")
end Select
objRs.MoveNext
Loop
In questo caso ho usato dodici variabili ma posso anche usare un array.
Secondo voi può andare??
Ora provo se funziona poi vi faccio sapere.