---
title: "Räkna poster i Accessdatabas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/53786-räkna-poster-i-accessdatabas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "itman"
published: "2002-09-20T13:01:28.000Z"
updated: "2002-09-20T14:50:36.000Z"
replies: 8
views: 476
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/53786-räkna-poster-i-accessdatabas"
---

# Räkna poster i Accessdatabas

## #1 — itman, 2002-09-20T13:01Z

Ä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

Permalänk: https://www.webforum.nu/p/53786

## #2 — @nders, 2002-09-20T13:05Z

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

Permalänk: https://www.webforum.nu/p/793020

## #3 — @nders, 2002-09-20T13:07Z

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,

Permalänk: https://www.webforum.nu/p/793021

## #4 — itman, 2002-09-20T14:22Z

Tabellen ser ut som följer:
grupp      \| kat_id \| namn, efternamn, o.s.v.
Aktiva      \|      1    \|
Passiva    \|      2    \|

//Patrik

Permalänk: https://www.webforum.nu/p/793061

## #5 — @nders, 2002-09-20T14:27Z

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

Mvh,

Permalänk: https://www.webforum.nu/p/793062

## #6 — itman, 2002-09-20T14:37Z

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

Permalänk: https://www.webforum.nu/p/793072

## #7 — LarsG, 2002-09-20T14:49Z

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....

Permalänk: https://www.webforum.nu/p/793076

## #8 — itman, 2002-09-20T14:49Z

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

Permalänk: https://www.webforum.nu/p/793077

## #9 — Ekström, 2002-09-20T14:50Z

Prova

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

Permalänk: https://www.webforum.nu/p/793079

---

Tråden på webben: https://www.webforum.nu/amne/asp/53786-räkna-poster-i-accessdatabas