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

最新推荐文章于 2024-12-15 22:04:00 发布

newnazi

最新推荐文章于 2024-12-15 22:04:00 发布

阅读量1k

点赞数

分类专栏：代码文章标签： webform 图片数据库

代码专栏收录该内容

123 篇文章

订阅专栏

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