© Henrik Jensen - ViewSource.dk
Dansih Version   English Version


 Tælle antallet af poster i sin Database
Skrevet af: Henrik Jensen / 04-02-2002

Læst 4962 gange
Hvis du har behov for at vide hvor mange poster der er i din database, kan det gøres på flere måder. Jeg vil her vise dig to eksempler.

Dim counter
counter = 0

Do While Not RS.EOF

counter = counter + 1

RS.MoveNext
Loop

response.write("Der findes:" & counter & "antal poster")


Den smartere måde at gøre det på - er således

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

Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "tabelnavn",Conn,1,1

counter = RS.RecordCount

response.write("Der findes:" & counter & "antal poster")

RS.Close
Set RS = Nothing

Conn.Close
Set Conn = Nothing
%>
God Kodning :-)