Gemme PDF filer i en database

du kan vel gemme en hvilket som helst fil i en database i et BLOB felt (og selvfølgelig
også hente det ud igen)

jeg har vist kun lige en hent ud snippet på lager:

<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "bla bla"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT ditbilledtypefelt,ditbilledefelt FROM dintabel WHERE id" & Request("id"),con
Response.Clear
Response.ContentType = "image/" & rs("ditbilledtypefelt")
Response.BinaryWrite rs("ditbilledfelt")
Response.End
Set rs = Nothing
Set con = Nothing
%>

Øh BLOB felt - det kender jeg ikke.

Følgende findes i 2000 SQL
bigint
binary
bit
char
datetime
decimal
float
image
int
money
nchar
ntext
numeric
nvarchar
real
smalldatetime
smallint
smallmoney¨
sql_variant
text
timestamp
tinyint
uniqueindentify
varbinaty
varchar

Er det nogle af dem du mener?

?:-) karsten_larsen

BLOB som er et generelt database koncept hedder af uransagelige årsager IMAGE i SQLServer

Okay - jeg har ikke brugt den type før.


Burde indsættelse ikke være noget i denne stil

<%

Function ReadBinaryFile(FileName)
    Const adTypeBinary = 1
    Dim BinaryStream
    Set BinaryStream = CreateObject("ADODB.Stream")
    BinaryStream.Type = adTypeBinary
    BinaryStream.Open
    BinaryStream.LoadFromFile FileName
    ReadBinaryFile = BinaryStream.Read
End Function

filen = ReadBinaryFile (eksempel.pdf)

strSQL = "INSERT INTO [Image] (pdf (pdf_fil) "
strSQL  = strSQL & "Values "
strSQL = strSQL & "('" &  filen & "'))"
Conn.Execute strSQL

Conn.Close
Set Conn = Nothing


Bortset fra at det ikke virker og lavet uden funktion kan filen ikke åbnes!

?:-) karsten_larsen

du kan ikke angive binære data i en SQL sætning

for kode se:

http://www.motobit.com/tips/detpg_read-write-sql-image-file/

Okay - linket ser spændende ud, det vil jeg kigge på efter et par kopper kaffe, det trænger jeg vist til. Tak for hjælpen indtil videre.

Vil du lave et svar?

:-) karsten_larsen

kommer her