8 svar · 400 visningar · startad av wborg
...har sökt och hittat en del trådar men inte fått det att fungera så nu prövar jag att fråga även om det finns trådar som handlar om detta.
Jag har följande kodsnutt för min db koppling:
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/db.mdb")
Set Recset = Connect.execute("SELECT * FROM register ORDER BY namn")
%>
det jag nu skulle vilja göra är att räkna ut hur många poster db:n innehåller, någon vänlig själ som kan hjälpa mig med detta?
/Stefan
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/db.mdb")
Set Recset = Connect.execute("SELECT count(*) FROM register")
Response.Write Recset( 0 )
%>
Mvh, Vide
Hmm men hur sätter jag ut Response.Writeraden där jag vill att värdet ska synas? Jag provade att köra en <%=Response.Write Recset ( 0 ) %> men fick då följande meddelande:
Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/projekt/bollar/TMPv0okpi3lw.asp, line 58
/Stefan
Posta raderna 50-60 ungefär.
Postar hela sidan (ca 80 rader).
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/bollar.mdb")
Set Recset = Connect.execute("SELECT count(*) FROM register")
%>
<HTML>
<HEAD>
<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="css.css" media="screen">
<TITLE>Register över bollväskan</TITLE>
</HEAD>
<BODY TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#F6F6F6">
<!-- HUVUDTABELLEN STARTAR //-->
<table cellpadding="10" cellspacing="1" border="0" width="100%" height="50">
<tr>
<td colspan="12" style="border: 1px #9F9F9F solid;" bgcolor="#E9B761" height="20">
<b>Register över bollar i klubbväskan</b> _ | _ <a href="add.asp">Lägg till ny boll</a> _ - _ <a href="search.asp">Sök</a> _ - _ Sortera _ | _ Klubbväskan innehåller <%=Response.Write( 0 )%> bollar.
</td>
</tr>
<tr>
<td height="20"></td>
</tr>
<tr bgcolor="#F2C881">
<td style="border: 1px #9F9F9F solid;" valign="top"><b>Bollnamn:</b></td>
<td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Färg:</b></td>
<td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Studs:</b></td>
<td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Vikt:</b></td>
<td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Hårdhet:</b></td>
<td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Storlek:</b></td>
<td width="50" style="border: 1px #9F9F9F solid;" valign="top"><b>Lack:</b></td>
<!--<td width="50" style="border: 1px #9F9F9F solid;" valign="top"><b>Utlånad:</b></td>-->
<!--<td width="50" style="border: 1px #9F9F9F solid;" valign="top"><b>Återlämnad:</b></td>-->
<td width="80" style="border: 1px #9F9F9F solid;" valign="top"><b>Ta bort:</b></td>
</tr>
<% do while not recset.eof
i = i + 1
If i Mod 2 = 0 Then
%>
<tr bgcolor="#CCCCCC">
<% Else %>
<tr bgcolor="#FFFFFF">
<% End If %>
<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("namn")%></td><!--Rad 58-->
<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("color")%></td>
<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("studs")%></td>
<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("vikt")%></td>
<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("hardhet")%></td>
<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("storlek")%></td>
<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("lack")%></td>
<!--<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("utl")%></td>-->
<!--<td style="border: 1px #9F9F9F solid;" valign="top"><%=RecSet("inl")%></td>-->
<td style="border: 1px #9F9F9F solid;" valign="top"><a href="del.asp?delID=<%=RecSet("id")%>">Ta bort</a></td>
</tr>
<%
RECSET.MOVENEXT
LOOP
%>
</table>
</BODY>
</HTML>
PS! Rad 58 är precis efter loopen DS!
/Stefan
Du behöver inte använda select count eftersom variabeln i kommer att innehålla antal rader efter loopen.
Humm hur menar du nu? Det jag vill göra är att skriva ut antalet bollar som finns i klubbens väska på hemsidan, kan jag göra det med hjälp av variabeln i menar du?
Jag är inte så där jättehaj på ASP
/Stefan
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
Set RecSet = Conn.Execute("SELECT Count(*) As tabell FROM forum")
%>
<%=RecSet("tabell")%>
<%
RecSet.Close
Set RecSet = Nothing
Conn.Close
Set Conn = Nothing
%>
Eller?
Löste det så här:
<%
Dim i : i = 0
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/bollar.mdb")
Set Recset = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM register ORDER BY namn"
RecSet.Open sql,Connect,adOpenStatic,adLockReadOnly,adCmdText
%>
och sen där jag ville ha ut värdet:
<%= Recset.recordcount %>
/S