Søg
Avatar billede maínframe.subnet Nybegynder
11. december 2000 - 08:13 Der er 14 kommentarer og
1 løsning

ID tæller

jeg har en database! jeg skal på siden kunne vise hvor mange \"artikler\" der er i databasen, henholdsvis hvor mange ID der er?

hvad skal jeg skrive for sådan en funktion

mvh.
kenneth madsen
Avatar billede sone Nybegynder
11. december 2000 - 08:15 #1
Brug COUNT:

SELECT COUNT(id) FROM tabel
Avatar billede maínframe.subnet Nybegynder
11. december 2000 - 09:43 #2
hmmm.. forstår ikke helt!
Avatar billede sone Nybegynder
11. december 2000 - 09:45 #3
Mhvis du via SQL afsender ovenstående, så tæller den antallet af ID-rækker i databasen.

Er det ikke det du vil have den til ?
Avatar billede maínframe.subnet Nybegynder
11. december 2000 - 09:47 #4
body link=green alink=green vlink=green>

<FONT FACE=\"Verdana\" SIZE=\"2\">
<a href=\"http://www.tuborg.dk\"><img src=\"tuborg.gif\" border=\"0\"></a>
<BR><BR><HR NoShade Color=\"green\" Size=\"1\">


<table border=\"0\" width=\"400\">
<tr><td width=\"250\">

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spil.mdb\")
strSQL = \"select top 5 * from nyheder ORDER BY id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF
strPreview = RS(\"spil\")
  If Len(strPreview) > 60 Then strPreview = Left(strPreview, 60) & \" ...\"
%>

<table border=\"0\" width=\"250\">
<tr><td width=\"250\">
<FONT FACE=\"Verdana\" SIZE=\"2\"><B><%=RS(\"overskrift\")%></B></FONT>
<BR><FONT FACE=\"Verdana\" SIZE=\"1\"> 
<%=strPreview%><BR><BR><A HREF=\"vis_spil.asp?id=<%=RS(\"id\")%>\">Læs Artiklen</A></FONT><BR><HR NoShade Color=\"green\" Size=\"1\">

</td>
</tr></table>

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

</td><td width=\"25\"></td><td width=\"125\" valign=top bgcolor=\"orange\"><B><font face=\"Verdana\" color=\"#FFFFFF\" size=\"1\">Antal spil: xx<BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"><BR><A HREF=\"nyhed.asp\">Tilføj dit eget ølspil til databasen</A><BR><BR>
<A HREF=\"all.asp\">Liste over alle ølspil i databasen</A></B><BR><BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"><BR><a href=\"#\">Et linksarkiv med en masse adresser til danske, såvel som udenlandske ølproducenter</td></tr></table>

</body></html>

<% end if %>
..................................................

Det er der hvor der står \"Antal spil: xx\"

xx skal være der hvor der vises hvor mange spil der er i databasen!

mvh.
Kenneth Madsen
Avatar billede sone Nybegynder
11. december 2000 - 09:52 #5
Vent med at lukke databasen (Conn.Close) og lav:

strSQL = \"select COUNT(id) from nyheder\"
set rs = Conn.execute(strSQL)

Du aflæser antallet af spil med: RS(0)
Avatar billede maínframe.subnet Nybegynder
11. december 2000 - 09:56 #6
sådan her:

<%RS.MoveNext
Loop
end if

strSQL = \"select COUNT(id) from nyheder\"
set rs = Conn.execute(strSQL)

Conn.Close
Set Conn = Nothing%>

og sådan her:

Antal spil: <%=RS(\"0\")%>



det virker ikk\'
Avatar billede sone Nybegynder
11. december 2000 - 09:58 #7
Næsten: RS(0) - ikke RS(\"0\")
Avatar billede maínframe.subnet Nybegynder
11. december 2000 - 10:00 #8
<body link=green alink=green vlink=green>

<FONT FACE=\"Verdana\" SIZE=\"2\">
<a href=\"http://www.tuborg.dk\"><img src=\"tuborg.gif\" border=\"0\"></a>
<BR><BR><HR NoShade Color=\"green\" Size=\"1\">


<table border=\"0\" width=\"400\">
<tr><td width=\"250\">

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spil.mdb\")
strSQL = \"select top 5 * from nyheder ORDER BY id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF
strPreview = RS(\"spil\")
  If Len(strPreview) > 60 Then strPreview = Left(strPreview, 60) & \" ...\"
%>

<table border=\"0\" width=\"250\">
<tr><td width=\"250\">
<FONT FACE=\"Verdana\" SIZE=\"2\"><B><%=RS(\"overskrift\")%></B></FONT>
<BR><FONT FACE=\"Verdana\" SIZE=\"1\"> 
<%=strPreview%><BR><BR><A HREF=\"vis_spil.asp?id=<%=RS(\"id\")%>\">Læs Artiklen</A></FONT><BR><HR NoShade Color=\"green\" Size=\"1\">

</td>
</tr></table>


<%RS.MoveNext
Loop
end if

strSQL = \"select COUNT(id) from nyheder\"
set rs = Conn.execute(strSQL)

Conn.Close
Set Conn = Nothing%>

</td><td width=\"25\"></td><td width=\"125\" valign=top bgcolor=\"orange\"><B><font face=\"Verdana\" color=\"#FFFFFF\" size=\"1\">Antal spil: <%=RS(0)%><BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"><BR><A HREF=\"nyhed.asp\">Tilføj dit eget ølspil til databasen</A><BR><BR>
<A HREF=\"all.asp\">Liste over alle ølspil i databasen</A></B><BR><BR><HR Noshade Color=\"#FFFFFF\" size=\"1\"><BR><a href=\"#\">Et linkarkiv med adresser til danske og udenlandske ølproducenter</td></tr></table>

</body></html>

<% end if %>
..................................................
det virker ikk\'?
Avatar billede Slettet bruger
11. december 2000 - 10:02 #9
Læs denne artikel:
http://www.activeserverpages.dk/aspdigital/kapitel2/count.asp

Der kan du læse det hele!
Avatar billede maínframe.subnet Nybegynder
11. december 2000 - 18:08 #10
dem der sætter min kildekode på så det virker får 100ponit oveni?
Avatar billede maínframe.subnet Nybegynder
11. december 2000 - 18:09 #11
dem=den
Avatar billede Slettet bruger
11. december 2000 - 18:11 #12
send det til mig... med en nøjagtig beskrivelse af havd det er du vil have lavet... fun4you@fun4you.dk
Avatar billede Slettet bruger
12. december 2000 - 09:00 #13
Sådan.....

Den er her:

Du skylder mig 130 points!!!!

<body link=green alink=green vlink=green>

<FONT FACE=\"Verdana\" SIZE=\"2\">
<a href=\"http://www.tuborg.dk\"><img src=\"tuborg.gif\" border=\"0\"></a>
<BR><BR><HR NoShade Color=\"green\" Size=\"1\">

<% mode = request(\"mode\") %>
<% if mode = \"\" then %>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"spil.mdb\")
strSQL = \"select top 10 * from nyheder ORDER BY id DESC\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"Databasen er tom.\"
else
Do Until rs.EOF
strPreview = RS(\"spil\")
  If Len(strPreview) > 60 Then strPreview = Left(strPreview, 60) & \" ...\"
%>

<table border=\"0\" width=\"250\">
<tr><td width=\"250\">
<FONT FACE=\"Verdana\" SIZE=\"2\"><B><%=RS(\"overskrift\")%></B></FONT>
<BR><FONT FACE=\"Verdana\" SIZE=\"1\"> 
<%=strPreview%><BR><BR><A HREF=\"vis_spil.asp?id=<%=RS(\"id\")%>\">Læs Artiklen</A></FONT><BR><HR NoShade Color=\"green\" Size=\"1\">
<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing
Set rs = Nothing
%>
</td></tr></table>

<%
\' DSNLess forbindelse til databasen
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"spil.mdb\")

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

strSQL = \"SELECT COUNT(id) AS Antal FROM nyheder\"
Set rs = myConn.Execute(strSQL)
Response.Write \"<p>Antal spil: \" & rs(\"Antal\") & \"</p>\"
%>
<BR><BR><BR><BR><b><A HREF=\"nyhed.asp\" TARGET=\"_top\">tilføj en nyhed</A></b>
<A HREF=\"all.asp\" TARGET=\"_top\">alle nyheder</A>


</body></html>

<% end if %>
Avatar billede maínframe.subnet Nybegynder
12. december 2000 - 11:58 #14
her er de 30 point, oprettet et spm. der hedder \"tak for Database tæller\" under ASP til 100 point!
Avatar billede Slettet bruger
12. december 2000 - 12:03 #15
ok
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
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
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »