Upload og insert billede i access databasen

Hvis du ønsker billedet skal ind i databasen så skal du lave noget binaryread og binarywrite halløj
Det er generelt anbefalet at man ikke gemmer selve billedet i databasen men derimod gemmer det på serveren og så i databasen blot gemmer stien til billedet
Årsagen er at dels fylder et billede meget i databasen og den sløves, dels at man skal kode en del ekstra for at hive billedet ud og vise det, hvilket også kræver resourcer
--
Så jeg vil foreslå dig at gemme stien til billedet i stedet :o)

hvis du laver en løkke
For Each File in Upload.Files
Så vil du have stien til billedet i File.Path

men kig evt her
http://www.asp101.com/resources/aspupload.asp
Der er nederst et eksempel på at gemme billedet i databasen, og senere på hvordan det kan hives ud igen

Ja, jeg mente også stien til databasen, ikke selve billedet. Men er ikke helt sikker på at jeg forstår ovenstående eksempel. Kan du ikke prøve at give et eksempel på hvorledes det ser ud i mit script.

Jeg ved ikke om du kan benytte Upload.Form("file1").Path
Men ellers
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = false
Upload.SetMaxSize 1000000, True
Upload.SaveVirtual ("upload/")
For Each File in Upload.Files
  strSQL = "Insert into personer (navn, efternavn, file1) values('" & Upload.Form("navn") & "', '" & Replace(Upload.Form("efternavn"), "'", "''") & "', '" & File.Path & "')"
  Conn.Execute(strSQL)
Next
%>

Øv, ingen af de to virker...Hvordan får jeg dem så ind?

hvordan ser hele din kode ud?

Således:

Form.asp:
<form enctype="multipart/form-data" action="sql.asp" method="post">
Titel:<br />
<input size="76" type="text" name="titel"><br />
Indeks:<br />
<input size="76" type="text" name="indeks"><br />
Billede:<br />
<input size="76" type=file name="file1"><br />
Notat:<br />
<textarea rows="8" cols="58" name="notat"></textarea><br />
<input type="submit" value="Tilføj film">

sql.asp:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = false
Upload.SetMaxSize 1000000, True
Upload.SaveVirtual ("upload/")
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/database.mdb")
Conn.Open DSN

strSQL = "Insert into film (titel, indeks, file1, notat)

values('" & Replace(Upload.Form("titel"), "'", "''") & "', '" & Replace(Upload.Form("indeks"), "'", "''") & "', '" & Replace(Upload.Form("file1").Path, "'", "''") & "', '" & Replace(Upload.Form("notat"), "'", "''") & "')"
Conn.Execute(strSQL)

- har klippet lidt i den, da den er utrolig stor....

hmm ok det kan jeg desværre ikke lige lure så, beklager :o/

oki, men har lige fundet en tråd hvor der også anvendes persits, så vender lige tilbage og et øjeblik hvis det virker.

Yes, nu virker det. Jeg gjorde dette:

file1 = Upload.Form("file1")
Set file1 = Upload.Files("file1")
If file1 is nothing Then
file1 = ""
Else
file1 = file1.ExtractFileName
End if

og i strsql:
'" & file1 & "'

okey det er jo godt :o)

Tak for hjælpen ellers busschou.

selv tak, engang imellem kan man desværre ikke det hele :o)