Excel VBA无法使用ADODB.Connection

最新推荐文章于 2023-10-07 19:01:57 发布
最新推荐文章于 2023-10-07 19:01:57 发布
阅读量6.6k 收藏 5
点赞数 1
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/chy2z/article/details/80080300
版权

 

定义了  Dim cn As ADODB.Connection

执行后就报错 " 编译错误: 用户定义类型未定义"

答:

按Alt+F11打开代码窗口,点击菜单上的"工具">>"引用",勾选它:Microsoft ActiveX Data Objects 2.x

然后利用下面的代码进行调用:

Dim cn As ADODB.Connection

Set cn = New ADODB.Connection

With cn

        .Provider = "microsoft.jet.oledb.4.0"

        .ConnectionString = "extended properties=excel 8.0;" _

        & "data source=" & ThisWorkbook.FullName

        .Open

End With

黑暗行动
关注
  • 1
    点赞
  • 踩
  • 5
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
Excel使用VBA链接SQL全部实例
03-15
Excel 使用 VBA 链接 SQL 全部实例 在 Excel 中使用 VBA 链接 SQL 数据库是非常常见的应用场景。通过使用 VBA，可以实现在 Excel 中执行 SQL 查询，实现数据的交互和处理。本文将详细介绍如何使用 VBA 链接 SQL ...
Excel VBA 使用ADODB 连接SqlServer
chy2z的专栏
04-25 4725
Private Sub CommandButton1_Click() Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用Dim rs As New ADODB
ADODB--用户定义类型未定义
leosmin的专栏
06-19 5823
ADODB--用户定义类型未定义SubJect: VB  Datebase Set Conn = New ADODB.Connection Conn.Open ConnStr 在VB中使用ADO出现用户定义类型未定义的情况 是因为程序还没有引用它，只需要在菜单：工程>>>引用>>>添加 Microsoft Activex Data Oobjects 2.0 Library或者2.1
vba 用adodb连接mysql_【VBA研究】Excel VBA利用ADODB访问数据库使用小结
weixin_36252618的博客
02-07 456
[转自] http://blog.csdn.net/iamlaosong/article/details/18043433作者：iamlaosong▲连接Oracle数据库Set cnn = CreateObject("ADODB.Connection")cnn.Open "Provider=msdaora;Data Source=dl580;User Id=emssxjk;Password=em...
Excel - 使用VBA通过ADO数据库连接来操作一个Excel数据源
guoqx的专栏
08-14 4989
这是Excel提供的一个非常关键的功能，因为想象一下，如果你的Excel文件包含非常巨大的数据，比如说超过10000x500个单元格的数据，你必须根据一些条件从整个工作簿中获取一些数据。你可以将Excel工作簿作为一个完整的数据库来阅读，也就是说，Excel文件可以作为数据库。1，在你的Excel文件中存储数据，并将其保存在系统中的某个位置，例如 "DB Data.xlsx"3，打开一个新的excel文件，你将从 "DB Data.xlsx "中获取数据。10，可以将此VBA函数指定一个按键，方便执行。..
Excel·VBA使用ADO读取工作簿工作表数据
hhhhh_51的博客
10-07 2416
不打开工作簿读取数据：查询遍历写入数组；查询整体写入数组；查询工作簿所有工作表名称；查询工作簿所有工作表数据
如何在ado中使用connection 对象？
永生天地
06-26 2338
<br />如何在ado中使用connection 对象？<br />什么是connection对象？<br />一个connection对象描述了到数据源的物理连接。你可以使用odbc也可以利用ole db来连接数据源。当你打开一个connectiont对象时你就会试图连接数据库。Connection对象的state属性会告诉我们连接是否成功。通过connection对象的execute方法向数据源发送SQL语句或运行存存储过程。如果你向数据源发送的命令要求数据源返回记录集，那么记录集对象会自动的被创建。
关于vba：编译器错误：未定义用户定义的类型
一个懒鬼的博客
11-18 3071
当执行Set cn = CreateObject("ADODB.Connection")语句时，VBA将自动进行引用。我尝试添加Microsoft ActiveX数据对象2.5和2.8库，但是没有成功。我忘记添加对" Microsoft ActiveX数据对象2.5库"的引用：early binding需要此引用。工具>参考>选中" Microsoft ActiveX数据对象2.5库"前面的复选框。Microsoft ActiveX数据对象2.6库。Microsoft ActiveX数据对象2.8库。
vba连接数据库，插入数据
cxtxdys的博客
05-30 2026
使用vba，点击按钮将表格中的数据插入到数据库中
Excel VBA连接并操作Oracle
09-05
首先，为了在Excel VBA中使用Oracle数据库，你需要确保已安装了Oracle客户端工具，并且已经正确引用了ADO（ActiveX Data Objects）的相关组件。在VBA编辑器中，你可以通过"工具"->"引用"来选择"Microsoft Activex ...
Excel VBA_ADO+SQL实例集锦.docx
02-27
在VBA中，我们可以创建一个`ADODB.Connection`对象来连接Excel文件作为数据源。例子中的代码片段展示了如何通过`CreateObject`函数创建一个ADO连接对象，并使用`Open`方法打开连接。连接字符串使用了`Microsoft.Jet...
Excel VBA_ADO+SQL实例集锦.doc.txt
03-13
Set x = CreateObject("ADODB.Connection") x.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;hdr=no;';Data Source=" & ActiveWorkbook.FullName sql = "select f6,f2,f3,f4,f5,f7,f13...
Excel处理SQL数据库教程.pdf
09-27
通过本教程，读者将掌握如何在Excel环境中使用VBA与SQL数据库进行有效交互，这对于需要快速处理大量数据或进行轻量级开发的用户来说非常实用。不过，学习此教程需要读者具备一定的VBA基础，以便更好地理解和应用教程...
VBA 使用ADO组件的两种方式--引用法创建法
热门推荐
haijs的专栏
09-05 1万+
1、引用法      引用ADO相关组件：打开VBA编辑器，在菜单中点选“工具”--》“引用”。确保“Microsoft ActiviteX Data Objects 2.8 Library”和“Microsoft ActiviteX Data ObjectS Recordset 2.8 Library”被勾选上。引用后再声明:      Dim cnn As New Connection
在VB中用ADO操作Excel报错
atlqf的专栏
06-30 584
 请高手帮帮忙:VBA中有下面一段代码,为什么总在rsData.Open sSQL, sConnect, adOpenForwardOnly, adLockReadOnly, adCmdText处提示"M jet 找不到对象[生产计划$Plan_Area],请确定对象是否存在,并正确的写出它的名称和路径", Private Sub C_Click()Dim ad
请帮忙
yuzhoult的专栏
02-09 239
Dim cnn As ADODB.Connection   声明连接对象Dim rs As ADODB.Recordset     声明记录集对象Dim MyPath As String     用于存放路径MyPath = App.Path        设为本工程所在路径若非根目录,路径后面加"/"If Right(MyPath,1)  建立与数据库的连接。cnn.Provider
adodb.connection连接excel不同版本的选择
weixin_43721369的博客
02-28 4565
Set conn = CreateObject(&quot;adodb.connection&quot;) If Val(Application.Version) &amp;lt; 12 Then 'Excel 2000-2003 FileExtStr = &quot;.xls&quot;: FileFormatNum = -4143 conn.Open &quot;provider=microsoft.jet.oledb.4.
ipywidgets-7.0.0a10.tar.gz
最新发布
06-20
Python库是一组预先编写的代码模块，旨在帮助开发者实现特定的编程任务，无需从零开始编写代码。这些库可以包括各种功能，如数学运算、文件操作、数据分析和网络编程等。Python社区提供了大量的第三方库，如NumPy、Pandas和Requests，极大地丰富了Python的应用领域，从数据科学到Web开发。Python库的丰富性是Python成为最受欢迎的编程语言之一的关键原因之一。这些库不仅为初学者提供了快速入门的途径，而且为经验丰富的开发者提供了强大的工具，以高效率、高质量地完成复杂任务。例如，Matplotlib和Seaborn库在数据可视化领域内非常受欢迎，它们提供了广泛的工具和技术，可以创建高度定制化的图表和图形，帮助数据科学家和分析师在数据探索和结果展示中更有效地传达信息。
Excel vba 如何使用sql语句
02-17
Excel VBA 可以通过 ADODB 对象库来使用 SQL 语句。 首先，需要在 VBA 编辑器中打开“工具”菜单，选择“引用”并勾选“Microsoft ActiveX Data Objects x.x Library”（x.x 为版本号，通常为最新版本）。 接下来，可以使用 ADODB 对象来连接数据库、执行 SQL 查询、更新数据库等操作。下面是一个示例代码，演示如何使用 SQL 查询获取数据库中的数据： ``` Sub QueryDatabase() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String ' 连接数据库 Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\username\Documents\example.accdb" conn.Open ' 执行 SQL 查询 sql = "SELECT * FROM table1" Set rs = New ADODB.Recordset rs.Open sql, conn ' 输出查询结果 Do While Not rs.EOF Debug.Print rs("column1") rs.MoveNext Loop ' 关闭连接 rs.Close conn.Close End Sub ``` 在这个示例中，首先创建了一个 ADODB.Connection 对象，并使用 ConnectionString 属性设置连接字符串，指定了要连接的数据库文件路径。然后，执行 SQL 查询并将结果保存到 ADODB.Recordset 对象中，最后遍历结果集并输出查询结果。 这只是一个简单的示例，实际使用中可能需要根据具体情况调整代码。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值