---
title: "Hämta info från db och räkna på det."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/77185-hämta-info-från-db-och-räkna-på-det"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "[AMD]Zmaster"
published: "2003-05-16T20:59:48.000Z"
updated: "2003-05-16T21:21:33.000Z"
replies: 3
views: 205
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/77185-hämta-info-från-db-och-räkna-på-det"
---

# Hämta info från db och räkna på det.

## #1 — [AMD]Zmaster, 2003-05-16T20:59Z

Tjena tjena, sitter med en databas med namnet databas.mdb.
I databasen finns det flera olika tabeller, en av dem heter nyheter.
I tabellen nyheter finns det 4 fält.
id, rubrik, nyhet och datum.
Jag vill på en sida hämta varje post order by datum, så att jag får alla nyheter i rader, och sen att en kod räknar hur många antal tecken det är sammanlagt och skriver ut det på sidan.

Frågan är nu, någon riktigt duktig som klarar detta?

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

## #2 — Sebbe, 2003-05-16T21:05Z

Jag antar att du vill skriva ut hur många tecken alla nyheter innehåller tillsammans?
Skriver hela koden för att det ska bli lättare för mig. ;)

```
<%
Dim objConn, objRS, strSQL, intTecken

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas.mdb")
strSQL = "SELECT * FROM nyheter ORDER BY datum DESC"
Set objRS = objConn.Execute(strSQL)

If NOT objRS.EOF Then
  Do Until objRS.EOF
    intTecken = intTecken + CInt(Len(objRS("nyhet")))
    objRS.MoveNext
  Loop
End If

Response.Write("Det fanns " & intTecken & " sammanlagt i nyheterna.")

Set objRS = Nothing
objConn.Close : Set objConn = Nothing
%>
```

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

## #3 — cyprys, 2003-05-16T21:05Z

Q: Frågan är nu, någon riktigt duktig som klarar detta?
A: Nope, men jag duger nog

```
' Databaskopplingar, recordset, sql m.m
Dim totaltecken

do until rs.eof
response.write rs("nyhetsID")

totaltecken = totaltecken - -len(rs("nyheten"))

rs.movenext
loop

response.write "Alla nyheter bestod av " & totaltecken & " tecken."
```

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

## #4 — [AMD]Zmaster, 2003-05-16T21:21Z

Tack så mycket, körde på Sebbes, han hade databaskopplingarna med, så jag tog hans..lättast så!
Tack du med cyprys :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/77185-hämta-info-från-db-och-räkna-på-det