如何将通过VB6,将access中的photo字段(类型为OLE对象),导入至excel中的image控件中?

请帮下,最好写显示些,用属性写法,不用对像更好。对像我还是有些看不懂。谢谢!
另,如何将VB窗体中image控件中的图片保存于access中。要带上错误判断。

其实为什么不换个思路想呢?
Access数据库是支持过程存贮的,这也就意味着我们可以在Access中去编写一段导入Excel数据表的程序,关键在于这个导入程序非常好写,只需要调用一下Access的特写方法就行了,用不着一句一句硬写,比如,我写的一个信息系统中,在Access中导入Excel表就有这么一句

DoCmd.TransferSpreadsheet acImport, , "导入选题", "选题.XLS", True, "A1:F100"

你看这多简单 就是Access中DoCmd对象的一个TransferSpreadsheet方法就行了,而且执行效率比自己硬写的高得多

你再研究一下,VB是可以调用Access中的存贮过程的,这样不就解决问题了吗
温馨提示:内容为网友见解,仅供参考
无其他回答

vb如何将多张图片写入到一个文件中并分别调用?
打开vb6,新建工程。添加两个按钮,一个image控件 注意:Access中的photo字段类型为OLE对象.SqlServer中的photo字段类型为Image '** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本 ‘2.5版本以下不支持Stream对象 Dim iConcstr As String Dim iConc ...

如何让VB6中的按钮控件的图标等于一个已经存在的应用程序的ICO图标?
将这些写在一个模块里:Option Explicit Public Declare Function SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long Public Declare Function...

关于VB6.0+Access2000的,窗体打印代码和图片加载代码的问题
1、form2.text1.text=form1.text1.text form2.PrintForm 或者:form2.text1.text= DataGrid1.Columns(1).Text form2.PrintForm 2、“工程”==>“引用”...Microsoft activex data objects 2.X library 写入图片 Command1_Click()Set mstream = New ADODB.Stream mstream.Type = adTypeBinary...

vb6中ole excel如何设定行数和列数,怎样用语句删除ole中全部数据呢
首先你建立一个excel对象 Dim excelApp As Object Set excelApp = CreateObject("Excel.APPLICATION")然后你可以象操作在vba一样操作excel,只是在所有对象前加定义的excelapp;比如:新增一个工作表命令是 excelapp.workbooks.add 打开一个工作表命令是 excelapp.workbooks.open filename:= xxx 获得excel...

vb6 ole控件插入 word 不显示内容
(1)Word为OLE自动化提供一种称为“Basic”的对象,要在VB中控制Word ,首先要定义一个引用Word中“Basic”对象的对象变量:Dim Wordobj as Object (2)将Word 中的“Basic”对象赋给该对象:Set Wordobj=CreateObject("Word.Basic")(3)可以使用大多数WordBasic语句和函数控制Word或Word文档,使用方法...

在VB6.0中用OLE控件内嵌了EXCEL报表,怎样做一个自定义预览报表啊?请...
function getpychar(char)tmp=65536+asc(char)if(tmp>=45217 and tmp<=45252) then getpychar= "A"elseif(tmp>=45253 and tmp<=45760) then getpychar= "B"elseif(tmp>=45761 and tmp<=46317) then getpychar= "C"elseif(tmp>=46318 and tmp<=46825) then getpychar= "D"elseif(tmp...

VB6.0 OLE控件连接excel 只显示10行?多么能够实现多行显示?
VB6.0存在BUG,一般刷新外部数据到控件中的方法会出现显示不全的现象,给你一个用ADODC连接Access数据库,并刷新到MSHFlexGrid控件显示的例子,用ADODC可以全部显示,数据库建立就不说了 Adodc1.ConnectionString = "Provider=Microsoft.Ace.OLEDB.12.0; Data Source=数据库名.accdb"Adodc1.RecordSource = ...

用VB编程,如何实现数据库的连接和访问
还可以通过TypeOf…Is运算符获取对象实例的运行时类型信息(这个功能就是当今C#的is运算符或Java的instanceof运算符)。除了对语言的改进和扩充,Visual Basic 2.0对VBX有了很好的支持,许多第三方控件涌现出来,极大地丰富了Visual Basic的功能。微软还为Visual Basic 2.0增加了OLE和简单的数据访问功能。 Visual Basic ...

如何用VB建立数据库
1、首先点击打开主菜单栏中的“外接程序”选项。2、然后在弹出来的窗口中点击打开“可视化数据管理器”,出现下图中的界面。3、然后单击文件中的新建,选择“microsot access”,“version 7.0”,弹出保存界面,点击保存后出现如下界面。4、然后右键单击properties,选择“新建表”,输入表名称,添加字段...

VB6.0的部件中没有ADO控件,有会的么?告诉我怎么回事
工程-引用-找到Microsoft ActiveX Data Objects Library 下面的示例代码以Northwinds数据库作为远程数据源,然后用ADO来访问它。首先在控制面板中打开“32位数据源”,单击“添加”按钮。在弹出的对话框中选择 "Microsoft ACCESS Driver (*.mdb)" 作为数据源驱动程序。选择数据库Northwinds所在路径。单击完成...

相似回答