关于VB 6 怎样读取Access数据库中的图片（ole类型数据）和调用chn帮助文件

Question

是用在员工信息的头像来的，还有怎么调用自己制作的chm帮助文件啊
选择图片按钮的代码 用的Picturebox 、Commandbutton 、CommonDialog控件

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
窗口代码在这里 http://topic.csdn.net/u/20090423/10/D6555CEB-E5E3-4F7B-A638-5ECF0D83086D.html

Answer 1

给你个示例,下面是读取数据库中的二进制数据,并存放到指定的地方的,读取图片的,应该差不多
strSQL = "select * From CodeFile where CodeID=" & ID
Rs.Open strSQL, Conn, 1, 3
While Not Rs.EOF
FileName = Rs("FileName").Value
Str = Rs("FileContent").GetChunk(Rs("FileContent").ActualSize)
Call SaveFile(Str, App.Path & "\Tmp\" & FileName)
Rs.MoveNext
Wend

'下面是SaveFile的过程

Public Sub SaveFile(Str, fName)
Dim objstream As New ADODB.Stream
'--------------建立ADODB.Stream对象，必须要ADO 2.5以上版本---------
objstream.Type = 1
'-------------以二进制模式打开-------------------------------------
objstream.Open
'--------------------将字符串内容写入缓冲--------------------------
objstream.Write Str
'--------------------将缓冲的内容写入文件--------------------------
objstream.SaveToFile fName, 1
objstream.Close
Set objstream = Nothing
'-----------------------关闭对象，释放资源-------------------------
End Sub