Upload og download af filer til access database
Jeg benytter følgende visual basic kode til at gemme f.eks et worddokument i en access database (2007):Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rstChld As DAO.Recordset2
Dim fldAttach As DAO.Field2
Set db = CurrentDb
Set rst = db.OpenRecordset("tabFiler")
rst.AddNew
Set rstChld = rst.Fields("Fil").Value
rstChld.AddNew
Set fldAttach = rstChld.Fields("FileData")
fldAttach.LoadFromFile Fil
rstChld.Update
rstChld.Close
rst.Update
rst.Close
Jeg vil imidlertid gerne have fat i filen igen i forbindelse med afsendelse af e-mails fra databasen. Hertil benytter jeg følgende kode:
Set oLook = CreateObject("Outlook.Application")
Set oMail = oLook.createitem(0)
Set rsf = CurrentDb.OpenRecordset("SELECT * FROM tabFiler" + " WHERE " + "Nr=" + CStr(600))
Fil = rsd!Fil
With oMail
.To = Til
.body = Tekst
.Subject = Emne
.Attachments.Add (Fil)
.Send
End With
Jeg har derfor brug for at få fat i filen igen i sætningen .Attachments.Add (Fil)
mvh