ado如何对数据库中的图片操作？

Question

'....略去记录集打开过程
'图片文件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)
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 1

'上例数据库为SQL Server，如果是ACCESS则修改相应下句：
Chunk() = ajpic("图片内容").GetChunk(0, ajpic("图片内容").FieldSize)
注：上例 End If 位置错了。

Answer 2

http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=19363