Notifikationer

Markér alle som læst Log ud

exp-ralle Nybegynder

21. august 2002 - 20:16 Der er 18 kommentarer og
4 løsninger

Tælle antal poster i database

Hvordan kan man tælle hvor mange poster der er i en database ?

Altså fx. til et newssystem hvordan kan man der tælle hvor mange nyheder der er i databasen ?

Synes godt om

keysersoze Ekspert

21. august 2002 - 20:18 #1

SELECT COUNT(id) AS antalposter FROM dintabal

response.write rs("antalposter")

Synes godt om

flax Nybegynder

21. august 2002 - 20:21 #2

strSQL2 = "Select count(*) as antal from dintabel"
set rs2 = DBConn.Execute(strSQL2)

Synes godt om

exp-ralle Nybegynder

21. august 2002 - 20:27 #3

keysersoze ---> id er det et felt der skal være i db'en ?

Synes godt om

fiskerendk Nybegynder

21. august 2002 - 20:30 #4

<%
Response.Buffer = True
mode = Request.QueryString("mode")
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
%><% if mode = "" then

set rs = Conn.Execute("select count(*) as id from news")
id = rs("id")
rs.close
set rs = nothing
%><%=id%><% end if %><%
conn.close
set conn = nothing
%>)

Synes godt om

medions Nybegynder

21. august 2002 - 20:31 #5

strSQL = "SELECT COUNT(*) FROM dintabel"
Set objRs = objConn.Execute(strSQL)

for udskrift...

Response.Write("Der er: " & objRs(0) & " poster i databasen!")

//>Rune

Synes godt om

keysersoze Ekspert

21. august 2002 - 20:35 #6

ja - men du kan bare benytte et eksisterende kolonnenavn eller bare benytte *

Synes godt om

medions Nybegynder

21. august 2002 - 20:43 #7

keysersoze og flax> Husk at hvis han bruger Access skal der være [ og ] rundt om ID før det vil virke, da ID er et reseveret ord i Access...

//>Rune

Synes godt om

exp-ralle Nybegynder

21. august 2002 - 20:55 #8

Ok tak, men kan nogen lige som noget ekstra (hvis i gider) sige mig hvordan jeg kan gøre sådan at den først skrevede fx. nyhed ikke får en <hr> under sig ?

Synes godt om

medions Nybegynder

21. august 2002 - 21:00 #9

Så er vi nødt til lige at se din kode...

//>Rune

Synes godt om

exp-ralle Nybegynder

21. august 2002 - 21:06 #10

<html>
<head>
<title>Trænings oversigt</title>
<link rel="stylesheet" href="style.css" type="text/css">
</head>

<body>
Oversigt | <a href="tilfoj.asp">Tilføj</a> 

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

strSQL = "Select * From Traening Order by Id desc"

Set rs = Conn.Execute(strSQL)

If rs.EOF Then
Response.Write "Ingen træninger endnu"

Else

Do

Response.Write "Længde: " & rs("Længde") & " km. "
Response.Write "Tid: " & rs("Tid") & " min. "
Response.Write "Dato: " & rs("Dato") & " "
---->HEEEEEEEEEEEEEER<----
Response.Write "Rutenavn: " & rs("Rutenavn") & ""
Else
Response.Write "Rutenavn: " & rs("Rutenavn") & " <hr color='#000000' size='1'> "
End if

rs.MoveNext
Loop While NOT rs.EOF

End if

Conn.Close
Set Conn = Nothing

%>

</body>

</html>

et lille trænings system...
der hvor der står ---->HEEEEEEEEEEEEEER<----
skal det kode som gør at hvis dette var den først postede træning så kommer der ikke en <hr> da det ser lidt dumt ud... problemmet er bare at jeg ikke kan finde ud af det hehe.

Synes godt om

exp-ralle Nybegynder

21. august 2002 - 21:07 #11

Jeg har prøvet med
If rs("Id") = 1 Then
...

