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

3 svar · 200 visningar · startad av [AMD]Zmaster 16 maj 2003

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

Frågan16 maj 2003 20:59#1

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?

SebbeMedlem sedan jan. 20032 285 inlägg

16 maj 2003 21:05#2

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

cyprysMedlem sedan dec. 20003 563 inlägg

16 maj 2003 21:05#3

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

[AMD]ZmasterMedlem sedan mars 20021 716 inlägg

16 maj 2003 21:21#4

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