vælg poster fra en tabel på baggrund af en anden

strSQL = "SELECT * FROM trailer"
Set rs = Conn.Execute(strSQL)

Do
  strSQL2 = "SELECT * FROM film WHERE id = " & rs("id")
  Set rs2 = Conn.Execute(strSQL2)

  response.write(rs2("film"))

rs.movenext
Loop until rs.eof

Cool - tester lige...

Ok - flovt... Glemte en lille detalje.. :o(

Når man skal se listen, har man på forhånd valgt et bogstav som filmen skal starte med. Den hentes ved:
Request.Querystring("bogstav")

Men den kan jeg ikke umiddelbart bygge ind i sætningen, der nu lyder:
Hent alle film med A (eller hvilket bogstav der er valgt) som eksisterer i trailer tabellen..

Håber stadig du / I kan hjælpe..

udskifte strSQL med
strSQL = "SELECT * FROM trailer WHERE titel like '" & request.Querystring("bogstav") & "*'"

Trailer tabellen har ingen titel. Den skal den finde i film-tabellen..

bogstav = request.Querystring("bogstav")

strSQL = "SELECT * FROM trailer WHERE titel LIKE '"& bogstav &"%'"
Set rs = Conn.Execute(strSQL)

Do
  strSQL2 = "SELECT * FROM film WHERE id = " & rs("id")
  Set rs2 = Conn.Execute(strSQL2)

  response.write(rs2("film"))

rs.movenext
Loop until rs.eof

bogstav = request.Querystring("bogstav")

strSQL = "SELECT * FROM trailer WHERE titel LIKE '"& bogstav &"%'"
Set rs = Conn.Execute(strSQL)

if rs.eof then
  response.write("Der er ingen film der begynder med '" & bogstav & "'")
else
Do
  strSQL2 = "SELECT * FROM film WHERE id = " & rs("id")
  Set rs2 = Conn.Execute(strSQL2)

  response.write(rs2("film"))

rs.movenext
Loop until rs.eof
end if

bogstav = request.Querystring("bogstav")

strSQL = "SELECT * FROM trailer WHERE titel LIKE '"& bogstav &"%'"
Set rs = Conn.Execute(strSQL)

if rs.eof then
  response.write("Der er ingen film der begynder med '" & bogstav & "'")
else
Do
  strSQL2 = "SELECT * FROM film WHERE id = " & rs("filmid")
  Set rs2 = Conn.Execute(strSQL2)

  response.write(rs2("film"))

rs.movenext
Loop until rs.eof
end if

Glem det med SQL'statements inde i løkken. Det er aaalt for krævende.
Du skal lave dig en Left Join af de to tabeller:

Set rs = obj.Execute("Select f.Filmtitel, t.Film From trailer t Left Join film f On t.FilmID = f.FilmID")

While Not rs.EOF
  Response.Write rs("Film") & " (" & rs("Filmtitel") & ")<br>"
  rs.MoveNext
Wend

På den måde får du alle trailers ud med filmens navn angivet bagefter.

virker netro's - så stik dig til den, da du slipper for en sql statement inde i løkken. Og du slipper med at lave een SQL streng

En dag må jeg lære det der Join :o)

Hvis jeg nu lige skriver hvad felterne hedder, kan du så ik lige sætte de rigtige navne ind?
Hvor kalder jeg databasen?

[trailers]
id
filmid
tekst

[film]
id
titel

Hvor du kalder den? Åbner den? Det gør du inden følgende udtræk, og forbindelsesstrengen kommer selvfølgelig an på, hvad det er for en db, du opererer med.

==========================

Set rs = obj.Execute("Select f.titel, t.tekst From trailers t Left Join film f On t.FilmID = f.FilmID")

While Not rs.EOF
  Response.Write rs("tekst") & " (" & rs("titel") & ")<br>"
  rs.MoveNext
Wend

kalder min acces database med conn
eks:
Set RS_trailer = Server.CreateObject("ADODB.RecordSet")
RS_trailer.open "Select * From [trailers] Order by id desc" , Conn

Set RS_trailer = Server.CreateObject("ADODB.RecordSet")
RS_trailer.open "Select f.titel, t.tekst From trailers t Left Join film f On t.FilmID = f.FilmID Order By id Desc", Conn

Ok - cool.. Men hvordan ved den at f = film og t = trailer, eller skal jeg selv rette det og skrive film.titel osv??

Vi giver tabellerne et alias, så sætningen forkortes lidt.

trailers t
film f

