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

Question

以二进制方式把图片存进数据库里,必要的时候通过一个Picturebox控件显示数据库里的图片,请教!

Answer 1

再问StatusBar控件的具体使用方法!

Answer 2

http://www.china-askpro.com/msg1/qa28.shtml

Answer 3

'SQL SERVER
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195751

Answer 4

http://www.yesky.com/20010705/188008.shtml
http://vip.6to23.com/basicfan/vbdev/datapic.html

Answer 5

我的意思是,当我查询到这个人名字之后,就在Picturebox控件显示这个人的相片

Answer 6

按着上面给出的链接,将数据库的图片写到临时的图片中,然后用Picture去LoadPicture它.

Answer 7

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=195751你仔细看看,这个代码说得很全面了.

Answer 8

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把上面的查询语句与连接改一下就可以了
我的连接是全局的

Answer 9

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.StreamPrivate 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