Access数据库中，图片一般保存在外部文件夹内。数据库读取其路径显示。这样做的目的是为了防止数据库过度添加图片，导致数据库膨胀，影响效率。下面我们介绍一下如果添加图片。

前面我们已经做过如何示例来显示图片，这里不再详细说明。如下链接

http://www.office-cn.net/thread-118136-1-1.html

如下图所示：程序可以添加图片和删除图片，当图片存在的时候，可以提示是否覆盖修改图片。

详细源码：

判断图片是否存在函数：

Public Function FileExistCheck(ByVal strFileName As String) As Integer

''测试路径是否有效

'这段代码更好

'返回０代表文件或路径不存在

'返回１代表该文件存在

'返回２代表该文件夹存在

    Dim intAttr As Integer

    On Error GoTo Err:

    FileExistCheck = 0

    If Len(strFileName) > 0 Then

        intAttr = GetAttr(strFileName)

        If (intAttr And vbDirectory) Then

            FileExistCheck = 2      '

        Else

            FileExistCheck = 1      '

        End If

    End If

    Exit Function

Err:

End Function

函数调用：

Private Sub Command32_Click()

On Error GoTo Err:

    Dim PhotoPath As String

    Dim TempPath As String

    PhotoPath = dlgGetFile(, , , , , "查找员工相片")

    If PhotoPath = "" Then Exit Sub

    TempPath = CurrentProject.path & "\" & Me.ITEM_DESC & ".jpg"

    If FileExistCheck(TempPath) = 1 Then

        If MsgBox("系统已存在该图片,是否要替换?", vbQuestion + vbYesNo) = vbNo Then Exit Sub

        Kill TempPath

    End If

    FileCopy PhotoPath, TempPath

    Me.ImageFrame.Picture = TempPath

Err:

   Debug.Print Err.Description

   Exit Sub

End Sub

Private Sub Command33_Click()

    Dim TempPath As String

    TempPath = CurrentProject.path & "\" & Me.ITEM_DESC & ".jpg"

    If FileExistCheck(TempPath) = 1 Then

        If MsgBox("确认要删除该图片,删除后无法恢复?", vbQuestion + vbYesNo) = vbNo Then Exit Sub

        Kill TempPath

        Me.ImageFrame.Picture = ""

    End If

End Sub

Private Sub Form_Current()

    Dim PhotoPath As String

    PhotoPath = CurrentProject.path & "\" & Me.ITEM_DESC & ".jpg"

    If FileExistCheck(PhotoPath) = 1 Then

       Me.ImageFrame.Picture = PhotoPath

       Else

       Me.ImageFrame.Picture = ""

    End If

End Sub