急!!VB中怎样实现显示Access中OLE类型的图片文件

gang75vb 2003-09-29 10:37:50
谢谢!
...全文
43 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
jingqiang2008 2003-09-29
  • 打赏
  • 举报
回复
http://expert.csdn.net/Expert/topic/1789/1789659.xml?temp=.7613184
jingqiang2008 2003-09-29
  • 打赏
  • 举报
回复
在数据库一栏中搜索:图片
可以找到以前很多帖子。
现在人多速度可能人多速度慢啊
liuxum 2003-09-29
  • 打赏
  • 举报
回复
Public Sub ShowPic()
On Error Resume Next
Open "pictemp" For Binary Access Write As lngDataFile
lngLengh = rsImage!picImage.ActualSize
intChunks = lngLengh \ ChunkSize
intFragment = lngLengh Mod ChunkSize
ReDim Chunk(intFragment)
Chunk() = rsImage!picImage.GetChunk(intFragment)
Put lngDataFile, , Chunk()
For I = 1 To intChunks
ReDim Buffer(ChunkSize)
Chunk() = rsImage!picImage.GetChunk(ChunkSize)

Put lngDataFile, , Chunk()
Next I
Close lngDataFile
FileName = "pictemp"
Picture1.Picture = LoadPicture(FileName)
End Sub

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