B6在Picturebox显示数据库里的二进制的图片

Dim rstRecordset As ADODB.Recordset
    Dim mstream As ADODB.Stream

    Set rstRecordset = New ADODB.Recordset
    rstRecordset.Open "Select * from EmployeeInfo where 员工编号='" & g_strEmployeeID & "'", g_conConnection, adOpenKeyset, adLockOptimistic
    
    If Not IsNull(rstRecordset.Fields("照片")) Then
    
        Set mstream = New ADODB.Stream
        mstream.Type = adTypeBinary
        mstream.Open
        mstream.Write rstRecordset.Fields("照片").Value
        mstream.SaveToFile App.Path & "\Photo\Photo.gif", adSaveCreateOverWrite
        
        rstRecordset.Close
        mstream.Close

        picPhoto.Picture = LoadPicture(App.Path & "\Photo\Photo.gif")
    End If

把上面的查询语句与连接改一下就可以了
我的连接是全局的

'''''下面是另一个代码

 

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

Private Sub Form_Load()
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;"
    MsgBox cn.ConnectionString
    Set rs = New ADODB.Recordset
    rs.Open "Select * from bmp表", cn, adOpenKeyset, adLockOptimistic
   
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.LoadFromFile App.Path + "\test.bmp"
    rs.AddNew
    rs.Fields("bmp").Value = mstream.Read
    rs.Update
    rs.Close
    cn.Close
   
    'Set mstream = New ADODB.Stream
    'mstream.Type = adTypeBinary
    'mstream.Open
    'mstream.Position = 0
    'mstream.Write rs.Fields("bmp").Value
    'mstream.SaveToFile "d:\copy of test.bmp", adSaveCreateOverWrite
    'rs.Close
    'cn.Close
End Sub