<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("base.mdb") strSQL = "SELECT TOP 10 count(navn) AS ensNavn FROM base GROUP BY navn ORDER BY navn" set rs = Conn.execute(strSQL)
if rs.EOF then Response.write "databasen er tom." else Do Until rs.EOF %>
Det var min fejl, jeg skal ikke bruge url i denne sammenhæng, så nu ser det sådan ud, det virker stadig, prøv om du kan finde fejlen.
<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("base.mdb") strSQL = "SELECT TOP 10 count(navn) AS ensNavn FROM base GROUP BY navn ORDER BY navn" set rs = Conn.execute(strSQL)
if rs.EOF then Response.write "Databasen er tom." else Do Until rs.EOF %>
Undskyld hvis jeg lyder lidt sur, men hvis du vil have nogen til at hjælpe dig med noget så dur det simpelthen ikke blot at konstatere "det virker ikke". Du må fortælle hvad der sker, og hvorfor du mener det ikke virker. Kommer der en kompileringsfejl, kommer der forkert output eller hvad? Et statement som "det virker ikke" kan jeg ikke bruge til en skid.
Som nævnt, det var et hurtigt skud; det skal nok nærmere være
SELECT TOP 10 first(navne) as firstNavn, count(navne) AS ensNavne FROM dinTabel GROUP BY navne ORDER BY firstNavn
Men der er en ting, der undrer mig, når Du spørger om SQL til en Access-database: Hvorfor ikke lave query'en i Access, og så bede om at se SQL. Det gør jeg selv. Når jeg ikke har gjort det ifm svar her, er det fordi jeg jo ikke har tabellen til at afprøve med.
Prøv at rette <p style="margin-top: 0; margin-bottom: 2"><%=RS("navn")%></A> til <p style="margin-top: 0; margin-bottom: 2"><%=RS("ensNavn")%></A> Så skulle det gerne funke
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.