Access hent de forskellige værdier fra et felt i en tabel

Du kan bruge SQL til at kun væle en kategorie en gang:

SQL = "SELECT DISTINCT kategori FROM tabel"
Set rs = Conn.Execute (SQL)

do while not rs.EOF
  str = str & "," & rs("kategori")
  rs.Movenext
loop
str = Mid(str,2) 'Fjerene det første komma

Response.write str

dvs. overstående kode laver en streng der ser sådan her ud

hund,kat,mus,løve

ud af

Kategori
---------
hund
hund
kat
mus
mus
kat
hund
kat
kat
mus
hund
løve

prøver lige en gang :)

/Casper

Ja det skulle den gerne.

Det virker ikke helt godt.

Microsoft][ODBC Microsoft Access Driver] Cannot include Memo, OLE, or Hyperlink Object when you select unique values (kategori).

på line 151:

150: SQL = "SELECT DISTINCT kategori FROM forx"
151: Set goKat = Conn.Execute (SQL)

Tabellen, databasen, feltet m.m. det hele eksistere. Derfor kan jeg kun koge fejlen ned på SQL?

hele koden
---
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath(forumsti)
Conn.Open DSN

SQL = "SELECT DISTINCT kategori FROM forX"
Set goKat = Conn.Execute (SQL)

do while not rs.EOF
tmpKat = goKat("kategori")
  str = str & "<a href=""forum.asp?side=oversigt&kat=" & tmpKat & """>" & tmpKat & "</a>"
  goKat.Movenext
loop
---


/Casper

Ok, det så fordi kolonnen er af typen Notal, eller OLE-object

Så må du kode dig ud af det eller laves typen om til tekst for kolonnen kategori.

Eks på koden:


SQL = "SELECT kategori FROM forX"
Set goKat = Conn.Execute (SQL)

listKat = ","
do while not rs.EOF
  tmpKat = goKat("kategori")
  if inStr(1, listKat, "," & tmpKat & ",") = 0 then
    listKat = listKat & tmpKat & ","

    str = str & "<a href=""forum.asp?side=oversigt&kat=" & tmpKat & """>" & tmpKat & "</a>"
  end if
  goKat.Movenext
loop
listKat = ""

Endnu en gang mange tak!