Problema con query SQL Count

[Mizushi]

Ciao a tutti.

Ho scritto la seguente query per contare nella tbl anagrafica le risorse appartenenti ad ogni singolo ufficio, ma la query non restituisce nulla, dove sbaglio la logica della query ?:

sql_count = " SELECT COUNT(*) "
sql_count = sql_count & " FROM "
sql_count = sql_count & " anagrafica "
sql_count = sql_count & " AS totale_risorse "
sql_count = sql_count & " GROUP BY ID_UFFICIO "

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sql_count, cn

If Not objRS.eof Then

objRS.MoveFirst  
Do While Not objRS.EOF

response.write objRS("totale_risorse") &"
"

objRS.MoveNext
Loop

objRS.Close
Set objRS = Nothing

Cn.Close
Set Cn = Nothing 

end if

[Mems]

sql_count = " SELECT COUNT(ID_UFFICIO) "
sql_count = sql_count & " AS totale_risorse "
sql_count = sql_count & " FROM "
sql_count = sql_count & " anagrafica "
sql_count = sql_count & " GROUP BY ID_UFFICIO "

[Mizushi]

Grazie Mems, ma è lo stesso... non stampa nulla...

[Mems]

sql_count = " SELECT COUNT(ID_UFFICIO)"
sql_count = sql_count & " AS totale_risorse"
sql_count = sql_count & " FROM"
sql_count = sql_count & " anagrafica"
sql_count = sql_count & " GROUP BY ID_UFFICIO"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sql_count, cn, 3, 1

response.write "Totale risorse: " & objRS.("totale_risorse") &"
"

objRS.Close
Set objRS = Nothing

Cn.Close
Set Cn = Nothing

[optime]

se hai una ON ERROR RESUME NEXT da qualche parte, toglila

[Mizushi]

Originariamente inviato da optime
se hai una ON ERROR RESUME NEXT da qualche parte, toglila

Nessun ON ERROR RESUME NEXT.

La tbl anagrafica è così composta:

ID - ID_UFFICIO - MATRICOLA - NOMINATIVO

Dovrei contare per ciascun ID_UFFICIO il numero dei NOMINATIVI.

sql_count = " SELECT "
sql_count = sql_count & " COUNT(ID_UFFICIO) "
sql_count = sql_count & " FROM "
sql_count = sql_count & " anagrafica "
sql_count = sql_count & " AS totale_risorse "
sql_count = sql_count & " GROUP BY ID_UFFICIO "

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sql_count, cn

If Not objRS.eof Then

objRS.MoveFirst  
Do While Not objRS.EOF

response.write "Totale risorse: " & objRS("totale_risorse") & "
"

objRS.MoveNext
Loop

objRS.Close
Set objRS = Nothing

Cn.Close
Set Cn = Nothing 

end if

[optime]

Originariamente inviato da Mizushi
Nessun ON ERROR RESUME NEXT.

e NON ti dà errore? perché la query è sbagliata...

[Mizushi]

Allora... ho riscritto la query... adesso restituisce:

ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/test.asp, line 26

su questa linea:

response.write objRS("totale_risorse") &"
"

[Mems]

Ti ho postato il codice modificato. Provalo.

[optime]

è giusto che ti dia errore, ti ho già detto che la query è sbagliata. usa la prima di mems. per il resto è buono il tuo codice