VB 自动化错误 automation 错误!

添哥爱自己 2013-12-24 09:11:24
Sub testaaa()
Dim i As Long, j As Long, t As Long, sht As Worksheet
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strCn As String
Dim strSQL As String
Dim jo As Boolean
strCn = "Provider=sqloledb;Server=SQLSEVER;Database=AAADDD;Uid=sa;Pwd=123456;"
cn.Open strCn
strSQL ="update icstockbill set fbilleriD=11"
rs.Open strSQL, cn
小弟在做excel修改数据库的时候,如果在AAADDD这个数据库运行strSQL的话 就会出现
运行时错误‘-2147467259(80004005)’
自动化(automation)错误
但是在别的数据库BBBCC就不会,求大神指导。两个数据库是一样的 ,是我备份出来。
...全文
1700 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
赵4老师 2013-12-24
  • 打赏
  • 举报
回复
引用 4 楼 TianGeAiZiJi 的回复:
[quote=引用 3 楼 zhao4zhong1 的回复:] 下载安装MDAC28试试。
让我很奇怪的是为什么两个数据库一模一样的,一个行一个就不行,sql语句完全一样[/quote] 总不至于一个数据库文件的属性是只读吧。或者一个数据库正被另一个程序打开? 任务管理器里面找到僵死进程结束掉(如果有)
添哥爱自己 2013-12-24
  • 打赏
  • 举报
回复
引用 3 楼 zhao4zhong1 的回复:
下载安装MDAC28试试。
让我很奇怪的是为什么两个数据库一模一样的,一个行一个就不行,sql语句完全一样
赵4老师 2013-12-24
  • 打赏
  • 举报
回复
下载安装MDAC28试试。
添哥爱自己 2013-12-24
  • 打赏
  • 举报
回复
引用 1 楼 zhao4zhong1 的回复:
http://www.baidu.com/s?wd=error%2080004005&rsp=3&f=1&oq=ADOERR%2080004005&ie=utf-8&rsv_ers=xn0&rs_src=0
你好,能具体说一说怎么回事么

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