Count fra database

Enten kan du åbne som et recordset også bruge recordcount eller du kan bruge count() metoden:

set rs = Server.CreateObject("ADODB.recordset")
rs.open "SELECT * FROM filmklip WHERE filmid = " & request.querystring("id") & "", conn
response.write rs.recordcount

Eller:
set rs = conn.execute("SELECT count(*) as antal FROM filmklip WHERE filmid = " & request.querystring("id"))
response.write rs("antal")

Den kommer med denne fejl:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/indextest.asp, line 412

(Jeg brugte recordcount)

Hvilken database bruger du?

Det kan forresten være nødvendig at angive cursor og locktype på recordsettet:

set rs = Server.CreateObject("ADODB.recordset")
rs.open "SELECT * FROM filmklip WHERE filmid = " & request.querystring("id") & "", conn, 3, 3
response.write rs.recordcount

det er en access database..

Det hjalp ikke - men jeg har en anden database som vidst stadig er åben - skal den lukkes først ?

Burde ikke være nødvendig. Hvordan bruger du koden? For den fejl ligner noget man får når man sammenligner data af forskellig data type.

Det er her på forsiden: http://www.hyggestedet.dk/

Her vil jeg have det til at stå hvor mange kommentar der er samme sted som der står dato og kategori...

Har du prøvet count() metoden??

Hvis jeg prøver count metoden kommer den med følgende:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/indextest.asp, line 411

Så er det fordi din kode er forkert. Kan du ikke lige klip/klistre lidt af den ind, så jeg kan se hvordan du har skrevet det...

Selvfølgelig. :-)

Her er koden hvor jeg connecter til database til udtræk af mine filmklip:

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM movies WHERE news < 3 ORDER BY tid DESC, id DESC"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/moviedb.mdb")
rs.Open strSQL, strDSN, 1

If Not (rs.BOF Or rs.EOF) Then

    rs.PageSize = 12
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
%>
                       


Her er koden der udskrifter filmklip og hvor jeg har brugt din kode:



<table border="0" width="100%" id="table3095" cellspacing="1">

<%=rs("overskrift")%>
Kategori: <%=rs("moviekategori")%>
- Tilføjet d. <%=rs("tid")%></u><br>
- Antal kommentar: 

<%
set rs = conn.execute("SELECT count(*) as antal FROM filmklip WHERE filmid = " & request.querystring("id"))
response.write rs("antal")
%>

<img border="0" src="http://www.hyggestedet.dk/mimages/<%=rs("pic")%>" width="120" height="82"></font></font></td>
<%           
            else
%>
<img border="1" src="http://www.hyggestedet.dk/mimages/filmklipimage.jpg" width="120" height="82"></font></td>
<%
            end if
%>           
                                                           
<%=rs("beskrivelse")%>
<td width="89%" valign="top" colspan="2">
<hr></td>
</table></td>
<%
    end if
    %>

Du overskriver det første recordset når du laver den anden select. Omdøb den til rs1 i stedet:

set rs1 = conn.execute("SELECT count(*) as antal FROM filmklip WHERE filmid = " & request.querystring("id"))
response.write rs1("antal")

Nu skriver den følgende:
Microsoft VBScript runtime error '800a01a8'

Object required: ''

/indextest.asp, line 411


Men skal jeg ikke også skrive filmid = id
i stedet for request..  Den er jo i databasen så den skal vel bare sammenligne de to eller er det nødvendigt at gøre det på den måde?

Hvad står der i linje 411

ahh du har jo heller ikke noget connection:

Set rs1 = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT count(*) as antal FROM filmklip WHERE filmid = " & request.querystring("id")
rs.Open strSQL, strDSN, 1
response.write rs1("antal")

haha.. dugh....  :-)

Vi prøver lige igen..

Nu kommer den med følgende...
(Har ændret rs til rs1 i 2 sidste linje)

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/indextest.asp, line 413

Linje 413 er den anden sidste..

Jeg havde lige en fejl også...

Set rs1 = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT count(*) as antal FROM filmklip WHERE filmid = " & request.querystring("id")
rs1.Open strSQL, strDSN, 1
response.write rs1("antal")

Sorry men den giver stadig dette her:

Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

ODBC driver does not support the requested properties.

/indextest.asp, line 413


Men jeg skal vel heller ikke bruge "request.querystring" når jeg ikke skal hente noget fra URL? Men bare kigge i databasen ?

Ja selvfølgelig...

Set rs1 = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT count(*) as antal FROM filmklip WHERE filmid = " & rs("id")
rs1.Open strSQL, strDSN, 1
response.write rs1("antal")

Yahuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu... :-)

SUPER COOL! Så virker det.... Tak for tålmodigheden! Mange tak..

np
.o) <-- One Eyed Jack

Du kan jo lige checke på forsiden af www.hyggestedet.dk ;-)
Det kører nu..