VBA ACCESS 첨부파일 다운로드

Question

안녕하세요. accdb에 파일을 첨부할 수 있더라구요. 업로드까지 완성했는데 첨부된 파일을 다운로드해서 특정 폴더에 저장하려니 모르겠더라구요.. 선생님분들께 도와주시면 감사하겠습니다. 등록코드Sub upload_file() Dim db As DAO.database Dim ws As DAO.Workspace Dim rst As DAO.Recordset Dim attachFld As DAO.Recordset Set ws &#61; DBEngine.Workspaces(0) Set db &#61; ws.OpenDatabase(&#34;DB경로&#34;, False, False, &#34;MS Access;PWD&#61;&#34;) Set rst &#61; db.OpenRecordset(&#34;SELECT * FROM test;&#34;, dbOpenDynaset) rst.AddNew 'rst.Title &#61; &#34;Title from Exel &#34; & Now() Set attachFld &#61; rst.Fields(&#34;Attachements&#34;).Value attachFld.AddNew attachFld.Fields(&#34;FileData&#34;).LoadFromFile &#34;저장파일경로&#34; attachFld.Update rst.Update rst.Close db.Close ws.Close Set rst &#61; Nothing Set attachFld &#61; Nothing Set db &#61; Nothing Set ws &#61; Nothing End Sub

VBA ACCESS 첨부파일 다운로드

0개의 답변

#access 목록