1）access中的是图片的路径，这时直接用image控件的loadpicture方法
2）access中的图片是二进制数据。
要是第二种情况，我们使用一下方法。
1.首先从数据库中读取二进制数据并且保存到一个数组里。
2.把二进制数据写到磁盘上，因此生成一个图片。
3.利用这个图片的地址来现实图片。
详细代码是一下（请应用microsoft activeX dataobjects 2.7 对象）
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打开表
Set iRe = New ADODB.Recordset
‘得到最新添加的纪录
iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path & "\test1.jpg"
End With
Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
'关闭对象
iRe.Close
iStm.Close本回答被提问者采纳
怎样用vb 的image控件读取ACCESS中以二进制保存的图片
msRS.Type = adTypeBinary ' msRS 是图片存储、读取记录集对象(msRS As New ADODB.Stream)msRS.Open msRS.Write RS!图片 msRS.SaveToFile App.Path & "\\A.gif", adSaveCreateOverWrite 'A.gif是图片临时存储文件，在程序根目录必须有这个文件 Image1.Picture = LoadPicture(App.Path & "\\A...
vb6.0 怎样用image控件读取ACCESS中以二进制保存的图片
Do While Not RS.EOF '第二步，读出长二进制数据即图片数据，把它转换成图片文件，操作过程如下 MediaTemp = dbPath + "img\\" + List1.List(i) + "\\" + RS.Fields DataFile = 1 Open MediaTemp For Binary Access Write As DataFile lngTotalSize = RS!PIC.ActualSize Chunks = lngTotalSize...
怎么样在VB中将ACCESS数据库中的OLE图片用PICTURE控件或者IMAGE控件显...
建个ASP文件 ...打开数据库 set rec=server.createobject("ADODB.recordset")...myimagedata=rec("pic").getChunk(7500000)Response.ContentType = "image\/*"Response.BinaryWrite myimagedata ...rec.close set rec=nothing set connGraph=nothing ...=== PICTURE 的路径设为这个ASP文件!
access中存的是图片的路径,怎么在vb中显示图片,
用image控件,在按钮按下时改变image控件的picture属性就可以了.代码就免了吧,如果不会写可以看帮助.
如何vb.net2010中实现PictureBox动态从Access读取图片
解决了 Dim pic() As Byte = CType(tbl.Rows(0).Item("img1"), Byte())Dim mem As New MemoryStream(pic, &H9A, pic.Length - &H9A)pic1.Image = Image.FromStream(mem)
vb里怎么调用access里的OLE对象(如图片)
以下以ADODC1为例)在窗体上添加一个Image控件，把它的DataSource设置为ADODC1，选择它的DataField属性为表中带有图片的字段，如：Photo1，设置它的Stretch为True 一切大功告成，运行，在DataGrid中点选已经存有图片的记录的时候，会在Image的部位显示字段Photo1中存储的图片了 ...
VB中,关于ACCESS数据库中加入图片及在窗体上显示图片
用二进制存储。用get函数获取图片的二进制信息并保存。用ADODB.Stream对象从数据库读取数据并保存为图片文件。并在image控件加载显示。
vb2010 picturebox控件加载access数据库中的ole图片问题
) Public img As Byte() '图片处理用的字节数组 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim filepath As String = "" Dim opg As New OpenFileDialog opg.Filter = "图像文件|*.jpg;*.gif;*.bmp...
怎么从Access中读取图片赋给一个Image类型变量?
前提是图片是如何在ACCESS踢保存的 下面是我的一个程序中用到的给窗体中 CON控件（一个PICTURE控件）写图片数据用于显示的例子 一样 不过我不是太会写C的语句 主要就是用 ADODB对象中的Recordset对象的Fields集合的GetChunk方法取数据。长度 rs.Fields("FileData").GetChunk(rs.Fields("FileData")....
VB 怎么把相片存放到ACCESS数据库里面,还可以取出来?
Open CommonDialog1.FileName For Binary As #1 '以二进制读方式打开源文件 Image1.Picture = LoadPicture(CommonDialog1.FileName)fl = LOF(1) '获得文件长度 ReDim strb(fl) '从文件中读取内容并 Get #1, , strb ' 读到内存块中 Adodc1.Recordset.Fields("照片").AppendChunk strb 要用...