men det går ikke da den første træning ikke længere har nummer 1 :(

Synes godt om

eagleeye Praktikant

21. august 2002 - 21:09 #12

medions>> ID er ikke reserveret ord i SQL eller Access.. Det er et almendelig brugt kolonnenavn for den kolonne man bruger som autonummer. Jeg tror måske du tænker på IN.

Synes godt om

eagleeye Praktikant

21. august 2002 - 21:27 #13

Du kan tilføje en variable firstPost=ture og indsæt det lige før Do.. sådan her:

firstPost = true
Do

Og der hvor der står: ---->HEEEEEEEEEEEEEER<----
Skriver du disse to linie, du har selv indsat else og end if:

if firstPost = true then
firstPost = false

Synes godt om

exp-ralle Nybegynder

21. august 2002 - 21:52 #14

så får ingen af træningerne en <hr>:

<html>
<head>
<title>Trænings oversigt</title>
<link rel="stylesheet" href="style.css" type="text/css">
</head>

<body>
Oversigt | <a href="tilfoj.asp">Tilføj</a> 

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

strSQL = "Select * From Traening Order by Id desc"

Set rs = Conn.Execute(strSQL)

If rs.EOF Then
Response.Write "Ingen træninger endnu"

Else

FirstPost = True
Do

Response.Write "Længde: " & rs("Længde") & " km. "
Response.Write "Tid: " & rs("Tid") & " min. "
Response.Write "Dato: " & rs("Dato") & " "
If FirstPost = True Then
Response.Write "Rutenavn: " & rs("Rutenavn") & ""
Else
FirstPost = False
Response.Write "Rutenavn: " & rs("Rutenavn") & " <hr color='#000000' size='1'> "
End if

rs.MoveNext
Loop While NOT rs.EOF

End if

Conn.Close
Set Conn = Nothing

%>

</body>

</html>

Synes godt om

eagleeye Praktikant

21. august 2002 - 21:54 #15

du har også sat denne linie
FirstPost = False
ind i else delen det var ikke det jeg mente, det skal stå efter if ..

If FirstPost = True Then
FirstPost = False
Response.Write "Rutenavn: " & rs("Rutenavn") & ""
Else
Response.Write "Rutenavn: " & rs("Rutenavn") & " <hr color='#000000' size='1'> "
End if

Synes godt om

exp-ralle Nybegynder

21. august 2002 - 21:59 #16

så får de allesammen en <hr>:

<html>
<head>
<title>Trænings oversigt</title>
<link rel="stylesheet" href="style.css" type="text/css">
</head>

<body>
Oversigt | <a href="tilfoj.asp">Tilføj</a> 

<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

strSQL = "Select * From Traening Order by Id desc"

Set rs = Conn.Execute(strSQL)

If rs.EOF Then
Response.Write "Ingen træninger endnu"

Else

Do

Response.Write "Længde: " & rs("Længde") & " km. "
Response.Write "Tid: " & rs("Tid") & " min. "
Response.Write "Dato: " & rs("Dato") & " "
If FirstPost = True Then
FirstPost = False
Response.Write "Rutenavn: " & rs("Rutenavn") & ""
Else
Response.Write "Rutenavn: " & rs("Rutenavn") & " <hr color='#000000' size='1'> "
End if

rs.MoveNext
Loop While NOT rs.EOF

End if

Conn.Close
Set Conn = Nothing

%>

</body>

</html>

Synes godt om

eagleeye Praktikant

21. august 2002 - 22:00 #17

Det kunne også misforstås som jeg ført havde skrevet det. :)

Synes godt om

eagleeye Praktikant

21. august 2002 - 22:00 #18

Nu mangler FirstPost = True oppe foran Do:

FirstPost = True
Do

Synes godt om

exp-ralle Nybegynder

21. august 2002 - 22:02 #19

hov, nu virker det næsten.
Det er bare den sidste der får en <hr> og det skal være den første (altså efter den første skal der være en og ikke efter den sidste)

Synes godt om

exp-ralle Nybegynder

21. august 2002 - 22:05 #20

det fixede jeg lige selv, det behøvede man jo ikke meget viden til :)

thx alle

Synes godt om

eagleeye Praktikant

21. august 2002 - 22:06 #21

Ok.. Så er det en anden løsning, så har jeg løst di spørgsmål forkert ;)

Så lav disse linier:

FirstPost = True
Do

Response.Write "Længde: " & rs("Længde") & " km. "
Response.Write "Tid: " & rs("Tid") & " min. "
Response.Write "Dato: " & rs("Dato") & " "
If FirstPost = True Then
FirstPost = False
Response.Write "Rutenavn: " & rs("Rutenavn") & ""
Else
Response.Write "Rutenavn: " & rs("Rutenavn") & " <hr color='#000000' size='1'> "
End if

rs.MoveNext
Loop While NOT rs.EOF

-- OM til dette:

Do
'udskriv nyheden eller havd det er
Response.Write "Længde: " & rs("Længde") & " km. "
Response.Write "Tid: " & rs("Tid") & " min. "
Response.Write "Dato: " & rs("Dato") & " "

Response.Write "Rutenavn: " & rs("Rutenavn") & ""

'Flyt til næste
rs.MoveNext

'Hvis der er flere records indsæt en <hr>
if not rs.eof then
Response.write " <hr color='#000000' size='1'> "
end if
Loop While NOT rs.EOF

Synes godt om

exp-ralle Nybegynder

22. august 2002 - 17:10 #22

Mange tak
Du har reddet mit liv endnu en gang eagleeye ;)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS