用一个字段保存多个图片或文件路径

有时我们表中的一个产品记录,可能没有图片,也可能有一个或多个图片,怎么保存这些信息呢?难道用10个或更多的字段来保存,但大多数行它们都是空的呀,怎么办?

利用Windows下文件名中不能用的非法字符,Url中不能用的非法字符,在数据库中用一个字段中保存全部图片路径。

(1)、Windows下文件名非法字符:

(2)、Url中不能用的字符:

  1. '
  2. <
  3. >
  4. %
  5. &
  6. (
  7. )
  8. ;
  9. +
  10. -
  11. [
  12. ]
  13. {
  14. }
在 Access VBA 中,如果你的数据库一个包含多个附件的字段,通常这样的字段储的是每个记录关联的一组二进制数据,而不是实际的文件路径。使用 ADO (ActiveX Data Objects) 直接访问这样的字段并提取单个文件并不直接支持,因为数据库本身并未提供这样的功能。 但是,你可以通过一些间接的方式来实现这个需求。首先,你需要保存这些附件到临时文件夹,然后才能打开它们。以下是一个基本的示例: 1. **将附件保存到临时文件**: ```vba Dim db As DAO.Database Dim rs As DAO.Recordset Dim attachment As Byte() Dim fileName As String Dim tempFolder As String Set db = CurrentDb tempFolder = "C:\Temp\" ' 设置你的临时文件夹 Set rs = db.OpenRecordset("SELECT AttachmentData FROM YourAttachmentTable WHERE SomeCondition") ' 替换条件 While Not rs.EOF fileName = "TempFile_" & Format(rs!Row, "0000") & ".tmp" Open tempFolder & fileName For Binary As #1 Put #1, , rs!AttachmentData ' 将附件数据写入文件 Close #1 rs.MoveNext Wend rs.Close Set rs = Nothing Set db = Nothing ``` 2. **读取临时文件并展示**: ```vba Sub DisplayFile() Dim fileToOpen As Integer Set fileToOpen = FreeFile() ' 打开一个临时文件以便读取 Open tempFolder & "TempFile_0001.tmp" For Input As #fileToOpen ' 示例文件名,替换为你刚才生成的实际文件名 ' 现在可以使用如Word、Excel等应用程序的OpenObject方法打开文件,比如: ' Word.Application.Documents.Add ' ActiveDocument.Content.Text = LineInput(fileToOpen) Close #fileToOpen End Sub ``` 请注意,这只是一个基础示例,实际应用中可能需要根据你选择的程序库和文件类型进行适当的调整。
评论 2
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值