ADO操作excel问题-CSDN论坛

ADO操作excel问题

VB > VB基础类

收藏回复

[问题点数：100分，结帖人liuxingvcvc]

⋅求助，同一个语句运行时间差好多！ ⋅sendarp问题 ⋅ADO操作excel问题 更多帖子 关注私信空间博客 哈了 等级 本版专家分：424 结帖率 100%

  Dim Excel_Dsn As String



    Dim Excel_Conn As New ADODB.Connection

    Dim Excel_Adodc As New ADODB.Recordset

    Dim mySql As String

    Dim rs_str  As String

    Dim FilePath As String

    FilePath = App.Path & "\aaa\" & Date & ".xls"

   Excel_Dsn = "DRIVER={Microsoft Excel Driver (*.xls)};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=""" & FilePath & """;DBQ=" & FilePath

   Excel_Conn.Open Excel_Dsn

   mySql = "select * from [test$] where 网址='" & url & "'"

   Excel_Adodc.Open mySql, Excel_Conn, adOpenKeyset, adLockPessimistic

以上代码在第一次打开VB工程时调试运行时会出现 ODBC驱动程序不支持的属性错误。改成
Excel_Adodc.Open mySql, Excel_Conn, 2, adLockPessimistic则是不支持的排序，有没有办法解决？

2012-02-06 00:22:17

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅快过年了，好人一生平安。 ⋅关于VB的0、""(空字符串)、Null、Empty、与 Nothing 的区别，升三星散分。 ⋅[已处理] =========================c s d n为何反复要求登录=================== 更多帖子 关注私信空间博客 chinaboyzyq 等级 本版专家分：54077 勋章 红花 2010年7月 VB大版内专家分月排行榜第一 2010年6月 VB大版内专家分月排行榜第一 2010年5月 VB大版内专家分月排行榜第一 2010年4月 VB大版内专家分月排行榜第一 黄花 2011年12月 VB大版内专家分月排行榜第二 2011年9月 VB大版内专家分月排行榜第二 2011年8月 VB大版内专家分月排行榜第二 2010年8月 VB大版内专家分月排行榜第二 2009年9月 VB大版内专家分月排行榜第二 蓝花 2012年2月 VB大版内专家分月排行榜第三 2011年11月 VB大版内专家分月排行榜第三 2011年3月 VB大版内专家分月排行榜第三 2011年1月 VB大版内专家分月排行榜第三 2010年3月 VB大版内专家分月排行榜第三 2010年2月 VB大版内专家分月排行榜第三 2009年10月 VB大版内专家分月排行榜第三 2009年8月 VB大版内专家分月排行榜第三: http://zhidao.baidu.com/question/200819684.html

2012-02-06 08:10:01

点赞只看TA 引用举报 #1得分 30

⋅有没有熟悉或者销售MEMS仿真软件的？ ⋅有感而发！VB版太不给力了！ ⋅转让工控板卡 更多帖子 关注私信空间博客 贝隆 等级 本版专家分：75696 勋章 红花 2013年8月 VB大版内专家分月排行榜第一 2013年3月 VB大版内专家分月排行榜第一 2012年10月 VB大版内专家分月排行榜第一 2012年9月 VB大版内专家分月排行榜第一 2012年8月 VB大版内专家分月排行榜第一 2012年7月 VB大版内专家分月排行榜第一 2012年6月 VB大版内专家分月排行榜第一 2012年5月 VB大版内专家分月排行榜第一 2012年4月 VB大版内专家分月排行榜第一 2012年3月 VB大版内专家分月排行榜第一 2012年2月 VB大版内专家分月排行榜第一 2012年1月 VB大版内专家分月排行榜第一 2011年12月 VB大版内专家分月排行榜第一 2011年11月 VB大版内专家分月排行榜第一 2011年10月 VB大版内专家分月排行榜第一 2011年9月 VB大版内专家分月排行榜第一 2011年8月 VB大版内专家分月排行榜第一 2011年7月 VB大版内专家分月排行榜第一 黄花 2011年1月 VB大版内专家分月排行榜第二 2010年10月 VB大版内专家分月排行榜第二 蓝花 2013年1月 VB大版内专家分月排行榜第三 2012年12月 VB大版内专家分月排行榜第三 2011年6月 VB大版内专家分月排行榜第三 2011年2月 VB大版内专家分月排行榜第三 2010年12月 VB大版内专家分月排行榜第三 2010年11月 VB大版内专家分月排行榜第三 2009年7月 VB大版内专家分月排行榜第三



im Excel_Dsn As String

Dim Excel_Conn As New ADODB.Connection

Dim Excel_Adodc As New ADODB.Recordset

Dim mySql As String

Dim rs_str  As String

Dim FilePath As String

FilePath = App.Path & "\aaa\" & Date & ".xls"



Excel_Dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & FilePath & ";Extended Properties='Excel 8.0;HDR=Yes'"

Excel_Conn.Open Excel_Dsn

mySql = "select * from [test$] where 网址='" & url & "'"

Excel_Adodc.Open mySql, Excel_Conn, adOpenKeyset, adLockPessimistic

2012-02-06 08:38:02

点赞只看TA 引用举报 #2得分 35

⋅有没有熟悉或者销售MEMS仿真软件的？ ⋅有感而发！VB版太不给力了！ ⋅转让工控板卡 更多帖子 关注私信空间博客 贝隆 等级 本版专家分：75696 勋章 红花 2013年8月 VB大版内专家分月排行榜第一 2013年3月 VB大版内专家分月排行榜第一 2012年10月 VB大版内专家分月排行榜第一 2012年9月 VB大版内专家分月排行榜第一 2012年8月 VB大版内专家分月排行榜第一 2012年7月 VB大版内专家分月排行榜第一 2012年6月 VB大版内专家分月排行榜第一 2012年5月 VB大版内专家分月排行榜第一 2012年4月 VB大版内专家分月排行榜第一 2012年3月 VB大版内专家分月排行榜第一 2012年2月 VB大版内专家分月排行榜第一 2012年1月 VB大版内专家分月排行榜第一 2011年12月 VB大版内专家分月排行榜第一 2011年11月 VB大版内专家分月排行榜第一 2011年10月 VB大版内专家分月排行榜第一 2011年9月 VB大版内专家分月排行榜第一 2011年8月 VB大版内专家分月排行榜第一 2011年7月 VB大版内专家分月排行榜第一 黄花 2011年1月 VB大版内专家分月排行榜第二 2010年10月 VB大版内专家分月排行榜第二 蓝花 2013年1月 VB大版内专家分月排行榜第三 2012年12月 VB大版内专家分月排行榜第三 2011年6月 VB大版内专家分月排行榜第三 2011年2月 VB大版内专家分月排行榜第三 2010年12月 VB大版内专家分月排行榜第三 2010年11月 VB大版内专家分月排行榜第三 2009年7月 VB大版内专家分月排行榜第三: http://download.csdn.net/detail/xiaolong1012/3340952

2012-02-06 11:07:30

点赞只看TA 引用举报 #3得分 0

⋅求助，同一个语句运行时间差好多！ ⋅sendarp问题 ⋅ADO操作excel问题 更多帖子 关注私信空间博客 哈了 等级 本版专家分：424: 引用 2 楼 veron_04 的回复:
VB code

im Excel_Dsn As String
Dim Excel_Conn As New ADODB.Connection
Dim Excel_Adodc As New ADODB.Recordset
Dim mySql As String
Dim rs_str As String
Dim FilePath As String
FilePath = App.Path &am……

这个我一开始就是用这个串的，会出现不支持的排序错误.msdn上说是因为SP3的原因，我看了下我的VB是sp6,很郁闷

2012-02-06 12:46:35

点赞只看TA 引用举报 #4得分 0

⋅如何让win7及以上版本的系统能同时进行多人的远程桌面访问？ ⋅两台虚拟机之间用远程桌面互相访问的问题 ⋅远程桌面最小化或关闭后，脚本自动化程序停止工作，请教解决办法。 更多帖子 关注私信空间博客 middleschools... 等级 本版专家分：275: 向高手学习了！

2012-02-06 16:00:34

点赞只看TA 引用举报 #5得分 0

⋅CSDN越来越垃圾 ⋅祝大家元宵节快乐 ⋅可用分兑换功能取消了吗？ 更多帖子 关注私信空间博客 worldy 等级 本版专家分：26139 勋章 红花 2015年8月硬件/嵌入开发大版内专家分月排行榜第一 2015年7月 VC/MFC大版内专家分月排行榜第一 2015年5月 VC/MFC大版内专家分月排行榜第一 2015年4月 VC/MFC大版内专家分月排行榜第一 2015年3月 VC/MFC大版内专家分月排行榜第一 2015年1月硬件/嵌入开发大版内专家分月排行榜第一 2013年12月 VC/MFC大版内专家分月排行榜第一 2013年11月 VC/MFC大版内专家分月排行榜第一 2013年6月 VB大版内专家分月排行榜第一 2013年5月 VB大版内专家分月排行榜第一 2013年1月 VB大版内专家分月排行榜第一 2012年12月 VB大版内专家分月排行榜第一 黄花 2015年9月 VC/MFC大版内专家分月排行榜第二 2015年7月硬件/嵌入开发大版内专家分月排行榜第二 2014年5月 VC/MFC大版内专家分月排行榜第二 2014年3月 VC/MFC大版内专家分月排行榜第二 2013年10月 VB大版内专家分月排行榜第二 2013年7月 VB大版内专家分月排行榜第二 2012年5月 VB大版内专家分月排行榜第二 2012年4月 VB大版内专家分月排行榜第二 2012年2月 VB大版内专家分月排行榜第二 2011年11月 VB大版内专家分月排行榜第二 蓝花 2015年11月 VC/MFC大版内专家分月排行榜第三 2015年6月 VC/MFC大版内专家分月排行榜第三 2015年2月 VC/MFC大版内专家分月排行榜第三 2014年1月 VC/MFC大版内专家分月排行榜第三 2012年3月 VB大版内专家分月排行榜第三 2011年12月 VB大版内专家分月排行榜第三 2011年10月 VB大版内专家分月排行榜第三: 参考这个：

’经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
    'access导出到excel
    Dim db As New ADODB.Connection
    Dim sPath As String

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb Persist Security Info=False"

    sPath = App.Path + "\backup.xls"
    If Dir(sPath) <> "" Then
        Kill sPath
    Else

    Call db.Execute("select * into Sheet1  In '" & sPath & "' 'excel 8.0;' from 表1")
        MsgBox "导出成功", vbOKOnly, "提示"
    End If

    db.Close
    Set db = Nothing
End Sub

Private Sub Command2_Click()
    '从excel导出到 access
   Dim db As New ADODB.Connection
    Dim sPath As String

    db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Temp\Test\db1.mdb;Persist Security Info=False"

    sPath = App.Path + "\backup.xls"
    Call db.Execute("select * into Table4 From [Sheet1$]  In '" & sPath & "' 'excel 8.0;'")

    db.Close
    Set db = Nothing
End Sub

2012-02-06 19:01:10

点赞只看TA 引用举报 #6得分 35

⋅求助，同一个语句运行时间差好多！ ⋅sendarp问题 ⋅ADO操作excel问题 更多帖子 关注私信空间博客 哈了 等级 本版专家分：424: 引用 6 楼 worldy 的回复:
参考这个：

’经实际测试，以下代码数据库和Excel之间互相导入导出，完全成功！
Private Sub Command1_Click()
    'access导出到excel
    Dim db As New ADODB.Connection
    Dim sPath As String

    db.Open "Provider=Microsoft.Jet.……

我的代码和楼上的代码都能用，不过打开工程第一次调试运行时会报错而已，不管它后面再试就不会出现了，编译后也是能正常用.

2012-02-07 12:26:54

点赞只看TA 引用举报 #7得分 0

收起

收藏回复

哈了

等级：

关注私信 TA的帖子

利用ADO操作Excel文件: 今天花时间研究了一下ADO操作Excel文件的问题，跟大家分享一下：首先利用Excel2003创建了一个名为Demo.xls的文件，内容如下： Name Age TY

VB中使用ADO的方法创建及访问Excel文件: 本文主要介绍使用ADO的方法操作EXCEL文件,其它相对于使用EXCEL对象更通用简单. 数据库连接 Dim adoConn As New ADODB.Connection Dim adoReco As New ADODB.Recordset Set adoConn = New ADODB.Connection OLE DB...

使用ado访问excel中的数据: ADO访问Excel文件中的数据，Access数据库。

VBA中使用ADO来处理Excel数据之现状: VBA中使用ADO来处理Excel数据之现状 Excel工作表中的行和列与数据库中的行和列非常相似。ADO 让我们可以将 Excel 工作簿看做和数据库一样,用ADO的好处是可以不通过OPEN的方式访问工作簿,如此可以绕过不使用宏即...

vb.net ADO快速读取excel: 一:写在之前其实我还在写erlang, vb什么的才和我没关系,要不是为了妹子,才不会看...就比如查找读取excel,查找出大量..2000年多有的资料,简直惨..接口已经变过了.. 三:vb 基本的读取excel方法 Dim xlapp A

delphi 用ado连接excel2007: 前段时间写了一个用delphi比较两个excel不同的程序。使用了ado ，但是发现怎么都连接不上。最后知道原因了。我使用的office是2007版本的。原因是office2007已经是基于xml的。和以前的不一样了。下边是连接office...

在DELPHI中使用ADO直接访问Excel数据文件: 在DELPHI中使用ADO直接访问Excel数据文件1.设置ADOConnection的ConnectionString 构造ConnectionString时，OLE DB的提供者要选择Microsoft Jet 4.0 OLE DB Provider作为ADO的驱动程序。这本来是用于连接Access...

用ado打开Excel文件时报"外部表不是预期的格式"的解决方法: 在用ado将Excel表格数据导入到数据库时,ado打开Excel文件报"外部表不是预期的格式"的...解决方法：用Microsoft Excel找开文件，并另存为Excel文件，就可以解决这个问题。然后在用ADO打开这个Eecel文件，错误没有啦。

VBA：ADO连接excel配合SQL操作: excel里sheet1的ambass栏要填，site栏是key。和sheet2 sheet3有一对一关系，最后从sheet3得出ambass填入sheet1。纯表操作用sql来做非常方便，整个方法跑下来只需要3秒就跑完了，没有VBA众多循环判断关系，简单的...

一个QTP中用ADO操作Excel的例子: ******************************************************************************* 目的：ADO操作Excel例子输入参数：返回结果：注意事项：作者：陈能技(http://itestware.com) 日期：2008-7-7 *******

Visual C++ Excel编程小节: 最近研究了一下Excel编程相关内容，原因是帮团委校对数据，需要...采用数据库方式连接，ODBC/ADO。使用时必须安装xls的ODBC驱动，一般情况下都是随着Excel一起安装的。不过也有例外，如果你使用的是64位的系统，会发现

c#中采用OLEDB方式来读取EXCEL文件和将数据写入EXCEL文件: Microsoft Jet 提供程序用于连接到 Excel 工作簿。在以下连接字符串中，Extended Properties 关键字设置 Excel 特定的属性。“HDR=Yes;”指示第一行中包含列名，而不是数据，“IMEX=1;”通知驱动程序始终将...

ADO读取Excel内容: 这里创建一个基于VS2005的控制台应用程序，字符集设置为“未设置”，经测试可以通过，有关ADO操作Excel的细节问题，可参阅相关资料。 // readExcel.cpp : 定义控制台应用程序的入口点。 // #include #include ...

excel VBA中的数据库基本操作: '1 可以在不打开EXCEL文件的情况下,从文件中提取数据. '2 可以从建立连接的专业软件数据库中提取数据.如财务软件等. 怎么使用ADO的两种方式： '引用法 '工具--引用---Microsoft Activex..D...O" ...

Delphi DataSet超高效率导出到Excel——60万个数据9秒导出: Excel的ADO方法导出，60万个数据9秒导出。直接用SQL语句在Excel文件中追加需要导出的数据记录，代码简单明了，操作方便，效率较高（可能是仅次于文件流导出的方式）。

Microsoft.Jet.OLEDB.4.0和Microsoft.ACE.OLEDB.12.0的区别: 在通过ADO对Excel对象进行连接时（此时Excel则认为是一个数据源），需要配置对Excel数据源对应的连接串，这个连接串中包括了Provider信息（其实类似对数据库进行连接操作时，都需要指定连接字符串），以下是一行连接...

ADO.NET直接连接Excel文件: ADO.NET直接连接Excel,在excel2003与2007上测试通过

读取Excel内容超过255个字符被截断，解决方法: 在使用 Provider=Microsoft.ACE.OLEDB.12.0;" + "Data Source=" + filename + ";...ADO 读取 Excel的时候，遇到内容超过 255个字符，多余的就被截断了，百思不得其解。网搜了很多答案，最多的就是修改注

VS2010通过ADO连接EXCEL数据库: 通过在网上以及书本中寻找各种VC读取EXCEL文件的方式后，最终自己加以融合，提出了一种较为简单的连接数据库的方式。现将该方法分布叙述如下：第一步：在相应头文件中添加如下代码 #import "c:\program files\...

解决ADO读取Excel，数据丢失、数据错误、数据乱码问题: 在进行自动化测试的脚本开发或者框架开发的过程...2）通过ADO访问excel数据源，这篇文章主要是描述一个ADO操作excel时，遇到数据丢失，数据错误或数据乱码的一个问题。一个简单的使用ADO函数： ' ******************

Excel批量为数值列加绿色小三角: 用ADO直接读取Excel的一些以文本形式保存的纯数字列时（比如，手机号，不带X的身份证号等），有时会误认为空。 <br /> 查了一下，有两个办法： 1、在数值前加个单撇号（'）； 2、...

直接通过ADO操作Access数据库: 直接通过ADO操作Access数据库作者：徐景周下载示例源码(http://www.vckbase.com/code/viewcode.asp?id=1715) 上次经过直接通过ODBC读、写Excel表格文件>和直接通过DAO读、写Access文件>两篇文章，给大家介绍了ODBC和...

64bit的python及32bit的office2010情况下pywin32无法操作access的解决方法: 心血来潮，想试一试python是如何通过pywin32来操作access的，顺便了解一下pywin32的api 系统配置是win7 64bit，安装的office2010 32bit，python是64bit。mdb是老早的一个废弃数据库。下面是一部分运行代码： ...

ADO操作Excel，提示错误“不可识别的数据库格式”: 程序要实现从Excel中读取数据到数据库中，一直都很顺利。这次又在使用时却莫名出现错误“不可识别的数据库格式”。最后却发现是属性赋值错了。conExcel.KeepConnection := false;应该是conExcel.KeepConnection :=...

再看ADO.NET: 最近做了简单三层机房收费系统,对三层有了更加深刻的理解,不过问题也多了,希望以后会可以很好的理解.这篇博客,写通过机房收费系统中的对数据库的访问处理,对ADO.NET有了更进一步的理解,简单总结一下. 一，...

[VB/VBA]SQL操作EXCEL: [VB/VBA]SQL操作EXCEL1、添加引用 (1)、Microsoft Active Data Objects 2.8 Library (2)、Microsoft ADO Ext . 2.8 For DDL and Security2、用ADOX连接EXCEL文件 Dim cat As ADOX.Catalog Dim tbl As

ADO访问Excel 2007: 1、数据引擎类型有两种接口可供选择：Microsoft.Jet.OLEDB.4.0（简称 Jet 引擎）和Microsoft.ACE.OLEDB.12.0（简称 ACE 引擎）。 Jet 引擎可以访问 Office 97-2003，但不能访问 Office 2007。...

关于使用ADO和VBA提取Excel数据一点经验: 近日一直在研究Excel VBA,昨天看到了《处理外部数据和文件》这一章节，本来照猫画虎的抄代码可以一键过，没想到遇到了诸多问题，经过几个小时的搜索汇总，最终形成了以下几点经验(本机安装win7 office2016)。...

用ADO控件操作Excel的.xls文件的最详细的教程(2013.11.29首发): 用ADO操作Excel的.xls文件有速度快，可以在一定条件下突破Excel的总行数限制(超过这个行数限制在Excel中操作可能会有问题)，操作具有真正的隐秘性等优点。而用OLE操作Excel文件有两个弊端，一是操作的效率较低...

如何在 Visual Basic 或 VBA 中使用 ADO 来处理 Excel 数据: 如何在 Visual Basic 或 VBA 中使用 ADO 来处理 Excel 数据察看本文应用于的产品function loadTOCNode(){} 文章编号 : 257819 最后修改

相关热词 c#读取shp文件 c# 多个if c#上传图片到安卓的接口 c#中得到控件 c# 浏览器打开调用 c# 绘制3维 c#酒店管理系统数据库 c#链接api c# 串口发送数据 c# 线程结束回调