Søg
Avatar billede asp_rookie Nybegynder
06. maj 2003 - 14:58 Der er 17 kommentarer og
1 løsning

indsæt billede fra anden tabel...

Jeg har 2 tabeller i min acces db.
Den ene indeholder en tekst og et billede_id.
Den anden har en id(som er = billede_id) og stien til billedet.. hvordan får jeg billedet vist?

If rs("billed_id")= 0 Then
Response.Write " "
Else
Response.Write " det billede som hedder<img.. dahd.jpg fra tabel billeder som har id = billede_id" ????
end if
Avatar billede medions Nybegynder
06. maj 2003 - 14:59 #1
Altså er det SQL sætningen du mangler? -så skal jeg lige vide hvilke tabeller vi har med at gøre!

//>Rune
Avatar billede christian Nybegynder
06. maj 2003 - 15:00 #2
Du skal lave en join

eks.:
SELECT CategoryName,ProductName
FROM Categories LEFT JOIN Products
ON Categories.CategoryID = Products.CategoryID;
Avatar billede christian Nybegynder
06. maj 2003 - 15:02 #3
SELECT tekst, billedePath FROM
tekstTabel LEFT JOIN billedeTabel
ON tekstTabel.billede_id = billedeTabel.billede_id

Så kan du måske finde ud af resten?
Avatar billede asp_rookie Nybegynder
06. maj 2003 - 15:05 #4
Det er en tabel der hedder projekt og en der hedder billeder
Avatar billede dk_akj Nybegynder
06. maj 2003 - 15:09 #5
set rs = conn.execute("select * from teksttabel a, billedtabel b where a.billede_id = b.id")

If rs("billed_id")= 0 Then
  Response.Write " "
Else
  Response.Write "<img  src=" & rs("billedsti") & ">"
end if

//akj
Avatar billede medions Nybegynder
06. maj 2003 - 15:10 #6
strSQL = "SELECT billede_id.projekt, billede_id.billeder billede.billeder FROM billeder, projekt WHERE billede_id.projekt = billede_id.billeder"

Set objRs = objConn.Execute(strSQL)

