Question

在MS Access中，我希望能够在系统上搜索图像或图像，然后将它们保存到链接到SQL服务器的表中的OLE字段中。

在表单中预览也是理想的。

这似乎是一项简单的任务，但说实话，我已经放弃了数小时的搜索。因为我将图像作为Varbinary（MAX）存储在SQL数据库中，所以没有我不想只存储图像的链接。

Answer 1

设置图像字段后，我将其附加到按钮：

Private Sub CommandOpenPicture_Click()
     Dim strFilter As String
     Dim strInputFileName As String

     strFilter = ahtAddFilterItem(strFilter, "JPEG Files (*.jpg, *.jpeg)", "*.jpg;*.jpeg")
     strFilter = ahtAddFilterItem(strFilter, "bmp Files (*.bmp)", "*.bmp")
     strFilter = ahtAddFilterItem(strFilter, "all Files (*.*)", "*.*")

     strInputFileName = ahtCommonFileOpenSave( _
                             Filter:=strFilter, _
                             OpenFile:=True, _
                             DialogTitle:="Choose an image file...", _
                             Flags:=ahtOFN_HIDEREADONLY)

     If Len(strInputFileName) > 0 Then
         ' Do something with the selected file
        imgDamPic.Picture = strInputFileName
        Me.DamsPhoto.Value = imgDamPic.Picture
        file_path.Value = strInputFileName
                'Put SQL Insert Statement or DAO here

      Else
         'No file chosen, or user canceled
      End If
End Sub

MS Access导入图像到表中

1 个答案: