如何在VB的image控件中显示ACCESS的图片图片中ACCESS中的图片如何得到的
我看过很多书中介绍ACCESS中的图片是“包”，不能在VB的image控件中显示
现在在做毕业设计，有例子，那种二进制的图片可以显示
好心人能帮帮吗，谢谢拉

Private Sub Command1_Click()
CommonDialog1.Filter = "(jpg文件).jpg|*.jpg" '选择要读入的图片
CommonDialog1.ShowOpen
Dim str As New ADODB.Stream
Dim sql As String
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
str.Type = adTypeBinary
str.Open
str.LoadFromFile CommonDialog1.FileName
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Persist Security Info=false;Data source=" & App.Path + "\pic.mdb"
rs.Open "select pic from info", conn, 1, 3
rs.AddNew
rs("pic") = str.Read '将图片读入到数据库
rs.Update
rs.Close
conn.Close
str.Close
End Sub
Private Sub Command2_Click() '显示图片按钮
Dim str As New ADODB.Stream
Dim sql As String
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Persist Security Info=false;Data source=" & App.Path + "\pic.mdb"
rs.Open "select pic from info", conn, 1, 1
rs.MoveLast
str.Mode = adModeReadWrite
str.Type = adTypeBinary
str.Open
str.Write rs("pic")
str.SaveToFile App.Path + "\test.jpg", adSaveCreateOverWrite '运行时会自动在目录下创立一个test.jpg空图片来存放要显示的图片
Image1.Picture = LoadPicture(App.Path + "\test.jpg")
End Sub

Private Sub ShowPhoto(rf As ADODB.Field)
Dim Chunk() As Byte
Const ChunkSize As Integer = 2384
Dim DataFile As Integer, Chunks, Fragment As Integer
Dim MediaTemp As String
Dim lngOffset, lngTotalSize As Long
Dim i As Integer
MediaTemp = App.Path & "\picturetemp.tmp"
DataFile = 1
Open MediaTemp For Binary Access Write As DataFile
lngTotalSize = rf.ActualSize
Chunks = lngTotalSize \ ChunkSize
Fragment = lngTotalSize Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = rf.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Chunk(ChunkSize)
Chunk() = rf.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
Picture1.Picture = LoadPicture(MediaTemp)
Kill MediaTemp
End Sub

If Not IsNull(rst.Fields("照片")) Then
ShowPhoto rst.Fields("照片")
Else
Picture1.Picture = LoadPicture("")
End If

心中有剑的做法是不可行的

设置一下数据库字段的类型为ole类型