Dim fl As Single
fl = adors("Photo").ActualSize
ReDim sz(fl - 1) As Byte
sz() = adors("Photo").GetChunk(fl)
Open "C:\tmp.jpg" For Binary As 128
Put 128, , sz()
Close 128本回答被网友采纳
dim pic as string
pic=ado.fields("photo_path")
Set Picture1.Picture = LoadPicture(pic)
end sub
VB中显示数据库的OLE 对象(图片)
先读出来(用ado的stream对象或者用比较古老的getchunk方法),对于图片文件一般先保存为临时文件(对于文本则不用,不过可能需要转换为unicode字串),然后在控件上显示即可
vb里怎么调用access里的OLE对象(如图片)
用图片的话可以不用代码就实现的，在窗体上添加一个ADODC，设置好它的ConnectionString连接到你的数据库，然后把DataSource属性设置为一个读数据表的SQL，如：select * from person 在窗体上添加一个DataGrid，把它的DataSource设置为刚刚建立的ADODC(以下以ADODC1为例)在窗体上添加一个Image控件，把它的...
VB Access数据库OLE字段图片读取转存问题
我有个建议啊，楼主可以考虑一下，做个文件夹，放VB程序相对路径里面，存储相同格式的图片文件，作为一个图象引擎，后面你要做的事就简单多了，发布你的程序的时候就把VB程序和文件夹一起打包发布：直接在窗体上拖放一个Image控件。控件要调用图象就这么写：Image1.pictrue=loadpictrue(App.path+"\\文件...
怎么样在VB中将ACCESS数据库中的OLE图片用PICTURE控件或者IMAGE控件显...
打开数据库 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文件!
有许多图片的话,vb报表怎样打印OLE对象图片
没用过vb报表，只知道java报表，比如FineReport报表，ole打印，很简单，就是把ole对象存为字段，然后拖拽进FineReport报表设计器某单元格中，可以随意设置单元格长宽以使其适应ole对象的尺寸，然后预览一下没有问题，就直接点击打印按钮就可以打印出来了 ...
VB中怎么样把连接的数据库中的OLE对象读取出来?
adodb，stream对象
我在一个数据库的OLE字段插入了一个画笔图片,然后在VB中用一个data控 ...
引用stream流对象。在工程属性中引用microsoft activex data ...2.x 是不可以直接用ole这样的容器读出来的。Private Sub Command1_Click() '读入相片 Set mstream = New ADODB.Stream mstream.Type = adTypeBinary mstream.Open mstream.LoadFromFile "c:\\kd\\test.jpg"Adodc1.Recordset.Fields("图片...
关于VB 6 怎样读取Access数据库中的图片(ole类型数据)和调用chn帮助文件...
给你个示例,下面是读取数据库中的二进制数据,并存放到指定的地方的,读取图片的,应该差不多 strSQL = "select * From CodeFile where CodeID=" & ID Rs.Open strSQL, Conn, 1, 3 While Not Rs.EOF FileName = Rs("FileName").Value Str = Rs("FileContent").GetChunk(Rs("FileContent"...
ole对象是什么意思
OLE对象，简单来说，是一种在VB（Visual Basic）中实现的对象连接与嵌入技术，也被称为COM（组件对象模型）。它的核心功能是创建复合文档，这种文档可以集成多种不同类型的数据，如文字、音频、图片、表格以及来自不同应用程序的数据。复合文档的优势在于其跨应用的兼容性和灵活性，能够将各种信息整合到一...
如何在VB中将图片存入数据库,并且从数据库读出显示到界面上
数据库:info表 name段,photo段(设置为ole对象)Dim Constr As String 'ODBC路径 Dim Filename As String '图片文件名 Const BLOCKSIZE = 4096 '每次读写块的大小 Dim ADOCon As New ADODB.Connection 'ADODB Connection对象 Dim ADORst As New ADODB.Recordset 'ADODB Recordset对象 Dim ADOFld As...
