Avanceret søgefunktion - vil jeg tro

måske er det noget RegExp?
hvad ved jeg... :)

du skal nok ud i noget med at generere dine SQL-kriterier, f.eks.:

kriterier = Request.Form("kriterier")
sql = "SELECT * FROM tabel"
if len(kriterier) > 0 then
  sql = sql & " WHERE "
  sqlWhere = ""
  for i=1 to len(kriterier)
    if len(sqlWhere) > 0 then
      sqlWhere = sqlWhere & " AND "
    end if
    sqlWhere = sqlWhere & " feltet LIKE '*" & mid(kriterier,i,1) & "*' "
  next
end if

Ups! Man skal jo lige sammensætte SQL med Where-delen inden den kan bruges:

sql = sql & sqlWhere

Prøver at kigge på det

Hmmm... det går vist ikke særlig godt for mig lige nu :/

Der skal nok benyttes OR i stedet for AND, da ikke alle bogstaver nødvendigvis skal fremgå. Jeg vil derfor mene at denne version er mere korrekt:

kriterier = Request.Form("kriterier")
sql = "SELECT * FROM tabel"
if len(kriterier) > 0 then
  sql = sql & " WHERE "
  sqlWhere = ""
  for i=1 to len(kriterier)
    if len(sqlWhere) > 0 then
      sqlWhere = sqlWhere & " OR "
    end if
    sqlWhere = sqlWhere & " feltet LIKE '*" & mid(kriterier,i,1) & "*' "
  next
  sql = sql & sqlWhere
end if

hmm nummer 2 ser ud til at fungere

Men min løkken til udtræk smider ingenting ud? hmm

Hvordan ser din løkke ud? :)

While NOT rs.EOF
Response.Write rs("ord")
rs.Movenext
wend
rs.Close
:)

OK, det ser jo fornuftigt nok ud.

Kan du ikke lige prøve at vise hele koden, dvs. opbygning af SQL-sætningen og løkken?

Desuden bør du også lige sikre dig at der er data som matcher dine kriterier. Kommer der f.eks. noget ud hvis du ikke angiver nogle kriterier?

Har du også rettet alle navne på kolonner, tabeller og formfelter?

Hvis jeg intet angiver, kommer hele smøren.

Det hele skulle være rettet til, og jeg har prøvet med 2 forskellige databaser.
--------------------

kriterier = Request.Form("ordet")
        sql = "SELECT * FROM ordliste"
            if len(kriterier) > 0 then
              sql = sql & " WHERE "
              sqlWhere = ""
              for i=1 to len(kriterier)
                if len(sqlWhere) > 0 then
                  sqlWhere = sqlWhere & " OR "
                end if
                sqlWhere = sqlWhere & " ord LIKE '*" & mid(kriterier,i,1) & "*' "
              next
              sql = sql & sqlWhere
            end if

   
   
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, database
   
        While NOT rs.EOF
            Response.Write rs("ord") & "<br>"
        rs.Movenext
        wend

Og forbindelsen til databasen er selvf included længere oppe i koden :)

Prøv lige at rette den linie:

    sqlWhere = sqlWhere & " ord LIKE '*" & mid(kriterier,i,1) & "*' "

til:

    sqlWhere = sqlWhere & " [ord] LIKE '*" & mid(kriterier,i,1) & "*' "

Stadig ingenting. :(

Er ked af det, hvis jeg har rodet dig ud i noget træls :D

hele smøren kommer stadig, hvis jeg intet angiver i formen.

Hvilken database arbejder du med? Asterisk (*) benyttes vist kun i Access. Rent faktisk kan det være ADO sørger for, at du bare altid skal bruge procent (%) til wildcards, hvilket ville betyde at flg. linie

    sqlWhere = sqlWhere & " [ord] LIKE '*" & mid(kriterier,i,1) & "*' "

skulle ændres til

    sqlWhere = sqlWhere & " [ord] LIKE '%" & mid(kriterier,i,1) & "%' "

Jeg bruger Access, og hvis jeg erstatter med % bliver det hele smidt ud, uanset om jeg skriver noget i inputfeltet eller ej

Hmm.. har lige bemærket at hvis jeg indtaster et tal, kommer der ingenting

Hvis jeg skriver "kjhkjhkhkjhkjh", ser det ud til at alt kommer ud

Nææh hov...

Der sker noget mystisk nu. Taster jeg eksempelvis "kaoiskk", ser det ud til at den udelukkende tager første bogstav derfra. Altså "K" og smider alt der indeholder et "k" ud

Nej

Aha sådan

Hvis bare ét af bogstaverne, som jeg taster ind i formen, passer ind i ordet i databasen, bliver det smidt ud.

Gav det mening?

:D

Hvad sker der hvis du bare starter med at indtaste et bogstav?

Ja, det var sådan jeg havde opfattet opgaven :)

Dvs at f.eks ordet "kone" vil blive spyttet ud hvis jeg indtaser f.eks "lksa" - udelukkende fordi der optræder et "k" begge steder

Nå for dælen, det må du undskylde!

men smid endelig et svar for ulejligheden

Det er vel sådan set bare at ændre "OR" til "AND" - så kombinere den bogstaverne

så tager den godt nok ikke højde for om man skriver et bogstav mere end én gang.

mm vil feks returnere "tomat", selvom der ikke optræder 2 m'er

Well, der er vist ingen grund til at undskylde, men der var bare noget i opgavebeskrivelsen som ikke helt hang sammen (vi er ude i noget med detaljer og flueknepperi lige nu - jeg undskylder på forhånd :)).

Først står der: "...alle de ord fra en database, hvor bogstaverne "o", "m", "t", "t", og "a" indgår."

Dernæst er kravet at "...hvis ordet "tomat" findes i databasen, skal det udskrives", hvilket er fair nok og stemmer overens med det første udsagn. Men efterfølgende skriver du så: "...hvis ordet "tam" findes, skal det ligeledes udskrives", hvilket så ikke passer med det første udsagn (da bogstavet o ikke indgår i tam). Derfor konkluderede jeg at det måtte være "hvis bare et af bogstaverne indgår, så skal ordet udskrives...

Hvorom alt er, så burde det kunne klares ved at ændre linie

    sqlWhere = sqlWhere & " OR "

til(bage til):

    sqlWhere = sqlWhere & " AND "

Du havde vist forstået det rigtigt, tror jeg :) hehe

du kan jo også lave ordet "tam" ud fra "tomat" forresten :D

Læg et svar

Glæder mig til den dag, hvor jeg selv har kapacitet til at lave den slags SQL sætninger :) hehe

OK, jeg kan se du er kommet til samme konklusion mht. OR og AND :)

Ja, det at den skal tage højde for antallet af forkomster af de enkelte bogstaver gør unægtelig opgaven lidt mere kompleks - og jeg sidder og tænker lidt på om regular expressions ikke er det du skal bruge, men her kan jeg desværre ikke lige hjælpe - for det fatter jeg ikke meget af :)

jf. 06/10-2006 15:39:47 >> ordet "tam" lever ikke op til de krav du stiller først (og efterfølgende i kommentaren 06/10-2006 15:35:58) i.o.m. ordet "tam" ikke indeholder bogstavet o ej heller to t'er, så derfor blev min lille hjerne forvirret :)

Havde også selv overvejet regexp, men det her er fint nok til mig lige nu.

Tak for hjælpen endnu en gang. Det var super! :)

Velbekomme og tak for point :)