Hente fra access database i asp

SELECT FROM fungere nu også med andet end lige ID.

Men havd er egentlig din forbindels mellem milm og kunstener? Hvordan finder du kunstnereene når du kender filmen.

Hvad hvis er er to/tre/flere kunsnere i en film - vil du så have de fime hvor en af kunstnerene deltager i?

du kan evt. se det her http://www.rocknet.dk/tidslinie/90.asp
Der er en liste med film. Så hvis du f.eks trykker på en film med nirvana, så skal der være et link til de andre film med nirvana der fra.

Jeg er nu mere intesseret i hvordan du har sammensat dine tabeller i din database.

nok bedst at have en kunstner db og en indhold db så. Flere til en relationer.

Første databse (kunstner): f.eks.


id
navn

Anden database(indhold):
id
parent_id
titel
beskrivelse
rakkefolge

På den måde kan du nemt liste flere ud fra samme kunstner. Rakkefolge kan så beskrive hvilken der er vigtigts og skal være på forsiden, eller undersiden.

Hvad med lidt respons?

Ja det er også rigtigt, sorry. Håber I stadig hænger ved :S
Men jeg har en tabel  hvor jeg har følgende kolonner.

id
titel (giver sig selv)
artist (kunstnernavn)
kategori (musikvideo eller koncerfilm)
beskrivelse (giver sig selv)
embed (en kode til filmen)
uploaded (dato jeg uploadede filmen)
filmid (til kommentarsystem)

I en asp film henter jeg så så titlen, kategorien og beskrivelsen på hver film, og tilknytter et billed hvis navn svarer til filmens id.


Et eksempel her hvor det er de 10 nyeste film jeg henter fra databasen:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/musikvideo.mdb")
Conn.Open DSN

strSQL = "Select top 10 * From musikvideo Order by id DESC"
Set rs = Conn.Execute(strSQL)

Do
  ' Filmens titel
  strNavn = rs("Titel")

  strID=rs("Id")
  If CreateObject("Scripting.FileSystemObject").FileExists(Server.MapPath("/upload/musikvideopic/"&strID&".jpg")) Then
      strPic="<img alt=""Billede"" src=""/upload/musikvideopic/"&strID&".jpg"" width=""214"" height=""120""> "
  Else
      strPic="<img alt=""Intet billede"" src=""/upload/musikvideopic/nopic.jpg"" width=""214"" height=""120""> "
  End If

  ' Liste med links
  Response.Write "<tr valign=""top""><td><a href=""video-x.asp?id="&strID&""">"&strPic&"</a></td><td><a href=""video-x.asp?id="&strID&""">"&strNavn&"</a><br><font size=""1""><b>"&rs("kategori") &"</b></font><br><font size=""2"">"&rs("beskrivelse") &"</font></td></tr>"
 
  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Når jeg så er inde på en film bruger jeg følgende til at vise filmen.

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../db/musikvideo.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra URL
strSQL = "Select * From musikvideo Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

' Skriv personens data
Response.Write rs("embed")


Conn.Close
Set Conn = Nothing
%>

Hmm gav det et større overblik?

Måske noget i denne stil?

SELECT *
FROM musikvideo
WHERE artist IN
(
    SELECT artist FROM musikvideo WHERE id = strID
)
AND id <> strID

Hmm følgende fejl kommer:

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

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

/tidslinie/video-x.asp, line 253

Hvordan ser din kode ud?

Sådan her:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/musikvideo.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM musikvideo WHERE artist IN ( SELECT artist FROM musikvideo WHERE id = strID )AND id <> strID"

Set rs = Conn.Execute(strSQL)

Do

  strID=rs("Id")
  If CreateObject("Scripting.FileSystemObject").FileExists(Server.MapPath("/upload/musikvideopic/"&strID&".jpg")) Then
      strPic="<img alt=""billede"" src=""/upload/musikvideopic/"&strID&".jpg"" width=""145"" height=""81""> "
  Else
      strPic="<img alt=""Intet billede"" src=""/upload/musikvideopic/nopic.jpg"" width=""145"" height=""81""> "
  End If

  ' Liste med links
  Response.Write "<tr valign=""top""><td><a href=""video-x.asp?id="&strID&""">"&strPic&"</a></td><td><a href=""video-x.asp?id="&strID&""">"&strNavn&"</a></td></tr>"
 
  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

I din kode fra 11/02-2008 20:04:20 udtrak du det Id det drejede sig om som en paramater: strID.

Koden ovenfor gik ud fra at du stadig bruger denne:

strSQL = "SELECT * FROM musikvideo WHERE artist IN ( SELECT artist FROM musikvideo WHERE id = strID )AND id <> strID"

rettes til:

strSQL = "SELECT * FROM musikvideo WHERE artist IN ( SELECT artist FROM musikvideo WHERE id = " & strID & ") AND id <> " & strID

