在ＶＢ中要怎么调用数据库中的图片啊

Question

在ＶＢ中要怎么调用数据库中的图片啊

Answer 1

'....略去记录集打开过程
'图片文件t.jpg存入数据库Img字段
Dim bit() As Byte, fn As Byte, Chunk() As Byte
fn = FreeFile()
Open ("c:\t.jpg") For Binary As fn
ReDim bit(LOF(1)) As Byte
Get fn, 1, bit
Close fn
Rs("Img").AppendChunk bit
Rs.Update
'....
'取出图片,形成文件t.jpg
If Not IsNull(Rs("Img")) Then
    'Chunk() = Rs("Img").GetChunk(Rs("Img").ActualSize)  'SQL Server
    Chunk() = Rs("Img").GetChunk(0,Rs("Img").FieldSize)  'Access 
End If
If Dir("c:\t.jpg") <> "" Then Kill "c:\t.jpg"
fn = FreeFile
Open "c:\t.jpg" For Binary Access Write As fn
Put fn, , Chunk()
Close fn
'....

Answer 2

我还是有点不明白
我是想用ＯＬＥ控件，随机读出access中一个字段中的图片

Answer 3

Set imgPhoto.DataSource = rs
imgPhoto.DataField = rs.Fields("相片").NameimgPhoto是Image控件

Answer 4

'取出图片,形成文件t.jpg后
richtextbox1.OLEOBJECTS.ADD ,,"c:\t.jpg"

Answer 5

或者
Clipboard.SetData LoadPicture("c:\t.jpg") 
RichTextBox1.SetFocus 
SendKeys "^v", True 将图片粘贴到光标所在的位置

Answer 6

用Microsoft DataRepeater Control 6.0(OLE DB))试一试