Søg for dubletter

DB Navn: db.mdb
Tabel navn: brugere
Kolone: brugernavn

Du kan lave en SQL sætning som denne som finder dubletter og antalet af gange navnet forkommer:

sql = "select brugernavn, count(brugernavn) as antal from brugere group by brugernavn having count(brugernavn)>1"

hvad er der galt her:
sql = "select Brugernavn, count(Brugernavn) as antal from BrugerDetaljerTBL group by Brugernavn having count(Brugernavn)>1"
if not antal < 1 then
    Response.Redirect("default.asp?side=nybruger&funktion=bruger")
end if

Prøv at rette:

sql = "select Brugernavn, count(Brugernavn) as antal from BrugerDetaljerTBL group by Brugernavn having count(Brugernavn)>1"
if not antal < 1 then
    Response.Redirect("default.asp?side=nybruger&funktion=bruger")
end if



Til dette så den bruger en connection til at udføre SQL sætningen og ligger det ind i et recordset.:

sql = "select Brugernavn, count(Brugernavn) as antal from BrugerDetaljerTBL group by Brugernavn having count(Brugernavn)>1"
set rs = Conn.Execute(sql)
if not int(rs("antal")) < 1 then
  Response.Redirect("default.asp?side=nybruger&funktion=bruger")
end if

Kode:

Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/brugerDB.mdb")
sql = "select Brugernavn, count(Brugernavn) as antal from BrugerDetaljerTBL group by Brugernavn having count(Brugernavn)>1"
Set rs = DBConn.Execute(sql)
if not int(rs("antal")) < 1 then
Response.Redirect("default.asp?side=nybruger&funktion=bruger")
end if   


Fejl:
Error Type:
(0x80020009)
Exception occurred.
/default.asp, line 15


Linie 13:
if not int(rs("antal")) < 1 then

nogen der kan se hvad fejlen kan være?