菜鸟求助,如何将图片放入数据库(access)?

Question

各位大哥 : 
       
       小第最近刚学到VB的数据库这块请问如何将图片放入数据库(access)中.
       编写一个  [添加] 按钮,点击就会自动写入. 
       [由于小第还属于菜鸟级别请各位大哥写的详细点, 多谢了!<score :30>]

Answer 1

将图片写入数据库并显示
http://www.dapha.net/down/list.asp?id=1826

Answer 2

通过BLOBO，OLE方式，代码如下：
Public Sub WriteBLOB(SrcFile As String, rs As ADODB.Recordset)Dim I As Integer, chunks As Integer, fragment As Long, fl As Long
Const ChunkSize As Long = 16384
Dim chunk() As Byte
   Open SrcFile For Binary Access Read As #1
   fl = LOF(1)
   fragment = fl Mod ChunkSize
   chunks = fl \ ChunkSize
   rs(Fld).AppendChunk chunk  '用空值替代原有数据
   If fragment > 0 Then
      ReDim chunk(fragment - 1) As Byte
      Get #1, , chunk
      rs(Fld).AppendChunk chunk
   End If
   ReDim chunk(ChunkSize - 1) As Byte
   For I = 1 To chunks
      Get #1, , chunk
      rs(Fld).AppendChunk chunk
   Next I
   Close #1
End Sub