我从一个Access表的读取一个图片,却发现要在Picture控件上显示出现
"Invaild Picture"错误
查看原图片和读取后暂存的图片,大小都不一样
不知道什么缘故?
下面是我的代码:
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stream As ADODB.streamSet db = New ADODB.Connection
db.CursorLocation = adUseClient
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\My Documents\Reinhard\VB\db1.mdb;"
db.OpenSet rs = New ADODB.Recordsetrs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "temp", db, adCmdTable
Set stream = New ADODB.stream
stream.Mode = adModeReadWrite
stream.Type = adTypeBinary
stream.Open
stream.Write (rs.Fields.Item(3).Value)
   
stream.SaveToFile "g:\aa.bmp", adSaveCreateOverWrite
           Picture1.Picture = LoadPicture("g:\aa.bmp")‘出现Invaild Picture error