Söka i databas

3 svar · 175 visningar · startad av Jörgen HP 7 mars 2001

Jörgen HPMedlem sedan feb. 20012 412 inlägg

Trådstart7 mars 2001 20:53#1

Hej!

Har gjort ett script för att söka igenom en databas. Min fråga, finns det kanske ett smartare och bättre sätt att göra på?

Lite kod:

<%@ LANGUAGE="VBScript" %>

<%
Dim sokning
sokning = Request("sokning")

Set Connection = Server.CreateObject("ADODB.Connection")

Connection.Open "DSN="

SQLStmt = "SELECT \* FROM Link "
SQLStmt = SQLStmt & "WHERE beskrivning LIKE '%" & sokning & "%' "
SQLStmt = SQLStmt & "OR "
SQLStmt = SQLStmt & "titel LIKE '%" & sokning & "%' "
SQLStmt = SQLStmt & "ORDER BY Titel "

Set RS = Connection.Execute(SQLStmt)

<body>

CurrentRecord = 0

Do While CheckRS(RS)%>

<%= RS("beskrivning") %>

<%
RS.MoveNext

CurrentRecord = CurrentRecord + 1

Loop
%>

<% If CurrentRecord = 0 Then %>

Tyvärr fanns det ingenting som matchade din sökning.

<%
End If
Connection.Close
%>

</html>

Mvh
Jörgen

crisse6Medlem sedan dec. 20002 526 inlägg

7 mars 2001 21:07#2

jag vet inte...men jag tycker du kan sätta ihop sql satsen lite kanske...? det har jag gjort... på en ända lång rad

din kod ser väldigt lång ut, men det är den ju inte om man kollar på alla mellanrum som du har men eftersom jag är ganska ny på det med asp kan jag inte säga så mkt... har försökt iaf

SilvioFMedlem sedan juni 2000547 inlägg

7 mars 2001 23:57#3

Min första fråga blir: Vad använder du CurrentRecord till? för att räkna antalet träffar? Gör om till ett Recordset och använd istället RecordCount i så fall.

<%@ LANGUAGE="VBScript" %>
<%
sokning = Request("sokning")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN="
SQLStmt = "SELECT * FROM Link WHERE beskrivning LIKE '%" & sokning & "%' " & "OR titel LIKE '%" & sokning & "%' ORDER BY Titel"
Set RS = Server.CreateObject(!ADODB.Recordset")
RS.Open SQLStmt, Connection, 1, 3
%>
<html>
  <body>
  <%
  If not (RS.EOF or RS.BF) Then
    Do While not (RS.EOF or RS.BF)
      %>
      <a href="<%= RS("url") %>">
        <font size="3">
          <strong>
            <%= RS("titel") %>
          </strong>
        </font>
      </a>
      <p>
        <%= RS("beskrivning") %>
      </p>
      <%
      RS.MoveNext
    Loop
  Else
      %>
      <p>
        Tyvärr fanns det ingenting som matchade din sökning.
      </p>
      <%
  End If
  Connection.Close
  %>
  </body>
</html>

Lite mindre kod. Kanske inte det mest effektiva sättet, men det funar bra prestandamässigt för mig och detta är liknande det sätt jag använder för en sökning i ett recordset.

SilvioFMedlem sedan juni 2000547 inlägg

8 mars 2001 00:01#4

Glömde vissta att stoppa in en variabel för antalet träffar också. Det görs genom att lägga in följande kod efter öppningen av RS.

AntalTraffar = RS.RecordCount

Ha överseende med stavfelen i vissa delar av ovantsående kod, men klockan är ändå ett på natten och jag har nyss kommit hem från jobbet.