If rs("billed_id")= 0 Then
Response.Write " "
Else
Response.Write "<img src=""" & objRs("billede") & """>"
end if

//>Rune
Avatar billede asp_rookie Nybegynder
06. maj 2003 - 15:44 #7
Jeg kan ikke lige få det til at virke her er min kode:
Hvordan skal det så se ud??


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/projekt/projekt.mdb")

'nyheden afhængig af ID i urlen
strSQL ="Select * From projekt Where ID = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

'Skriv nyhed
Response.Write rs("start_dato") %>
           
<%
If rs("billed_id")= 0 Then
Response.Write " "
Else
Response.Write "<img src=""" & rs("billed_id") & """>" (her skal der så være det billede der ligger i kolonne 'filnavn' med id = billede_id (id er fra billeder og billede_id er fra projekt tabellen))
end if
%>
             
                <%
Response.Write rs("Sagsnavn") & "<BR>" & "<BR>"
%>
                </font></b></td>
            </tr>
            <tr>
              <td colspan="2" height="183" class="News">
                <% id = Request("id")
subpage = Int(Request("subpage"))
if subpage = "" then subpage = 0
maxCharPrSide = 700


totalChar = len(rs("beskriv_kort"))
if totalChar > maxCharPrSide then
  showFromChar = subpage * maxCharPrSide + 1 
  Response.Write Mid(rs("beskriv_kort"),showFromChar,maxCharPrSide)
  'Laver Forrige og Næste links
  Response.Write "<br><br>"
  if subpage > 0 then
    Response.Write "<a href=""?subpage=" & subpage-1&"&id="&id&""">Forrige side</a>"
  else
    Response.Write "Forrige side"
  end if
  Response.Write " | "
  if subpage < Int(totalChar/maxCharPrSide) then
    Response.Write "<a href=""?subpage=" & subpage+1&"&id="&id&""">Næste side</a>"
  else
    Response.Write "Næste side"
  end if
 
else
  Response.write rs("beskriv_kort")
end if
%>
Avatar billede christian Nybegynder
06. maj 2003 - 16:23 #8
Du skal erstatte 'stienTilBilledet' med dit feltnavn

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/projekt/projekt.mdb")

'nyheden afhængig af ID i urlen
strSQL ="Select *, billeder.stienTilBilledet From projekt LEFT JOIN billeder
ON projekt.billede_id = billeder.billede_id
Where ID = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

'Skriv nyhed
Response.Write rs("start_dato") %>
           
<%
If rs("billed_id")= 0 Then
Response.Write " "
Else
Response.Write "<img src=""" & rs("stienTilBilledet") & """>" (her skal der så være det billede der ligger i kolonne 'filnavn' med id = billede_id (id er fra billeder og billede_id er fra projekt tabellen))
end if
%>
             
                <%
Response.Write rs("Sagsnavn") & "<BR>" & "<BR>"
%>
                </font></b></td>
            </tr>
            <tr>
              <td colspan="2" height="183" class="News">
                <% id = Request("id")
subpage = Int(Request("subpage"))
if subpage = "" then subpage = 0
maxCharPrSide = 700


totalChar = len(rs("beskriv_kort"))
if totalChar > maxCharPrSide then
  showFromChar = subpage * maxCharPrSide + 1 
  Response.Write Mid(rs("beskriv_kort"),showFromChar,maxCharPrSide)
  'Laver Forrige og Næste links
  Response.Write "<br><br>"
  if subpage > 0 then
    Response.Write "<a href=""?subpage=" & subpage-1&"&id="&id&""">Forrige side</a>"
  else
    Response.Write "Forrige side"
  end if
  Response.Write " | "
  if subpage < Int(totalChar/maxCharPrSide) then
    Response.Write "<a href=""?subpage=" & subpage+1&"&id="&id&""">Næste side</a>"
  else
    Response.Write "Næste side"
  end if
 
else
  Response.write rs("beskriv_kort")
end if
%>
Avatar billede christian Nybegynder
06. maj 2003 - 16:25 #9
Denne skulle gerne virke ved copy/paste

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("admin/projekt/projekt.mdb")

'nyheden afhængig af ID i urlen
strSQL ="Select *, billeder.filnavn From projekt LEFT JOIN billeder
ON projekt.billede_id = billeder.id
Where ID = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)

'Skriv nyhed
Response.Write rs("start_dato") %>
           
<%
If rs("billed_id")= 0 Then
Response.Write " "
Else
Response.Write "<img src=""" & rs("filnavn") & """>" (her skal der så være det billede der ligger i kolonne 'filnavn' med id = billede_id (id er fra billeder og billede_id er fra projekt tabellen))
end if
%>
             
                <%
Response.Write rs("Sagsnavn") & "<BR>" & "<BR>"
%>
                </font></b></td>
            </tr>
            <tr>
              <td colspan="2" height="183" class="News">
                <% id = Request("id")
subpage = Int(Request("subpage"))
if subpage = "" then subpage = 0
maxCharPrSide = 700


totalChar = len(rs("beskriv_kort"))
if totalChar > maxCharPrSide then
  showFromChar = subpage * maxCharPrSide + 1 
  Response.Write Mid(rs("beskriv_kort"),showFromChar,maxCharPrSide)
  'Laver Forrige og Næste links
  Response.Write "<br><br>"
  if subpage > 0 then
    Response.Write "<a href=""?subpage=" & subpage-1&"&id="&id&""">Forrige side</a>"
  else
    Response.Write "Forrige side"
  end if
  Response.Write " | "
  if subpage < Int(totalChar/maxCharPrSide) then
    Response.Write "<a href=""?subpage=" & subpage+1&"&id="&id&""">Næste side</a>"
  else
    Response.Write "Næste side"
  end if
 
else
  Response.write rs("beskriv_kort")
end if
%>
Avatar billede asp_rookie Nybegynder
07. maj 2003 - 09:01 #10
Så får jeg denne fejl:
Microsoft JET Database Engine error '80040e09'

Record(s) cannot be read; no read permission on 'billeder'.

/internet2/projekter/projekt.asp, line 22

21: strSQL ="Select *, billeder.filnavn From projekt LEFT JOIN billeder ON projekt.billede_id = billeder.id Where ID = " & Request.Querystring("id")
22: Set rs = Conn.Execute(strSQL)
Avatar billede christian Nybegynder
07. maj 2003 - 09:46 #11
underligt...
strSql skal hvertfald ændres så det bliver Where projekt.ID = Requ......

strSQL ="Select *, billeder.filnavn From projekt LEFT JOIN billeder ON projekt.billede_id = billeder.id Where projekt.ID = " & Request.Querystring("id")

Kan være det løser problemmet
Avatar billede asp_rookie Nybegynder
07. maj 2003 - 09:55 #12
Får samme fejl...:o/
Avatar billede asp_rookie Nybegynder
07. maj 2003 - 09:56 #13
Men jeg har jo fint nok adgang til den anden tabel??
Avatar billede asp_rookie Nybegynder
07. maj 2003 - 12:46 #14
bliver ved at få den permission fejl....:o/
Avatar billede christian Nybegynder
07. maj 2003 - 13:05 #15
Har du sat noget sikkerhed på din acces db via acces?
Avatar billede christian Nybegynder
07. maj 2003 - 13:06 #16
En rigtig god måde at debugge på er at udfører dine sql gennem access, så hvis du udskriver strSQL på skærmen og så paster den ind i et view i access, så får du måske en bedre fejlbesked
Avatar billede asp_rookie Nybegynder
07. maj 2003 - 13:06 #17
Ikke hvad jeg ved af....!!!
Avatar billede asp_rookie Nybegynder
08. maj 2003 - 16:19 #18
Fik det til at virke...;o)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
27/1222:02 Låse brugt iPad op Af drstein i iOS, iPhone & iPad
27/1219:21 Hvor finder jeg en oversigt over mine spørgsmål Af KurtG i Hjælp og fejl
27/1211:31 TP-Link Wifi extender opsat som accesspoint giver 50% up- og download, Af Uvanga i Wifi
26/1213:05 Hvorfor bliver tiff-filer større ved konvertering til samme format Af KurtG i Billedbehandling
23/1221:36 Gøre Ikonerne lidt større i proceslinjen (Windows 10) Af Ikke-ekspert i Windows
White papers
Flere white papers »