Søg i flere tabeller..

ja

:)

Får denne fejl så...:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/internet/site_search.asp, line 85

Hvad står der i linie 85?

<td width="61%"><a href="main_org.asp?id=<%= rsGlobalWeb("ID")%>"><%= rsGlobalWeb("profil")%></a>

heh, prøv at dele linien op i to:

<td width="61%"><a href="main_org.asp?id=<%= rsGlobalWeb("ID")%>">
<%= rsGlobalWeb("profil")%></a>

Og sig mig hvor fejl så kommer.

Samme fejl i denne...
<td width="61%"><a href="main_org.asp?id=<%= rsGlobalWeb("ID")%>">

Du har højst sansynligt flere ID felter i tabellerne, du blive nødt til at kalde dem noget forskelligt ved udtrækket ellers ved SQL ikke hvilken ID det er du vil have trukket ud

eks:

select tabel1.id as tabel1id, tabel2.id as tabel2id osv

ok, hvordan ser dit sql kald ud?

Det er ikke nødvendigt. Man bare angive tabellen i RS:

rsGlobalWeb("tabel1.ID")

Man kan bare angive tabellen i RS:

Det kan man slf også, det er 2 forskellige løsninger til det samme problem

:)

Netop....

Hva' så?

Har du fundet ud af om det virker?

Jo, men hvad skal jeg skrive hvis jeg skal

Hvis du skal hvad?

Tak for points. :)

ups ... fløj lige af...
.. når jeg nu skal have listet alle resultaterne?
Hvordan laver jeg en sætning som lister resultater fra flere tabeller?

lav en løkke der løber alle tabellerne igennem.

Do While Not rsGlobalWeb.EOF
a href="main_org.asp?id=<%= rsGlobalWeb("Id")%>">
<%= rsGlobalWeb("profil")%></a>


                            <%=rsGlobalWeb("dato")%>
                       
                      <% rsGlobalWeb.MoveNext

ja...?

Men så tager den jo kun den ene tabel...??

Her er min sql .. hvordan fa'en ... skal min løkke så se ud...

SqlJunk = "select * from tabel1, tabel2, tabel3, tabel4, tabel5"

<%
tal = 1
for 1 to 5
  Do While Not rsGlobalWeb.EOF
    response.write "a href='main_org.asp?id="&rsGlobalWeb("tabel"&tal&".Id")&"'>"& rsGlobalWeb("profil")&"</a>"
    response.write rsGlobalWeb("dato")
    rsGlobalWeb.MoveNext
  loop
tal = tal + 1
next
%>

Jeg ved ikke om man kan gøre sådan, men det er da et forsøg... :)

Virker det?

Nu ser det sådan her ud:


Dim SqlJunk


Set dbGlobalWeb = Server.CreateObject("ADODB.Connection")
dbGlobalWeb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/news/nyheder.mdb")

SqlJunk = "select * from profil, vision, mission, test, nyheder"


If Request.Form("TypeSearch") = "frmSiteSearch" Then
    SqlJunk = SqlJunk & " WHERE sagsnavn LIKE '%" & Request.Form("DaInBox") & "%'"
End If

Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset")
rsGlobalWeb.Open SqlJunk, dbGlobalWeb, 3

%>
                      <%
If rsGlobalWeb.BOF and rsGlobalWeb.EOF Then%>
                    <div align="center">
                      <!--#include file="projekt_nomatch.asp" -->

<%

  Do While Not rsGlobalWeb.EOF
    response.write "a href='main_org.asp?id="&rsGlobalWeb("Profil, vision, mission, test, nyheder"".Id")&"'></a>"
    rsGlobalWeb.MoveNext
  loop
End if

Men siden viser ingen resultater..??

Mangler du ikke et "NOT" eller to i denne linie:

If rsGlobalWeb.BOF and rsGlobalWeb.EOF Then%>

Jeg tror ikke at du kan skrive sådan:
rsGlobalWeb("Profil, vision, mission, test, nyheder"".Id")

Du bliver nok nødt til at dele det op.

Den er vist også helt gal med den sql sætning...
Jeg sletter det...

Hvordan ville du gøre... når det kommer fra en form på en anden side??

Set dbGlobalWeb = Server.CreateObject("ADODB.Connection")
dbGlobalWeb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/news/nyheder.mdb")

SqlJunk = "select * from profil, vision, mission, test, nyheder"
???

Her er en søgefunktion fra noget jeg har lavet engang:

searchterms = Split(Request.form("searchterms"), " ")
searchuser = Request.form("searchuser")

