Räkna poster i Accessdatabas

8 svar · 458 visningar · startad av itman 20 sep. 2002

itmanMedlem sedan dec. 200129 inlägg

Frågan20 sep. 2002 13:01#1

Är det någon som kan hjälpa mig med hur det går att räkna antal poster i en accessdatabas? Jag skall kunna räkna antal aktiva medlemmar samt passiva och juniorer var för sig. Detta skall man visa med en siffra!

I databasen ingår det Aktiva, passiva och juniorer.

Jag skriver i aspkod och detta har jag skrivit:

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\ADRESSBOK.mdb")
objconn.open
Dim strSQL
strSQL = "SELECT * FROM regmedl where grupp =Aktiva"

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn,adOpenKeyset

Do While Not objRS.EOF

objRS.MoveNext
Loop

Response.Write"<B>"
Response.Write"Aktiva" &objRS.RecordCount
Response.Write"</B>"

objRS.Close
set objRS = Nothing
objConn.Close
set objConn = Nothing

Är det någon som kan hjälpa mig?
//Patrik

@ndersMedlem sedan juni 200032 967 inlägg

20 sep. 2002 13:05#2

Hur skiljs aktiva, passiva och juniorer i tabellen? Hur ser den ut i övrigt?

@ndersMedlem sedan juni 200032 967 inlägg

20 sep. 2002 13:07#3

Ok, jag anar en liten redigering. ;)

Prova att ställa följande fråga i Access:

SELECT grupp, count(*) FROM regmedl group by grupp

Mvh,

itmanMedlem sedan dec. 200129 inlägg

20 sep. 2002 14:22#4

//Patrik

@ndersMedlem sedan juni 200032 967 inlägg

20 sep. 2002 14:27#5

@nders skrev:

Prova att ställa följande fråga i Access:
SELECT grupp, count(*) FROM regmedl group by grupp

Mvh,

itmanMedlem sedan dec. 200129 inlägg

20 sep. 2002 14:37#6

Jag provade
SELECT grupp, count(*) FROM regmedl group by grupp

men det funkade inte....

Jag har även provat:
strSQL = "SELECT * FROM regmedl where kat_id =1"
men inte fått detta att fungera!!

//Patrik

LarsGMedlem sedan dec. 200012 464 inlägg

20 sep. 2002 14:49#7

Attt bara säga

men det funkade inte....

är meningslöst. Beskriv på vilket sätt det inte fungerar. T.ex. om du får ett felmeddelande eller felaktigt resultat....

itmanMedlem sedan dec. 200129 inlägg

20 sep. 2002 14:49#8

Jag har löst detta med följande kod:
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\ADRESSBOK.mdb")
objconn.open
Dim strSQL
strSQL = "SELECT * FROM regmedl where kat_id =1"

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn,adOpenKeyset
Dim iRecordCount
iRecordCount = 0

Do While Not objRS.EOF
iRecordCount = iRecordCount+1
objRS.MoveNext
Loop
Response.Write"Det finns"&FormatNumber(iRecordCount,0) &" medlemmar"
'Response.Write"<B>"
'Response.Write"Aktiva" &objRS.RecordCount
'Response.Write"</B>"

objRS.Close
set objRS = Nothing
objConn.Close
set objConn = Nothing

Tack för ert intresse
//Patrik

EkströmMedlem sedan feb. 20022 594 inlägg

20 sep. 2002 14:50#9

Prova

strSQL = "SELECT grupp, count(*) as intPosts FROM regmedl where grupp = 'Aktiva' group by grupp"
Set objRS = objConn.Execute(strSQL)
Response.Write objRS("intPosts")