我从一个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
"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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货