如何直接浏览sql2000数据库里面的二进制图片
如题:我把图片保存到sqlserver2000里面了,现在我是通过把二进制写进一个临时文件,在预览,我不想用这种方式,直接看行不行

[解决办法]
同问
[解决办法]
用PropertyBag

VB code

Private Sub Command1_Click()    '新增图片    Dim Bag As PropertyBag    Dim buff() As Byte    Dim cn As ADODB.Connection    Dim rs As ADODB.Recordset        Set Bag = New PropertyBag    Bag.WriteProperty "Image", Picture1.Image    ReDim buff(LenB(Bag.Contents))    buff = Bag.Contents        'cn 连接数据库略...    Set rs = New ADODB.Recordset    rs.Open "select img from tb_image where 1=0", _        cn, adOpenKeyset, adLockOptimistic    rs.AddNew    rs.Fields("img") = buff    rs.Update        Set rs = Nothing    Set cn = Nothing    Set Bag = Nothing        MsgBox "OK"End SubPrivate Sub Command2_Click()    '读出图片    Dim cn As ADODB.Connection    Dim rs As ADODB.Recordset    Dim Bag As PropertyBag    Dim buff() As Byte        'cn 连接数据库略...    Set rs = New ADODB.Recordset    rs.Open "Select * From tb_image", _        cn, adOpenKeyset, adLockOptimistic        if Not rs.EOF then        buff = rs.Fields("Img").Value        Set Bag = New PropertyBag        Bag.Contents = buff        Call Bag.WriteProperty("Image", buff)        Set Picture1.Picture = Bag.ReadProperty("Image")        Set Bag = Nothing    end if    End Sub