VBA编程在ACCESS数据库中存取图片文件.txt

Option Compare Database
Dim PicPath As Variant
Dim sPath As String

Private Sub Cmd14_Click()
'读取数据库图片并显示与“原图片”框中
Dim iStm As ADODB.Stream
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write Me.Recordset("图片")
.SaveToFile sPath & "\test1.jpg", adSaveCreateOverWrite
End With
Image6.Picture = sPath & "\test1.jpg"
iStm.Close
End Sub

Private Sub cmd7_Click()
On Error Resume Next
'调出文件对话框选择图片文件
Dim fd As FileDialog
Dim vSelectedItem As Variant
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Add "所有图片文件", "*.jpg;*.jpeg;*.bmp;*.tif;*.gif;*.ico;*.cur", 1
.Filters.Add "所有文件", "*.*", 2
If .Show = -1 Then
For Each vSelectedItem In .SelectedItems