I stedet for at skrive film.titel, kan vi derfor blot skrive f.titel. Det er især en fordel med store statements. I dette tilfælde har det ikke den store betydning, da det er en rimelig kort forespørgsel.

men jeg skal vel så skrive inden SQL sætningen:
f = film
t = trailers

Right??

Nej!

Det står i selve SQL-sætningen:

Select f.titel, t.tekst From trailers ->t<- Left Join film ->f<- On t.FilmID = f.FilmID Order By id Desc

Frækt :o)

På grænsen til det perverse, ja...

Ok - Så tror jeg den er ved at være der, men hvad skete der med:
Request.QueryString("Bogstav") ???

Set RS_trailer = Server.CreateObject("ADODB.RecordSet")
RS_trailer.open "Select f.titel, t.tekst From trailers t Left Join film f On t.FilmID = f.FilmID Where f.titel Like '" & request.Querystring("bogstav") & "*' Order By id Desc", Conn

[Microsoft][ODBC Microsoft Access Driver] The specified field 'id' could refer to more than one table listed in the FROM clause of your SQL statement.

Hvis jeg så skriver f.id skriver den:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

nogen gode idéer??

Er det dette, du har prøvet?

Set RS_trailer = Server.CreateObject("ADODB.RecordSet")
RS_trailer.open "Select f.titel, t.tekst From trailers t Left Join film f On t.filmid = f.id Where f.titel Like '" & request.Querystring("bogstav") & "*' Order By id Desc", Conn

Nå, der er smuttet en * ind. Sådan går det med cut'n'past. Du får den lige igen:

Set RS_trailer = Server.CreateObject("ADODB.RecordSet")
RS_trailer.open "Select f.titel, t.tekst From trailers t Left Join film f On t.filmid = f.id Where f.titel Like '" & request.Querystring("bogstav") & "%' Order By id Desc", Conn

den har jeg faktisk fjernet - kan det være andet.. Jeg har rettet den til så den passer til mit scrips - Nogen fejl?

------------------------------
<%
Set RS_trailer = Server.CreateObject("ADODB.RecordSet")
RS_trailer.open "Select f.titel, t.tekst From trailers t Left Join movies f On t.referrence = f.id Where f.titel Like '" & request.Querystring("bogstav") & "' Order By id Desc", Conn_sites
Do while not rs_trailer.eof %>
<%=RS_trailer("titel")%><br>
<%
rs_trailer.MoveNext
loop
%>

Du må lige finde ud af, om din tabel hedder "film" eller "movies".

Husk %-tegnet.

Hvor kommer referrence nu fra??

Prøv lige at vise opsætningen af dine to tabeller med alle navne, og hvilken kolonne der skal referere til hvilken. Ellers er det jo ikke til at finde ud af, når kolonne- og tabelnavne bare står og skifter.

[trailers]
id
reference
html

[movies]
id
titel

trailers.reference passer på movies.id

Kan du gennemskue det? :o)

Ja ja ;) Og nu gætter jeg så på, at det er kolonnen "html", du vil have ud fra trailers.

<%
Set RS_trailer = Server.CreateObject("ADODB.RecordSet")
RS_trailer.open "Select m.titel, t.html From trailers t Left Join movies m On t.reference = m.id Where m.titel Like '" & request.Querystring("bogstav") & "%' Order By m.id Desc", Conn_sites
Do while not RS_trailer.eof
  Response.Write RS_trailer("html") & " - " & RS_trailer("titel") & "<br>"
  rs_trailer.MoveNext
loop
%>

Bemærk i øvrigt at jeg også har et "r" i reference. Hvis kolonnenavnene ikke staves på samme måde overalt, er der jo heller ikke noget at sige til, du får alle de fejl.

-- at jeg også har fjernet et

COOL =D

Tak for points :)

No no - Det er mig der takker.....

Ok ;o)

Jeg får sjovt nok pludselig en fejl på mit script :o(

RS.open "Select m.titel, t.html From trailers t Left Join movies m On t.referrence = m.id WHERE t.site = 'movies' AND m.titel Like '" & request.Querystring("bogstav") & "%' Order By m.id Desc", Conn_sites

Prøver at udskrive:
<%=RS("id")%>

De to tabeller:
[trailers]
Id
Referrence
html
dato
site

[movies]
id
titel

Hvad har jeg gjort galt??

ASP-fejlen er:

ADODB.Recordset error '800a0cc1'

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

trailers.asp, line 79

id er ikke med i din select.

RS.open "Select m.id, m.titel, t.html From trailers ...

Cool Tak - Den havde jeg ik lige set ;o)

God Jul

//Z

Tak ilm ;)