CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

xezbeth Nybegynder

10. december 2002 - 13:31 Der er 5 kommentarer og
1 løsning

gem billede og access database og hente det igen

Hej
jeg har en access db, hvor jeg gerne vil gemme billeder i, hvordan skal dettte gøres, med ole objekter eller bare ved at skrive sti navnet i feltet??

og hvordan hiver jeg det hele frem igen i en asp side??

Synes godt om

rullemarie Praktikant

10. december 2002 - 13:35 #1

Hej,

Jeg har et eksempel på hvordan det kan gøres, du kan se om det kan bruges.

--------------------------------------
<html>
<head>
<title>Fotoalbum</title>
</head>

<body bgcolor="#CCCCCC"><font face="Verdana">
<%
dim strAction
strAction=request("action")

Main

select case strAction
case "search"
Search request("searchstr"), 0
case "category"
Search request("searchstr"), 1
case "show"
ShowImage request("image")
end select

'---------------------
'Funktioner/procedurer
'---------------------

sub Main
%>
<h2 align="center">Fotoalbum</h2>
<p>Søg:
<form action="photoalbum.asp?action=search" method="post">
<input type="text" name="searchstr">
<input type="submit" value="Søg">
</form>
</p>

<p>Eller vælg kategori:<br>
<%
dim strSQL, objRS, arrCategories, i
strSQL = "SELECT category, count(category) as numcat FROM PhotoAlbum " & _
"GROUP BY category"
set objRS = server.createobject("ADODB.Recordset")
objRS.open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
if not objRS.EOF then
arrCategories = objRS.GetRows
end if
objRS.close
set objRS = nothing

if isArray(arrCategories) then
for i = 0 to ubound(arrCategories,2)
response.write _
" <a href=""photoalbum.asp?action=category&searchstr=" & _
server.urlencode(arrCategories(0,i)) & """>" & _
arrCategories(0,i) & "(" & arrCategories(1,i) & ")</a> "
next
end if
%>
<hr></p><%
end sub

sub Search (strS, intType)
dim strSQL, objRS
if intType = 0 then
strSQL = "SELECT titel, imagename FROM PhotoAlbum " & _
"WHERE titel + beskrivelse + words LIKE '%" & strS & "%'"
end if

if intType = 1 then
strSQL = "SELECT titel, imagename FROM PhotoAlbum " & _
"WHERE category = '" & strS & "'"
end if

set objRS = server.createobject("ADODB.Recordset")
with objRS
.open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
while not .EOF
response.write _
"<p><a href=""photoalbum.asp?action=show&image=" & _
server.urlencode(.Fields("imagename")) & """>" & _
"<img src=""/images/thumbs/" & .Fields("imagename") & """ border=0>" & _
"</a><br clear=all>" & _
.Fields("titel") & "</p>"
.movenext
wend
.close
end with

set objRS = Nothing
end sub

sub ShowImage (strImageName)
dim strSQL, objRS
strSQL = "SELECT titel, beskrivelse FROM PhotoAlbum " & _
"WHERE imagename = '" & strImageName & "'"
set objRS = server.createobject("ADODB.Recordset")
with objRS
.open strSQL, strConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
if not .EOF then
response.write _
"<h2>" & .Fields("titel") & "</h2>" & _
"<img src=""/images/image/" & strImageName & """>" & _
"<p>" & .Fields("beskrivelse") & "</p>"
else
response.write _
"<p>Kan ikke finde billedet: " & strImageName & "</p>"
end if
.close
end with
set objRS = Nothing
end sub

%>
</font>
</body>
</html>

Synes godt om

xezbeth Nybegynder

10. december 2002 - 14:10 #2

har du ikke en lidt mere simpel eksempel

Synes godt om

thb Nybegynder

10. december 2002 - 14:47 #3

Du kan jo bare skrive dit fil navn ind i dben... og så når du udskriver det så:

<img src="<%=rs("imgsti")%>" width="100" height="100" border="0">

Bare et eks....

Thomas

Synes godt om

xezbeth Nybegynder

11. december 2002 - 07:51 #4

<%

Dim objConnection, strConnect

Set objConnection = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Connection")

objConnection.Open strConnect
strSQL = "SELECT Billede From Vare"

Set rs = objConnection.Execute(strSQL)
%>
<img src="<%=rs("Billede")%>" width="100" height="100" border="0">
<%
objConnection.Close
Set objConnection = Nothing
%>

jeg har dette her styk kode, men billedet bliver ikke vist, i databasen har jeg bare angive stien til billedet, c:\billeder\test.jpg

Synes godt om

maxjolt Nybegynder

13. december 2002 - 11:28 #5

prøv at kigge på getchunk og appendchunk - de er metoder på field-objektet, som du kan accesse ved hjælp af dit recordset-objekt.
Eks : rs.fields("field").AppendChunk

Synes godt om

thb Nybegynder

15. december 2002 - 19:58 #6

Tak Tak

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Småopgaver kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Hjælp til at skrive opgave Af Needhelp i Småopgaver	0	05/07/202422:41	-
USB styret telæ Af Olsen i Småopgaver	1	04/05/202400:07	04/05/202400:22
Lønnet opgave: Elektroingeniør søges til gennemgang af kredsløbsdiagram Af shaya i Småopgaver	0	23/11/202322:05	-
Programmering i ChatGPT Af Thygesen i Småopgaver	1	17/10/202315:37	02/12/202320:33
Hjælp til matematik opgave Af Sof9876 i Småopgaver	3	25/09/202316:56	27/09/202315:58

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

26/07

Test: Endelig kan man få en soundbar der lyder godt - og som ikke behøver nogen klodset subwoofer

26/07

Analyse: ”Det største it-nedbrud i historien” viser hvor sårbare dine it-løsninger er - og det vil ske igen

26/07

Nørgaard: Jeg har jo sagt det gang på gang på gang! VMS er det bedste styresystem EVER! Men lytter folk?! Nej, nej og atter nej!

26/07

Kæmpeleverandør til Pentagon hacket: Interne undersøgelser lækket

26/07

Stor aftale gør Microsofts datacentre hurtigere - investerer i netværksudstyr

26/07

Nordjyske MapsPeople ruster op til opkøb af konkurrenter: "Vi vil vinde det her kapløb"

26/07

Mød den unge version af den mest elskede seriemorder nogensinde

26/07

AMD opdager cpu-fejl i 11. time: Storstilet lancering udskydes

26/07

Microsoft tager til genmæle: Vores licenspraksis skaber ikke unfair konkurrence

26/07

Med SearchGPT har verden fået en spritny søgemaskine: Kan den true Googles dominans?

26/07

Færre unge studerende på landets it-uddannelser: "Vi afviser dem der, hvor de har lyst til at læse"

Vis flere artikler

IT-JOB

Netcompany A/S

Network Engineer

Sydbank

Software Developer til Digital Banking

Kalundborg Kommune

Data Scientist / udvikler

A/S Bryggeriet Vestfyen

IT-Architect /Administrator

Region Midtjylland

Gør en forskel som License Manager

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 18:09	Kan ikke fildele fra PC til PC Af gertLundberg i LAN/WAN
I går 17:33	Facebook kopier en tråd Af clausito i Sociale medier
I går 09:49	Indtogs sejlads : OL i Paris : Hvornår kom Danmark ? Af Ikke-ekspert i Fri debat
I går 03:28	Inkasso som privat? Af lekor adams i Fri debat
26/0723:51	Frossen cursor Af goglov i PC