到现在还没有整不出个从SQL2005数据库显示图片的问题,.Write mrc2.Fields("imgae1").Value 提示类型不
在读取显示时 文件流 mst.Write mrc2.Fields("imgae1").Value 报错 参数类型不正确,或不在可以接受的范围内 或与其他参数冲突 实时错误 3001存储没有问题,OK
Set cn = New Connection
Set mrc2 = New Recordset
strCn = "Provider=sqloledb;server=.;Database=sxcpmc;Uid=sa;Pwd=;"
cn.Open strCn
mrc2.Open "select * from gongdan", cn, adOpenKeyset, adLockOptimistic
mrc2.AddNew
mrc2.Fields("gongdah").Value = Trim(Text1(0).Text) '产品名称
Set mst = New ADODB.Stream
mst.Type = adTypeBinary
mst.Open
mst.LoadFromFile (wname)
mrc2.Fields("imgae1").Value = mst.Read
Set mst = Nothing '马上释放掉这个变量体加快运行速度
mrc2.Update
但读出来显示 就总是报错 说类型不对。
Set cn = New Connection '不事先声明一个新连接和新的记录集,会在cn.Open strCn 报错 和mrc2.Open "报错
Set mrc2 = New Recordset
strCn = "Provider=sqloledb;server=.;Database=sxcpmc;Uid=sa;Pwd=;"
cn.Open strCn
mrc2.Open "select imgae1 from gongdan", cn, adOpenKeyset, adLockOptimistic
Set mst = New ADODB.Stream
pict = "c:\temp.tmp" '临时文件,用来保存读出的图片
With mst
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Position = 0
.Write mrc2.Fields("imgae1").Value '写入数据库中的数据至Stream中
.SaveToFile pict, adSaveCreateOverWrite '将Stream中数据写入临时文件中
.Close
End With
Picture1.Picture = LoadPicture(pict) '用Picture控件显示图像
Kill pict
Set cn = Nothing '以后导入图片使用
Set mrc2 = Nothing
我错在哪里??高手出手帮忙解决,谢谢!