Hvordan laver man en søgning der sorterer, hvor det søgte forekommer flest gange

Du skal nok konkretisere dit spørgsmål lidt: Mener du søgning efter ord i en tekst eller søgning på felter i en database ??

/Peter

Jeg mener søgning efter ord i en tekst streng.

Databasen indeholder f.eks. 200 rækker med 2 felter. En ID og en Tekst.
Min søgning skal så vise de ID'er hvori det søgte ord forekommer. Den skal sortere det således at den række hvori det søgte ord forekommer flest gange står øverst, o.s.v.

Prøv dette:

Set RS = Connect.Execute("SELECT referer, Count(referer) AS AntalReferer FROM tStat GROUP BY referer ORDER BY Count(referer) DESC")

Så skal der være en kolonne i tabellen der hedder "referer", ellers kan du bare udskifte alle "referer" med et andet navn.

Jeg har lavet et lille eksempel der så laver en graf:

<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr>
<td width="300">b>Kolonnenavn</b></td>
<td width="50"><b>Antal</b></td>
<td width="150"><b>Graf</b></td>
</tr>
       
<%   
Do While Not Class.EOF
Bredde = (Class("AntalReferer") * 100) / RS("Ialt")
       
Bredde = Round(Bredde)
           
Referer = Left(Class("Referer"), 40)
%>
<tr>
<td width="300"><%=Referer%></td>
<td width="50"><%=Class("AntalReferer")%></td>
<td width="150"><img src="prik.jpg" width="<%=Bredde%>" height="10"> <%=Bredde%>%</td>
</tr>
   
<%   
Class.MoveNext
Loop
%>
</table>

Prøv det!

boomer: Den viser hvor mange records der indeholder det samme.

Jeg søger et praj til hvordan jeg laver en liste sorteret efter den record der indeholder flest af de søgte ord.

men eller tak :)

Er der ingen af jer der kan sende mig i den rette retning ?

select * from X where tekst like '% dintekst%'

så skal du selv løbe recordsættet igennem ..
SQL kan kun finde en streng med det ord ikke lave en tæller i stregen :/

Fy skamme !

Jeg arbejder lidt med dette :


The function below will count the times "Fish" occurs in a string.

      Public Function CountString(Source As String, Search As String) As Integer
          Dim vPos As Integer
          Dim vTimes As Integer
         
          vPos = 0
          vTimes = -1
         
          Do
              vPos = InStr(vPos + 1, Source, Search)
              vTimes = vTimes + 1
          Loop Until vPos = 0
         
          CountString = vTimes
      End Function

      Store this function in a module in your Access Database

      Create a query like this :

      Select * from YourTables Where Instr(YourField, 'Fish') > 0 Order By CountString(YourField, 'Fish')

      Run this query, it should give you the results you want.