RecordCount= 8

[muyuy]

Ciao,

nel mio db ho vari valori all'interno di uno stesso recordset

facendo cosi:

sql="select Domanda1, COUNT(*) AS totale FROM TbDomande GROUP BY DOMANDA1"



Set ObjRs =Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, objConn, 1, 1, adCmdText

Do Until objRs.EOF

strd=objrs("Domanda1")

inum = objRs.RecordCount

Select case strd
case "1"
response.write "insufficiente:"& "........" &objRs("totale")& "
"
case "2"
response.write "sufficiente:"& "........" &objRs("totale")& "
"
case "3"
response.write "discreto:"& "........" &objRs("totale")& "
"
case "4"
response.write "buono:"& "........" &objRs("totale")& "
"
case "Assente"
response.write "Assente:"& "........" &objRs("totale")& "
"
case "5"
response.write "ottimo:"& "........" &objRs("totale")& "
"
case "NA"
response.write "NA:"& "........" &objRs("totale")& "
"
case null
response.write "Nnull:A:"& "........" &objRs("totale")& "
"

end select
ObjRs.MoveNext
Loop
response.write inum


il problema è che mi viene sempre 8 che sono i campi all'interno del mio db.
Io vorrei invece che mi venissero contati i valori all'interno della colonna..
come devo fare? :master:

[marco_c]

è giusto usare RecordCount per contare i record, cioè "i valori della colonna" come dici.

il problema secondo me sta nella query
mettendo GROUP BY secondo me ti raggruppa i record i 8 aree e quindi ti vengono fuori 8 record

controlla bene cosa ti dà la query magari facendo visualizzare tutti i record risultanti in una tabella

[muyuy]

Non mi è mica chiaro..

Group by mi dovrebbe raggruppare i dati del campo domanda1 e con il loop dovrei splitarmeli.
Perche' nel recordcont influisce il group by?

[marco_c]

perchè li conti..!

se hai una tabella tipo

ID NOME
1 marco
2 marco
3 paolo
4 paolo
5 paolo

e fai SELECT COUNT(*) GROUP BY NOME

ti ritorna 2 record, non 5

NOME COUNT
marco 2
paolo 3

[muyuy]

Non riesco a far funzionare la query


Dim objRs, sql

sql="select Domanda1, COUNT(*) AS totale FROM TbDomande "

Set ObjRs =Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, objConn, 3, 3, adCmdText

Do Until objRs.EOF
strd=objrs("Domanda1")


e mi ritorna questo errore

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Impossibile eseguire una query che non include l'espressione "Domanda1" specificata come parte di una funzione di aggregazione.
/quest/risp.asp, line 21


.. insomma non riesco a fare il conto dei valori.
In piu' mi si aggiunge il problema che non riesco a far stampare i record senza valore:


Select case strd
case "1"
response.write "insufficiente:"& "........" &objRs("totale")& "
"
case "2"
response.write "sufficiente:"& "........" &objRs("totale")& "
"
case "3"
response.write "discreto:"& "........" &objRs("totale")& "
"
case "4"
response.write "buono:"& "........" &objRs("totale")& "
"
case "Assente"
response.write "Assente:"& "........" &objRs("totale")& "
"
case "5"
response.write "ottimo:"& "........" &objRs("totale")& "
"
case "NA"
response.write "NA:"& "........" &objRs("totale")& "
"
case ""
response.write "Nnull:A:"& "........" &objRs("totale")& "
"
end select
ObjRs.MoveNext
Loop

E' l'ultimo case che non mi viene stampato..

[Yoava333]

Fai cosi

objRS.Open SQL, objConn, 3, 3, 1

[muyuy]

nulla..

non si risolve

[marco_c]

aggiungi GROUP BY Domanda1

[muyuy]

Ciao marco...

il problema è che io cerco di avere il conto totale dei record ..
se aggiungo GROUP BY Domanda1 mi viene fuori 8 e non il conto totale dei valori inseriti...

[marco_c]

ok ma...
la query così come l'hai impostata tu non può funzionare
gli dici di selezionare 2 cose
la prima sono tutti i valori del campo Domanda1 e vabè, questi valori saranno tanti quanti i record presenti nella tabella
la seconda cosa è un count di tutti i record indistintamente (visto che non c'è un group by) e quindi è UN VALORE SOLO
quindi lui si trova a dover gestire un risultato formato contemporaneamente da tanti record e da un record soltanto