Hmm jeg bruger denne nu:

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../db/musikvideo.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM musikvideo WHERE artist IN ( SELECT artist FROM musikvideo WHERE id = " & strID & ") AND id <> " & strID
Set rs = Conn.Execute(strSQL)

Do

  strID=rs("Id")
  If CreateObject("Scripting.FileSystemObject").FileExists(Server.MapPath("/upload/musikvideopic/"&strID&".jpg")) Then
      strPic="<img alt=""billede"" src=""/upload/musikvideopic/"&strID&".jpg"" width=""145"" height=""81""> "
  Else
      strPic="<img alt=""Intet billede"" src=""/upload/musikvideopic/nopic.jpg"" width=""145"" height=""81""> "
  End If

  ' Liste med links
  Response.Write "<tr valign=""top""><td><a href=""video-x.asp?id="&strID&""">"&strPic&"</a></td><td><a href=""video-x.asp?id="&strID&""">"&strNavn&"</a></td></tr>"
 
  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

Men der kommer en fejl:

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

[Microsoft][ODBC Microsoft Access Driver] Syntax error. in query expression 'artist IN ( SELECT artist FROM musikvideo WHERE id = ) AND id <>'.

/tidslinie/video-x.asp, line 248

Den vil jo også fejle med den aller første sql:

strSQL = "SELECT * FROM musikvideo WHERE artist IN ( SELECT artist FROM musikvideo WHERE id = " & strID & ") AND id <> " & strID
Set rs = Conn.Execute(strSQL)

idet strID jo er tom på det tidspunkt.

Ok så ved jeg ikke lige hvordan jeg skal gøre det :S

Din kode fra 11/02-2008 20:04:20 ser nogenlunde sådan her ud:

strSQL = "Select top 10 * From musikvideo Order by id DESC"
Set rs = Conn.Execute(strSQL)

Do
    ' Filmens titel
    strNavn = rs("Titel")

    strID = rs("Id")

    If CreateObject("Scripting.FileSystemObject").FileExists(Server.MapPath("/upload/musikvideopic/"&strID&".jpg")) Then
        strPic="<img alt=""Billede"" src=""/upload/musikvideopic/" & strID & ".jpg"" width=""214"" height=""120""> "
    Else
        strPic="<img alt=""Intet billede"" src=""/upload/musikvideopic/nopic.jpg"" width=""214"" height=""120""> "
    End If

    ' Liste med links
    Response.Write ...
   
    rs.MoveNext
Loop While Not rs.EOF


D.v.s. at du kender strID og kunsternavn inde i løkken. Hvis du ønsker at finde alle de andre film med samme kunstre, skal du bare lave en indre SQL baseret på disse oplysninger:


strSQL = "Select top 10 * From musikvideo Order by id DESC"
Set rs = Conn.Execute(strSQL)

Do
    strID = rs("Id")

    ' Filmens titel
    strNavn = rs("Titel")

    kunstnernavn = rs("artist")

    If CreateObject("Scripting.FileSystemObject").FileExists(Server.MapPath("/upload/musikvideopic/"&strID&".jpg")) Then
        strPic="<img alt=""Billede"" src=""/upload/musikvideopic/" & strID & ".jpg"" width=""214"" height=""120""> "
    Else
        strPic="<img alt=""Intet billede"" src=""/upload/musikvideopic/nopic.jpg"" width=""214"" height=""120""> "
    End If

    ' Liste med links
    Response.Write ...

    ' Liste med links til andre film af samme kunstener.

    strSQL2 = "SELECT * FROM musikvideo WHERE artist = '" & kunstnernavn & "' AND id <> " & strID
    Set rs2 = Conn.Execute(strSQL2)

    While Not rs2.EOF
        ' Titel på de andre musikvideoer.
        strNavn2 = rs2("titel")

        Response.Write ...

        rs2.MoveNext
    Loop
   
    rs.MoveNext
Loop While Not rs.EOF

hmm har du evt. msn eller er du ikke meget for at hjælpe den vej fra :S ?

det er nemmere at snakke om de må detaljer der nemlig

Jeg bruger desværre ikke MSN.

Ok jeg det er i orden.. jeg prøver lige at finde hoved og hale i det hele du har skrevet en af dagene, også vender jeg tilbage.

Tak for den foreløbige hjælp

Mvh Thomas

Jeg synes nu heller ikke at MSN er specielt godt til at diskutere kode i - der er alt for lidt plads i vinduet.

Men du må endeligt spørge videre her hvis der er noget du ikek forstår. Og det er nok en fordel hvis der ikka går mange dage imellem ... for så glemmer man for meget.

Er du kommet vidre med denne her?

roder stadig med det ! .. synes ikke det er så nemt :S

Du skal endelig spørge og komme med eksempler på hvad du prøver på af kode. Ellers er det lidt svært at hjælpe. :^)

Hallo?

Kan du ikke oprettet et svar så får du point ;) .. tak for hjælpen =)

Har du da fået løst dit problem?

yes ;)

Cool :^)