CurrentProject.Connection 出错

alex00321

如图，从别人拿到的数据库，别的都改好了 就这句话 总是报错，先close也不行。求高人解答

taller

什么错误提示

Renco

前面加一句
dim cnn as new adodb.connection
试试

alex00321

Renco 发表于 2012-12-2 16:27
前面加一句
dim cnn as new adodb.connection
试试

谢谢回复，这句话在sub刚开始就写了

alex00321

taller 发表于 2012-12-2 21:32
什么错误提示

谢谢回复，错误提示在图片上写了，data source object is already initialized.

Renco

有没有引用ADO呢？？

alex00321

Renco 发表于 2012-12-4 00:49
有没有引用ADO呢？？

引用了，这个问题去MSDN 查了，近似无解。。。

Renco

alex00321 发表于 2012-12-4 13:00
引用了，这个问题去MSDN 查了，近似无解。。。

如能在另一台电脑试试就好，如果能行，首先是这个文件没问题
问题出在系统上，至于是ACCESS系统问题，还是操作系统，或是动态链的问题就不太好说了。

taller

试试下面的对象声明，也就是去掉New关键字

1. 
   
2. Dim cnn As ADODB.Connection
   
3. ..
   
4. Set cnn = Application.CurrentProject.Connection

复制代码

taller

另外如果只是在当前数据库中执行一个SQL，那么完全不需要去使用ADO，可以直接用 currentdb.Execute <sql query>