Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2314|回复: 4

vba调用sql用户未定义

[复制链接]
发表于 2017-5-13 22:35 | 显示全部楼层 |阅读模式
为什么这个代码在别的地方可以用,复制过来就错误了,求大神指点

Desktop.zip

378.9 KB, 下载次数: 8

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2017-5-14 11:34 | 显示全部楼层
不好意思,传错了

Desktop.zip

387.02 KB, 下载次数: 5

回复

使用道具 举报

发表于 2017-5-17 08:48 | 显示全部楼层
我刚才试过了,没有问题可以正确执行,应该是没有勾选两个库的原因,第一种方法,在引用中勾选两个库,要不然就把类模块中的这两句
Dim conn As New Connection
Dim rst As New Recordset
改成
Dim conn As Object, rst As Object
Set conn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")

Desktop.rar

251.96 KB, 下载次数: 7

回复

使用道具 举报

 楼主| 发表于 2017-5-19 14:21 | 显示全部楼层
today0427 发表于 2017-5-17 08:48
我刚才试过了,没有问题可以正确执行,应该是没有勾选两个库的原因,第一种方法,在引用中勾选两个库,要不 ...

好的,非常感谢大神
回复

使用道具 举报

 楼主| 发表于 2017-6-12 22:06 | 显示全部楼层
today0427 发表于 2017-5-17 08:48
我刚才试过了,没有问题可以正确执行,应该是没有勾选两个库的原因,第一种方法,在引用中勾选两个库,要不 ...

您好,能请问下Dim conn As New Connection
Dim rst As New Recordset

Dim conn As Object, rst As Object
Set conn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")

的区别是什么么??
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-3 05:31 , Processed in 0.335793 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表