Jag behöver spara en fil på hårddisken i en databas (Accsess). Någon som har några ideer? Komponenter eller dyligt är inga problem.

Undvik att spara stora grejjer i access ...

spara bara sökvägen och spara sedan filen på disk ..

Jo, det hade ju varit lättare men det är inte ett alternativ då alla i så fall skulle kunna ladda ner filen och så får det inte gå till. Jag måste spara filen i databasen.
Dessutom så är det inte några större file filer vi pratar om utan sparade mail från Outlook. Vad vi håller på med är ett system som automatiskt ska arkivera all e-mail korrespondans i ett projekt.

Närmar mej en lösning. Gjode som nedan, funkade nästan. När jag tar ut flen igen så har det smugit in en noll-byte mellan varje tecken. Hur? Några ideer?

Dim p, l
Dim Con As ADODB.Connection
Dim Rst As ADODB.Recordset
Set Con = New ADODB.Connection
Set Rst = New ADODB.Recordset
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\rustek.mdb"
Rst.Open "SELECT lngID, binFile FROM tblFile WHERE lngID = 0", Con, 3, 3
Rst.AddNew
Open "C:\Test.txt" For Binary Access Read As #1
p = 1
l = 0
Do Until EOF(1)
If (LOF(1) - p) > 1024 Then
l = 1024
Else
l = (LOF(1) - p)
End If
If l = 0 Then Exit Do

Rst.Fields("binFile").AppendChunk Input(l, #1)
p = p + l
Seek #1, p
Loop
Close #1
Rst.Update
Set Con = Nothing
Set Rst = Nothing