if Request.form("searchterms") <> "" then
    %>
<!--#include file="databaseconn.asp"-->
<%   
    if searchuser <> "" then
        sql = "SELECT DISTINCT * FROM modeller WHERE modelnr='" & searchuser & "' AND "
    else
        sql = "SELECT DISTINCT * FROM modeller WHERE "
    end if
   
    for count = 0 to UBound(searchterms)
        sql = sql & "(modelnr LIKE '%" & searchterms(count) & "%' or modelnavn LIKE '%" & searchterms(count) & "%') AND "
    next
   
    sql = Left(sql, Len(sql)-4)
    sql = sql & " ORDER BY modelnr asc"
   
    'Set rsEntries = Server.CreateObject("ADODB.Recordset")
    'rsEntries.Open sql, conn
    Set rsEntries = Conn.Execute(SQL)
    'response.write sql
end if

Så sætter du bare dine tabeller ind her:

sql = "SELECT DISTINCT * FROM modeller WHERE modelnr='" & searchuser & "' AND "

og:

sql = "SELECT DISTINCT * FROM modeller WHERE "


Og her skriver du hvilke konner der skal søges i:

sql = sql & "(modelnr LIKE '%" & searchterms(count) & "%' or modelnavn LIKE '%" & searchterms(count) & "%') AND "


Til sidst hvordan du vil sortere resultatet:

sql = sql & " ORDER BY modelnr asc"

Request.form("searchterms") er naturligvis fra formen. :)

Jep... jeg prøver lige...:o)

Men hvis jeg nu har 5 tabeller i min db..
I hver tabel er der en kolonne der hedder 'profil'
Hvordan kommer det så til at se ud??

For du har jo 2 formfelter ik'??

Der er et indtastningsfelt og en dropdownbox med profiler.

Prøv at vise mig dine tabeller og skriv hvilke kolonner du vil søge i.

Nu er jeg måske kommet et stykke...;o)

Dim SqlJunk
sog = request.Form("sogning")

Set dbGlobalWeb = Server.CreateObject("ADODB.Connection")
dbGlobalWeb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/news/nyheder.mdb")

SqlJunk = "SELECT * FROM nyheder WHERE nyhed LIKE '%" & Request.Form("sogning") & "%'"


Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset")
rsGlobalWeb.Open SqlJunk, dbGlobalWeb, 3

Nu er det kun 1 tabel og i 1 kolonne...
Men den udskriver alt i kolonnen .. hvad er fejlen.. det må være min sql???

Du er sikker på at du ikke søger på noget der står i alle rækker? :)

Jep...

Du har fjernet "DISTINCT". Prøv at sætte det ind i igen:

SqlJunk = "SELECT DISTINCT * FROM nyheder WHERE nyhed LIKE '%" & sog & "%'"

Den tager stadigvæk hele tabellen...??

Dim SqlJunk
sog = request.Form("sogning")

Set dbGlobalWeb = Server.CreateObject("ADODB.Connection")
dbGlobalWeb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/news/nyheder.mdb")

SqlJunk = "SELECT * FROM nyheder WHERE nyhed LIKE '%" & Request.Form("sogning") & "%'"


Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset")
rsGlobalWeb.Open SqlJunk, dbGlobalWeb, 3


%>
                      <%
If rsGlobalWeb.BOF and rsGlobalWeb.EOF Then%>
                    <div align="center">
                      <!--#include file="projekt_nomatch.asp" -->
                      <%Else%>
                      <%If Not rsGlobalWeb.BOF Then%>
                 
                      <%
    Do While Not rsGlobalWeb.EOF
    %>
                   
                      <a href="sog_opl.asp?id=<%= rsGlobalWeb("NyhedID")%>"><%= rsGlobalWeb("nyhed")%></a> <---KAN DET IKKE VÆRE DENNE HER DER BARE UDSKRIVE KOLONNEN??
                     
                      <% rsGlobalWeb.MoveNext
    Loop
    %>
                    </table>
                    <%End If%>
                    <%End If%>
                    <%
rsGlobalWeb.Close
dbGlobalWeb.Close
%>

Den udskriver kun kolonnen "nyhed" hvis det er det du mener.

Ja... men den udskriver hele kolonnen... og ikke ud fra søge ord. der må være noget galt..

Har du prøvet det jeg forslog tidligere?

Dvs:
Du har fjernet "DISTINCT". Prøv at sætte det ind i igen:

SqlJunk = "SELECT DISTINCT * FROM nyheder WHERE nyhed LIKE '%" & sog & "%'"