Hej! Ändra fältet Från pm/memo till OLE Object/ActiveX Object. Vilket är access motsvarighet till BLOB. Tack Andreas!.AppendChunk (löst)
Försöker i ASP använda .AppendChunk till en Accessdatabas.
Hittade ett exempel av Andreas Hillqvist, men det funkar inte 100%.
När jag försöker stoppa in en fil som har ojämnt antal bytes i filstorleken så funkar det inte.
Jag får felmeddelande:
"[Microsoft][ODBC Microsoft Access Driver] The width of a Unicode text column must be an even number of bytes. "
Om jag har en fil med jämnt antal bytes i filstorleken så funkar det utmärkt!
Det som inte funkar är raden mellan !!!!!! nedan.
<code>
Dim rs2
Dim Stream
Dim ConnBin
'Öppnar filen
Set Stream = Server.CreateObject("ADODB.Stream")
Stream.Type = 1
Stream.Open
Stream.LoadFromFile Server.MapPath(FilePath)
'Öppna databas
set ConnBin= server.createobject("ADODB.Connection")
ConnBin.Open "blahblah"
'Öppna recordset
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open "SELECT * FROM files WHERE 1=2", ConnBin, 1, 2
'Sparar fil
rs2.AddNew
rs2("filesize") = Stream.Size
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! raden nedan funkar inte
rs2("filedata").AppendChunk Stream.Read
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! raden ovan funkar inte
rs2("filetype") = "image/pjpeg"
rs2.Update
</code>
Om jag REM'ar bort raden .AppendChunk... så funkar allt. men då får jag ju lixom inte med själva filinnehållet.. =)
Fältet "filedata" i accessdatabasen är ett PM fält (MEMO)
Filens storlek är 13561 bytes.
Nån som begriper sig på vad som blir fel?
Mvh
MagnusSv: .AppendChunk
Sv: .AppendChunk
Nu funkar det.
Jag läste i nåt av tipsen under tips och tricks att det är PM man använder i Access. Iofs borde jag ju ha begripit att PM inte skulle funka hursomhelst eftersom storleken är begränsad till 65535 tecken.
Men nu funkar det iaf. =)
/Magnus