Question

VB 6 中 怎么读取Access数据库中的图片(数据类型OLE）

用的是Picturebox 、CommonDialog CcmmandButton控件
CcmmandButton的代码
Private Sub cmdSelectPhoto_Click()
On Error GoTo errHandler:
Dim mstrFileName As String
dlgSelect.DialogTitle = "选择该员工的照片"
dlgSelect.Filter = "所有图形文件|*.bmp;*.dib;*.gif;*.jpg;*.ico|位图文件(*.bmp;*.dib)|*.bmp;*.dib|GIF文件(*.gif)|*.gif|JPEG文件(*.jpg)|*.jpg|图标文件(*.ico)|*.ico"
dlgSelect.ShowOpen
If dlgSelect.FileName = "" Then Exit Sub
imgPhoto.Picture = LoadPicture(dlgSelect.FileName)
mstrFileName = dlgSelect.FileName
Exit Sub
errHandler:
MsgBox Err.Description, vbCritical, "错误"
End Sub

Answer 1

把那个IMAGE控件的属性直接射应到那个 ACCESS控件 就自然出来了

Answer 2

o