contare record colonna specifica

[azocomposto]

Ciao,
devo estrarre delle statistiche da un database access, per cui ho bisogno di sapere quanti records ci sono in una specifica colonna, che hanno un determinato valore.

Ad esempio: tabella_anagrafe ---> colonna_nomi nella quale voglio sapere quanti mario sono inseriti.
Ho trovato questo codice, ma estrae solo i records totali:

<%@LANGUAGE = VBScript%>
<%
Dim sc, cn, rs

sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};"
sc = sc & "dbq=" & Server.MapPath("database.mdb")

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open sc

rs.Open "SELECT * FROM tabella_anagrafe", cn, 1

Response.Write "Ci sono " & rs.RecordCount & " record"

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>


al posto di questa parte di codice, come la posso scrivere?
"SELECT * FROM tabella_anagrafe", cn, 1

Grazie

[Roby_72]

SELECT * FROM tabella_anagrafe WHERE colonna = 'Mario'

Roby

[optime]

per condurre una vita la più sana possibile farei addirittura

SELECT COUNT(*) FROM tabella_anagrafe WHERE colonna = 'Mario'

[azocomposto]

In risposta a Roby, usando la tua select, mi restituisce questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/prova.asp, line 14

Se imposto la select nativa dello script, funziona correttamente

Grazie

[azocomposto]

per maggior chiarezza, posto il codice che ho utilizzato:

<%@LANGUAGE = VBScript%>
<%
Dim sc, cn, rs

sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};"
sc = sc & "dbq=" & Server.MapPath("database.mdb")

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open sc

rs.Open "SELECT COUNT(*) FROM nome_tabella WHERE nome_colonna = 'valore';", cn, 1

Response.Write "Ci sono " & rs.RecordCount & " record"

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
%>

Grazie

[Roby_72]

sql = "SELECT COUNT(*) FROM nome_tabella WHERE nome_colonna = 'valore'"
set rs = Cn.Execute(sql)
Response.Write "Ci sono " & rs(0) & " record"
set rs = nothing

Roby

[azocomposto]

in riferimento alla risposta di Roby

Ciao,
il codice che mi hai scritto tu va benissimo se imposto un valore testuale come ='testo' ' così:
sql = "SELECT COUNT(*) FROM nome_tabella WHERE nome_colonna = 'testo'"

ma se al posto del valore testuale scrivo un numero in questo modo:

sql = "SELECT COUNT(*) FROM nome_tabella WHERE nome_colonna = '21'"

mi restituisce questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/prova.asp, line 16


come si può risolvere questo problema?

Grazie

[Roby_72]

Mi pare parecchio strano...
Il campo è di tipo testo giusto?

Roby

[optime]

posta la query VERA

[azocomposto]

Roby, il codice originale è:

<%@LANGUAGE = VBScript%>
<%
Dim sc, cn, rs

sc = ""
sc = sc & "driver={Microsoft Access Driver (*.mdb)};"
sc = sc & "dbq=" & Server.MapPath("database.mdb")

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.Open sc

sql = "SELECT COUNT(*) FROM nome_tabella WHERE nome_colonna = 'valore'"
set rs = Cn.Execute(sql)
Response.Write "Ci sono " & rs(0) & " record"
set rs = nothing

%>

quando uso questo:
sql = "SELECT COUNT(*) FROM nome_tabella WHERE nome_colonna_numeri = '21'"

va a leggere nei campi della colonna che sono impostati su numerico, mi restituisce quest'errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/prova.asp, line 16


se invece uso questo:
sql = "SELECT COUNT(*) FROM nome_tabella WHERE nome_colonna_testo = 'testo'"

va a leggere nei campi della colonna che sono impostati su testo e funziona correttamente

Come posso fare?

Grazie