如何删除存储在 access (.accdb) 中的图像?
How to remove images stored in access (.accdb)?
我试图将访问数据库的大小保持在最低限度,并且需要删除几个以前使用但现在不需要的大图像。我的理解是访问文件 (.accdb) 将图像存储在数据库中。你知道是否可以删除它以及如何删除它? TIA
说明和解决方案:我有几个不同的表单和不同的背景图片,但此时我已经弄明白了(对于 Access 2013)-> 在表单设计工具下 -> 设计 -> 插入图片,然后右键单击在您需要删除的图像上,然后单击删除。完毕。
为了方便其他人查找此答案,下面是 Microsoft Access 2010 中的屏幕截图:
如果您想完全删除数据库中的所有共享图片,或者名称与特定模式匹配的图片,您可以这样做:
Sub PurgeSharedImages(Optional strPattern As String = "*")
Dim i As Integer
For i = CurrentProject.Resources.Count - 1 To 0 Step -1
If CurrentProject.Resources(i).Type = 1 And CurrentProject.Resources(i).Name Like strPattern Then
CurrentProject.Resources(i).Delete
End If
Next i
End Sub
我试图将访问数据库的大小保持在最低限度,并且需要删除几个以前使用但现在不需要的大图像。我的理解是访问文件 (.accdb) 将图像存储在数据库中。你知道是否可以删除它以及如何删除它? TIA
说明和解决方案:我有几个不同的表单和不同的背景图片,但此时我已经弄明白了(对于 Access 2013)-> 在表单设计工具下 -> 设计 -> 插入图片,然后右键单击在您需要删除的图像上,然后单击删除。完毕。
为了方便其他人查找此答案,下面是 Microsoft Access 2010 中的屏幕截图:
如果您想完全删除数据库中的所有共享图片,或者名称与特定模式匹配的图片,您可以这样做:
Sub PurgeSharedImages(Optional strPattern As String = "*")
Dim i As Integer
For i = CurrentProject.Resources.Count - 1 To 0 Step -1
If CurrentProject.Resources(i).Type = 1 And CurrentProject.Resources(i).Name Like strPattern Then
CurrentProject.Resources(i).Delete
End If
Next i
End Sub