完全参照百度给的代码的，为什么还错
在access里面的photo的属性是ole
Sub ReadFile()
Dim Stm As New ADODB.Stream
Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCnn As String
Dim detail As String
FrmQuery.DataGrid1.Col = 1
detail = FrmQuery.DataGrid1.Text
Set rs = New ADODB.Recordset

strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & _
App.Path & "\GROUP1.mdb"
Cnn.Open strCnn
rs.Open " select Photo from StdInfo where Name = '" & detail & "'", Cnn, adOpenKeyset, adLockReadOnly
'保存到文件
Set Stm = New ADODB.Stream
With Stm
  .Mode = adModeReadWrite
  .Type = adTypeBinary
  .Open
  .Write rs("Photo")
  .SaveToFile App.Path + "\PhotoTemp.jpg"
End With
'显示图片
Picture1.Picture = LoadPicture(App.Path + "\PhotoTemp.jpg")
rs.Close
Stm.Close
Set rs = Nothing
Set Cnn = Nothing
Set Stm = Nothing
End Sub

[[italic] 本帖最后由 henshai 于 2007-12-1 13:19 编辑 [/italic]]

自己顶

支持一下

谁来帮帮我

Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCnn As String
Dim detail As String
Set rs = New ADODB.Recordset
Dim bit() As Byte

strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & _
App.Path & "\GROUP1.mdb"
Cnn.Open strCnn
rs.Open " select Photo from StdInfo where Name = '" & detail & "'", Cnn, adOpenKeyset, adLockReadOnly
'保存到文件
If rs.RecordCount > 0 Then
   mfile = App.Path + "\PhotoTemp.jpg"
   bit() = "" & rs.Fields("Photo")
   Open mfile For Binary As #1
   Put #1, , bit()
   Close #1

'显示图片
Picture1.Picture = LoadPicture(App.Path + "\PhotoTemp.jpg")
End If
rs.Close
Set rs = Nothing
Set Cnn = Nothing

大虾，没有报错，也没有显示啊
没有生成phototemp.jpg文件，怎么读出来啊？
谢谢

Sub ReadFile()
Dim Stm As New ADODB.Stream
Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCnn As String
Dim detail As String
FrmQuery.DataGrid1.Col = 1
detail = FrmQuery.DataGrid1.Text
Set rs = New ADODB.Recordset

strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & _
App.Path & "\GROUP1.mdb"
Cnn.Open strCnn
rs.cursorlocation=aduseclient
rs.Open " select Photo from StdInfo where Name = '" & detail & "'", Cnn, adOpenKeyset, adLockReadOnly
msgbox "共有" & rs.recordcount & "条记录"
'保存到文件
Set Stm = New ADODB.Stream
With Stm
  .Mode = adModeReadWrite
  .Type = adTypeBinary
  .Open
  .Write rs("Photo")
  .SaveToFile App.Path + "\PhotoTemp.jpg"
End With
'显示图片
Stm.Close
Picture1.Picture = LoadPicture(App.Path + "\PhotoTemp.jpg")
rs.Close
Set rs = Nothing
Set Cnn = Nothing
Set Stm = Nothing
End Sub

共一条记录，还是 ‘481’无效图片

你的Photo是怎么添加进去的?.
打开Access的时候..photo字段是否显示长二进制格式?..

生成了phototemp了，但是直接双击打开，什么也没有
但是文件大小却是2m