Indsætte billede fra Access-database.

Ligger billederne i databasen, eller er det stien/navnet du har på dem?

//>Rune

Ville det ikke være bedre hvis du lagde billed filerne i en separat mappe og så indtastede filnavnene i databasen i stedet? Det vil mindske din databases størrelse betydeligt.

De ligger i varetabellen, hvor feltet har datatypen OLE-objekt.

Og jo, jeg kunne godt lægge filerne ud i en separat mappe, men det ville være smart for ham som skal opdatere varetabellen at de ligger netop i tabellen.

Du gemmer navnet på billdet og piller det ud som du gør med de andre poster.
Hvis dbilledet ligge i mappen images gøres det sådan her.

<IMG SRC="images/<%=rs("image")%> size="xxx" border="0">

medions > Det var da ikke et svar.

sesam > Vil det sige, at hvis jeg har min database med billederne liggende i en mappe der hedder /db/ , og feltet i tabellen hedder "billede" skal jeg skrive sådan her:

<IMG SRC="<%=rs("billede")%>>

...hvis vi lige ser bort fra dimensionerne i første omgang.

tofferman> Sorry, det er bare fordi det er blevet en vane at klikke på svar :-) Sorry!

//>Rune

Ja

tofferman> Du kan fx. gøre som følgende:
1) Opret en kolonne i din tabel du kalder for "filnavn" -her i skriver du navnet på din fil, altså fx. blomster.gif
2) Laver en connection med et udtræk til dine billeder, fx:

<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
strSQL = "SELECT * FROM billeder"
Set objRs = objConn.Execute(strSQL)
%>
<img src="billeder/<% Response.Write(objRs("filnavn")) %>">

//>Rune

Med mit eksempel skal du så ligge alle dine bileder i en mappe der hedder "billeder" i dit root bibliotek...

//>Rune

Hmm...Har stadig problemer. Her er lige en stump fra koden:

varenummer=rs("produktnummer")
varenavn=rs("produktnavn")
varebeskrivelse=rs("beskrivelse")
levering=rs("leveringstid")
pris=rs("pris")
billede=rs("billede")

response.write"<p><font color=" & farve & ">" & varenummer & " " & varenavn & "<br>"
response.write"<p>" & varebeskrivelse & "<p align=left>Leveringstid: " & levering & "<align=right>Pris: " & pris & "Dkr</align></font></p><hr>"
response.write"<IMG SRC="<%=rs("billede")%>>"

medions>Det ender måske med at det er den metode jeg bruger, men det ville være bedst hvis billederne kunne trækkes direkte fra databasen, fordi ham der skal holde det ved lige helst ikke skal sidde og ftp´e.

response.write"<IMG SRC="& billede &">"

varenummer=rs("produktnummer")
varenavn=rs("produktnavn")
varebeskrivelse=rs("beskrivelse")
levering=rs("leveringstid")
pris=rs("pris")
billede=rs("billede")

response.write"<p><font color=" & farve & ">" & varenummer & " " & varenavn & "<br>"
response.write"<p>" & varebeskrivelse & "<p align=left>Leveringstid: " & levering & "<align=right>Pris: " & pris & "Dkr</align></font></p><hr>"
response.write"<IMG SRC="<%=rs("billede")%>">"

//>Rune

Nu har jeg ændret den sidste linie til:

response.write"<IMG SRC=" & rs("billede") & ">"

Nu vil siden godt loade, men der hvor der skulle komme billeder er der kun et rødt kryds.

medions>Når jeg skriver response.write"<IMG SRC="<%=rs("billede")%>">" får jeg en HTTP 500 fejl.

Nej sorry medions. Den skriver:

Microsoft VBScript compilation error '800a0408'

Invalid character

/tofferman/produkter.asp, line 36

response.write"<IMG SRC="<%=rs("billede")
--------------------------^

Hov, det må du undskylde! Det skal se sådan her ud:

varenummer=rs("produktnummer")
varenavn=rs("produktnavn")
varebeskrivelse=rs("beskrivelse")
levering=rs("leveringstid")
pris=rs("pris")
billede=rs("billede")

response.write"<p><font color=" & farve & ">" & varenummer & " " & varenavn & "<br>"
response.write"<p>" & varebeskrivelse & "<p align=left>Leveringstid: " & levering & "<align=right>Pris: " & pris & "Dkr</align></font></p><hr>"
response.write"<IMG SRC="" & billede & "">"

//>Rune

Hvor ligger det billede du vil hente?

Jeg får stadig røde krydser :-(

sesam. Det ligger inde i databasen.

varenummer=rs("produktnummer")
varenavn=rs("produktnavn")
varebeskrivelse=rs("beskrivelse")
levering=rs("leveringstid")
pris=rs("pris")
billede=rs("billede")

response.write"<p><font color=" & farve & ">" & varenummer & " " & varenavn & "<br>"
response.write"<p>" & varebeskrivelse & "<p align=left>Leveringstid: " & levering & "<align=right>Pris: " & pris & "Dkr</align></font></p><hr>"
response.write"<IMG SRC="billeder/" & billede & "">"

Hvis du har lagt billederne i en mappe der hedder "billeder" så skal det gerne virke med overstående...

//>Rune

tofferman> Kan du ikke bare rette FTP mappen over imod mappen "billeder" og så uploade dem der istedet? -Det skulle vidst ikke være det helt store der skulle rettes til...

//>Rune

Som jeg startede med at sige skulle du gemme navnet på billedet i databasen fx. xxxx.jp og hente navnet ud fra databasen. Det er ikke hensigtmæssigt at gemme billedet i databasen...

medions>Ja, det ved jeg. Og det bliver sq nok også løsningen.

Ok, jeg må hellere komme i seng, men jeg lader spørgsmålet stå åbent til i morgen. Så fordeler jeg pointene mellem jer.

Hvis I kommer i tanke om noget, så skriv endeligt :-)

Ok, well, så kan du bruge indlæg jeg skrev 01:18:54 ! -Her skal du så i din kolonne billeder skrive navnet på billedet!

//>Rune

medions >> hvad gør dit bedre end mit?

Jeg har en løsning på at hente billedet fra databasen - jeg kommer lige med den når jeg kommer hjem - ved 17.00 tiden - hvis du kan vente så længe.

/cygnet
www.cygnet.dk

cygnet > Fandt du ud af noget??

på selve siden det skal vises skriver du noget ala dette

      <%

Response.Write("<img src='getimage.asp?ID=1' border=2>")

%>

getimage ser så sådan ud:



<%@ LANGUAGE="VBSCRIPT"%>
<!--#include file="ms/adovbs.inc"-->
<%
Response.Expires = 0
Response.Buffer = TRUE
strId = Request.QueryString("ID")

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("base.mdb")

Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.CursorLocation = adUseServer
objRS.CursorType = adOpenForwardOnly
objRS.LockType = adLockOptimistic
objRS.Open "select ContentType,image from tilbud where id=" & strId, objConn, , , adCmdText

Response.Clear
if objRS("ContentType") <> "" then
  Response.ContentType = objRS("ContentType")
end if

Dim pic, len
len = objRS("image").ActualSize
if len > 0 then
  pic = objRS("image").GetChunk(len)
  Response.BinaryWrite pic
end if
Response.End
Pic = Nothing
objRS.Close
objConn.Close

' Henter et billede fra databasen med ID=? og returnerer det som images
%>


/cygnet
www.cygnet.dk

Og cygnet. Hvis det virker får du point, men der går nok nogle dage inden det lykkes :-)

Thx 4 Poinz

//>Rune