图片从数据库中读取

Question

代码如下:   
Rs1.Open "Select * from BoilerBasicInfo where EnNo = '" & EnNo & "' and id='" & id & "'", cnn, adOpenKeyset, adLockOptimistic
  Set mstream = New ADODB.Stream
  mstream.type = adTypeBinary
  mstream.Open
  mstream.Write Rs1.Fields("LocationPic").Value
  mstream.SaveToFile "c:\tmp.bmp", adSaveCreateOverWrite
  Set mstream = Nothing
  Image1.Picture = LoadPicture("c:\tmp.bmp")
我从数据库中读取图片时发现不同记录的图片是一样的,(实际在数据库里是不一样的,这个可以肯定),打开程序后第一次点击无论哪条记录可以正确提取,但第二次点击其它记录时还是显示第一次点击时记录的图片,我怀疑是内存没有及时释放,导致还是用的第一次点击时的,哪位帮忙给看看原因,释放内存的话怎么释放?谢谢了

Answer 1

在前面加上If Dir$(FileName) <> "" Then Kill FileName试一试

Answer 2

楼上的兄弟说的是把FileName替换成"c:\tmp.bmp"然后KILL一下吧?还是怎么整?试了下,不行.

Answer 3

如果只想做简单的演示功能就不如直接绑定imagebox吧，一句代码都不用写。