【源码示例】“从前有座山，山里有座庙……”——浅谈Access附件的上传与下载

tmtony

zpy2 回复的内容

Sub addAttachToImageStore()
  
  Dim dbs As DAO.Database
  Dim strSql As String
  Dim strTblName As String
  Dim strFieldName As String
  Dim rs As DAO.Recordset
  Dim rs2 As DAO.Recordset
  'Set dbs = CurrentDb
  'strTblName = "tblStudents"
  strTblName = "ImageStore"
  strSql = "select * from " & strTblName
  Set rs = CurrentDb.OpenRecordset(strSql)
  'rs.Edit
  rs.AddNew
  rs(0) = 10
  rs(1) = 1
  rs(2) = 5
  rs(3) = "c:\testpath\img1.gif"
  ' Add a new attachment.
  Set rs2 = rs.Fields("image_pic").Value
  rs2.AddNew
  rs2.Fields("FileData").LoadFromFile "c:\testpath\img1.gif"    '"c:\ggg\altBackGrd.gif"
  rs2.Update
  rs2.Close
  
  rs.Update
  rs.Close
  Set rs2 = Nothing
  Set rs = Nothing
End Sub