Udskriv billede fra database

do while not oRs.EOF
Dine billeder
oRs.MoveNext
loop

Det får stadig ikke

mySmartUpload.DownloadField(oRs("pics"))

til at virke

Dim oConn
Dim strSQL
Dim oRs
'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  oConn.Open "DBQ=d:\inetpub\database\pk.mdb; Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
strSQL = "SELECT * FROM news"
set oRs = oConn.execute(strSQL)

do while not oRs.EOF
Response.BinaryWrite "oRs(pics)"
oRs.MoveNext
loop

Du skal ikke bruge aspsmartuploads download funktion for at vise billeder - denne funktion er kun til hvis du vil tilbyde download af filer til klientens computer.

Specielt når du arbejder med access er det en rigtig dårlig idé at gemme filer direkte i databasen. Gem i stedet for kun filnavnet og læg så filen i en mappe på serveren - det letter arbejdet rigtig meget både for databasen med også for dig. Når du så skal vise billedet igen gør du bare som ved et normalt billede fx;

<img src="../billedmappe/<%=rs("img")%>" alt="">

<keysersoze> Jeg ville også helst gøre det på den måde, men det kan desværre ikke lade sig gøre på den server jeg bruger.

Vil give keysersoze helt ret, har selv dårlige erfaringer med det. Det bliver utroligt langsomt, og det er ikke bare Access.

Ok men brugden kode jeg sendte.

Dim oConn
Dim strSQL
Dim oRs
'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  oConn.Open "DBQ=d:\inetpub\database\pk.mdb; Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
strSQL = "SELECT * FROM news"
set oRs = oConn.execute(strSQL)

do while not oRs.EOF
Response.BinaryWrite oRs("pics")
oRs.MoveNext
loop

oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing

Ok har prøvet at omskrive den lidt, så den nu ser sådan ud:

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim oConn
  Dim strSQL
  Dim oRs

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  oConn.Open "DBQ=d:\inetpub\database\pk.mdb; Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
  strSQL = "SELECT * FROM news"
  set oRs = oConn.execute(strSQL)

do while not oRs.EOF
Response.BinaryWrite "oRs(pics)"
Response.Write "<br>"
oRs.MoveNext
loop

'  Destruction
'  ***********

  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>

Dette giver dog kun følgende output:

oRs(pics)
oRs(pics)
oRs(pics)
oRs(pics)
oRs(pics)
oRs(pics)
oRs(pics)
oRs(pics)

Response.BinaryWrite oRs(pics)

Med hensyn til hastigheden tror jeg ikke det bliver det store problem, da der max skal ligge 5 små billeder ad gangen (det er i forbindelse med upload af nyheder)

Klip og klister min kommentar fra:04/05-2004 21:19:27
Så skulle det virke.

<Response.BinaryWrite oRs(pics)>

så vil siden slet ikke vises

Så er der klippet og klistret til den store guldmedalje, men jeg får bare at vide at siden ikke kan vises...

Hvilken fejl får du?

Jeg får ingen fejl, siden vil slet ikke vises. Fjerner jeg

Response.BinaryWrite oRs("pics")

virker det fint... udover at billederne selvfølgelig ikke udskrives

Response.BinaryWrite oRs(pics)

Hvad med uden semikolon?

Uden "" virker det stadig ikke - siden vil ikke vises

brug

Response.BinaryWrite oRs("pics")

og gør følgende

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

så får vi en fejlbesked vi kan bruge til noget

Ok det giver så:

Response object error 'ASP 0106 : 80020005'

Type Mismatch

/pk/login/hentpic.asp, line 22

An unhandled data type was encountered.

Og line 22 er

Response.BinaryWrite oRs("pics")

billederne skulle meget gerne være jpg-format, men måske er der gået noget galt når jeg uploader.

Sorry telefonen ringede. Hvilket felt gemmer du din binäre data i?

pröv at skriv:
Response.Write oRs("pics")

Med
Response.Write oRs("pics")
skrives der ikke noget - men der kommer heller ikke nogen fejl

Og jeg sender til databasen med:

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim strSQL
  Dim oRs
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
'  Tilladte formater 
  mySmartUpload.AllowedFilesList = "gif,jpg,png"
 
'  Only allow files smaller than 30000 bytes
'  *****************************************
  mySmartUpload.MaxFileSize = 30000

'  Upload
'  ******
  mySmartUpload.Upload

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  oConn.Open "DBQ=d:\inetpub\database\pk.mdb; Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT * FROM news"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("pics")
        oRs("pics") = mySmartUpload.form("FILE1")
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>

Hvor formen der henvises til ser således ud:

<FORM METHOD="POST" ACTION="aspsmartupload.asp" ENCTYPE="multipart/form-data">
  <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
  <INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>

Hvilken datatype er pics?

OLE-objekt

Har du checket om der er noget i pics?

Det troede jeg faktisk jeg havde, men jeg kan se det ikke er tilfældet - så problemet må ligge i min upload-fil

Tänk på at du har sat billederne til en maxsize på 29 kB

De to jeg har uploadet (som jeg så ikke har uploadet alligevel) er på 4 kB og 12 kB, så det er næppe problemet.

Det er din upload der noget galt med, kikker på den imorgen.

Tak for hjælpen, hvis du vil have nogen point, så må du lige poste et svar

Ja, når vi er klar ;o)

lukker...